Fix test_read_file so it reads its own output (which should obviously

[jonesforth.git] / test_read_file.f

diff --git a/test_read_file.f b/test_read_file.f
index f3a6f45..3e3c847 100644 (file)
--- 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