Regression tests featuring ais1.i anf ais2.i.

diff --git a/.gitignore b/.gitignore
index 70ef795c1590c55605c9bfd5ff8f41a4ec2f93a7..eedd483d2bfea6c2a640e4fcbf861affc03fff07 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -68,6 +68,8 @@ pit/rot13
 pit/rot13b
 pit/sample
 pit/sort
+pit/tests/ais1
+pit/tests/ais2
 pit/tests/count
 pit/tests/hello
 pit/tests/ignorret

diff --git a/pit/CATALOG b/pit/CATALOG
index a5ee9ee04ba9b70b808db4a414f2e65ad362bab7..afcf980db4b0baed2621c9d177e53ba022dc36a5 100644 (file)
--- a/pit/CATALOG
+++ b/pit/CATALOG
@@ -120,8 +120,12 @@ by David Moews
   tests/test2.i                + Reads in two numbers and reports their product
 
 by Alex Smith
-  tests/ais1.i         A very simple test program
-  tests/ais2.i         A demonstration of computed ABSTAIN's power
+  tests/ais1.i         + Reads in numbers terminated with zero and
+                       writes them back out, testing COME FROM/NEXT
+                       interaction.
+  tests/ais2.i         + A demonstration of computed ABSTAIN's power.
+                       Computes the Fibinacci sequence; in the innput file,
+                       ONE means compute the nextvterm and ZERO means stop.
   tests/compucome.i    A program to test computed COME FROM
   tests/onceagain.i    + A single-threaded program testing ONCE and AGAIN
   tests/arrtest.i      A program to test some changes I made to the grammar.

diff --git a/pit/Makefile b/pit/Makefile
index c43a8e8c78057e962f27b295b80dadccd9c13ea4..381903a2f1f85721f220e3c8f3b0bd6b8bac51c8 100644 (file)
--- a/pit/Makefile
+++ b/pit/Makefile
@@ -39,6 +39,8 @@ BASE2SOURCES = \
        ./rot13b.i \
        ./sample.i \
        ./sort.i \
+       ./tests/ais1.i \
+       ./tests/ais2.i \
        ./tests/hello.i \
        ./tests/ignorret \
        ./tests/iogerunds.i \
@@ -115,6 +117,8 @@ test: $(TARGETS)
        @cat tpk.tst | ./tpk | ./regresscheck tpk
        @cat unlambda.tst | ./unlambda | ./regresscheck unlambda
        @cat yapp.tst | yapp >yapptest.i && $(ICK) yapptest.i && yapptest | regresscheck -c yapp.tst yapp; rm -f yapptest.i yapptest
+       @cat tests/ais1.tst | ./tests/ais1 | ./regresscheck tests/ais1 
+       @cat tests/ais2.tst | ./tests/ais2 | ./regresscheck tests/ais2 
        @./tests/count | ./regresscheck tests/count 
        @./tests/hello | ./regresscheck tests/hello 
        @./tests/ignorret | ./regresscheck tests/ignorret 

diff --git a/pit/tests/ais1.chk b/pit/tests/ais1.chk
new file mode 100644 (file)
index 0000000..c169a9e
--- /dev/null
+++ b/pit/tests/ais1.chk
@@ -0,0 +1,16 @@
+ 
+I
+   
+III
+ 
+I
+  
+IV
+ 
+I
+ 
+V
+  
+IX
+_
+

diff --git a/pit/tests/ais1.tst b/pit/tests/ais1.tst
new file mode 100644 (file)
index 0000000..013c2fa
--- /dev/null
+++ b/pit/tests/ais1.tst
@@ -0,0 +1,8 @@
+ONE
+THREE
+ONE
+FOUR
+ONE
+FIVE
+NINE
+ZERO

diff --git a/pit/tests/ais2.chk b/pit/tests/ais2.chk
new file mode 100644 (file)
index 0000000..5919922
--- /dev/null
+++ b/pit/tests/ais2.chk
@@ -0,0 +1,10 @@
+ 
+I
+ 
+I
+  
+II
+   
+III
+ 
+V

diff --git a/pit/tests/ais2.tst b/pit/tests/ais2.tst
new file mode 100644 (file)
index 0000000..8dc8b02
--- /dev/null
+++ b/pit/tests/ais2.tst
@@ -0,0 +1,5 @@
+ONE
+ONE
+ONE
+ONE
+ZERO