X-Git-Url: http://git.annexia.org/?p=jonesforth.git;a=blobdiff_plain;f=test_read_file.f;h=3e3c8477af695395601e8f1cd1f1e150055f699b;hp=f3a6f45803e64cf4a5ba42f6ab1662310cd8d33d;hb=092aa5189f24fbfb1714c1d2d31c26a666102c3c;hpb=83c6612bf07228f70d25136c850f660721379632

diff --git a/test_read_file.f b/test_read_file.f
index f3a6f45..3e3c847 100644
--- a/test_read_file.f
+++ b/test_read_file.f
@@ -1,14 +1,14 @@
 ( -*- text -*-
 	Test READ-FILE.
-	$Id: test_read_file.f,v 1.1 2007-10-07 11:07:15 rich Exp $
+	$Id: test_read_file.f,v 1.2 2007-10-22 18:53:13 rich Exp $
 )
 
 0 VALUE FD
 100 CELLS ALLOT CONSTANT BUFFER
 
 : TEST
-	S" /etc/fstab" R/O OPEN-FILE
-	?DUP IF S" /etc/fstab" PERROR QUIT THEN
+	S" test_read_file.f.out" R/O OPEN-FILE
+	?DUP IF S" test_read_file.f.out" PERROR QUIT THEN
 
 	TO FD