Restructure Makefile to add automated tests.

[jonesforth.git] / test_read_file.f

diff --git a/test_read_file.f b/test_read_file.f
new file mode 100644 (file)
index 0000000..f3a6f45
--- /dev/null
+++ b/test_read_file.f
@@ -0,0 +1,24 @@
+( -*- text -*-
+       Test READ-FILE.
+       $Id: test_read_file.f,v 1.1 2007-10-07 11:07:15 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
+
+       TO FD
+
+       BEGIN
+               BUFFER 100 CELLS FD READ-FILE
+               ?DUP IF S" READ-FILE" PERROR QUIT THEN
+               DUP
+               BUFFER SWAP TELL
+       0= UNTIL
+
+       FD CLOSE-FILE
+       ?DUP IF S" CLOSE-FILE" PERROR QUIT THEN
+;