Add test/export.fs

This commit is contained in:
Koichi Nakamura 2021-01-17 12:57:43 +09:00
parent bb4ab5f431
commit c7bcd8282e
2 changed files with 33 additions and 0 deletions

View file

@ -13,5 +13,7 @@ include test/utilities.fs
include test/errorreport.fs
include test/coreexttest.fs
include test/export.fs
report-errors
report-and-exit

31
test/export.fs Normal file
View file

@ -0,0 +1,31 @@
\ planckforth -
\ Copyright (C) 2021 nineties
testing private and export
: f1 ;
private{
: f2 ;
T{ defined? f1 -> true }T
T{ defined? f2 -> true }T
private{
: f3 ;
T{ defined? f2 -> true }T
T{ defined? f3 -> true }T
}private
T{ defined? f1 -> true }T
T{ defined? f2 -> true }T
T{ defined? f3 -> false }T
}private
T{ defined? f1 -> true }T
T{ defined? f2 -> false }T
T{ defined? f3 -> false }T