true fp-require-e !
-true value verbose
+false value verbose
: testing
verbose IF
: s= compare 0= ;
: $" state IF postpone s" else ['] s" execute THEN ; immediate
-\ FIXME: stubs for missing definitions
-: file-status 2drop 0 -1 ;
-
TESTING File Access word set
DECIMAL
TESTING REQUIRED REQUIRE INCLUDED
\ Tests taken from Forth 2012 RfD
-T{ 0 S" t_required-helper1.fth" REQUIRED
- REQUIRE t_required-helper1.fth
- INCLUDE t_required-helper1.fth
+T{ 0 S" t_required_helper1.fth" REQUIRED
+ REQUIRE t_required_helper1.fth
+ INCLUDE t_required_helper1.fth
-> 2 }T
-T{ 0 INCLUDE t_required-helper2.fth
- S" t_required-helper2.fth" REQUIRED
- REQUIRE t_required-helper2.fth
- S" t_required-helper2.fth" INCLUDED
+T{ 0 INCLUDE t_required_helper2.fth
+ S" t_required_helper2.fth" REQUIRED
+ REQUIRE t_required_helper2.fth
+ S" t_required_helper2.fth" INCLUDED
-> 2 }T
\ ----------------------------------------------------------------------------