: $" state IF postpone s" else ['] s" execute THEN ; immediate
\ FIXME: stubs for missing definitions
-: resize-file drop 2drop -1 ;
: file-status 2drop 0 -1 ;
TESTING File Access word set
\ Tidy the test folder
T{ fn3 DELETE-FILE DROP -> }T
+\ ------------------------------------------------------------------------------
+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
+ -> 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
+ -> 2 }T
+
\ ----------------------------------------------------------------------------
TESTING two buffers available for S" and/or S\" (Forth 2012)