X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=fth%2Ft_file.fth;h=297f208e8518400e897226607b1e3803816b1b52;hb=ff136ea5caf229ce3135cc6245051f40a9b443f3;hp=018ca58d168e59cf334c6e17cca35ef92b0569b5;hpb=b2a8ba4a67ac950d38a4e2965510b3256ef43d02;p=debian%2Fpforth

diff --git a/fth/t_file.fth b/fth/t_file.fth
index 018ca58..297f208 100644
--- a/fth/t_file.fth
+++ b/fth/t_file.fth
@@ -243,6 +243,21 @@ T{ FID1 @ CLOSE-FILE -> 0 }T
 \ 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)