Regression test featuring pass.i.

diff --git a/.gitignore b/.gitignore
index e13bd9fba88335d38dd51a89ccca5b981abff1a5..70ef795c1590c55605c9bfd5ff8f41a4ec2f93a7 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -57,6 +57,7 @@ pit/lib/syslib6
 pit/lib/syslib7
 pit/life
 pit/life2
+pit/pass
 pit/pi
 pit/pow
 pit/primes

diff --git a/pit/CATALOG b/pit/CATALOG
index 191601412c8d9444d2be448c4510aba22156fc0a..a5ee9ee04ba9b70b808db4a414f2e65ad362bab7 100644 (file)
--- a/pit/CATALOG
+++ b/pit/CATALOG
@@ -145,9 +145,12 @@ by Alex Smith
   continuation.doc     About usage and internals of the continuation library
 
 by Malcom Ryan
-  tests/testonce.i     + A single-threaded program testing ONCE and AGAIN
-  pass.i               A multithread program illustrating communications
-                       between threads
+  tests/testonce.i     + A single-threaded program that tests all permutations
+                       of the ONCE modifier; the output is simply to verify 
+                       that the program flow follows the sequence expected.
+  pass.i               + A multithread program illustrating communications
+                       between threads.  Simply reads in a list of
+                       numbers (terminated by ZERO) and writes them out.
 
 The programs test16bit.i, testarray.i, testcf.i, testlib2.i, mult.i,
 limits.*, testops*i, testsplat.i, were all written by Louis

diff --git a/pit/Makefile b/pit/Makefile
index 864cf0c0863a56c6a846e33ac9a9c22eb19b27a3..c43a8e8c78057e962f27b295b80dadccd9c13ea4 100644 (file)
--- a/pit/Makefile
+++ b/pit/Makefile
@@ -31,6 +31,7 @@ BASE2SOURCES = \
        ./pi.i \
        ./pow.i \
        ./quine \
+       ./pass.i \
        ./primes.i \
        ./random.i \
        ./random2.i \
@@ -108,6 +109,7 @@ test: $(TARGETS)
        @echo 'A man, a plan, a canal, Panama.' | ./rot13b | ./regresscheck rot13b
        @echo "FIVE" | ./pi | ./regresscheck pi
        @cat pow.tst | ./pow 2>&1 | ./regresscheck pow
+       @cat pass.tst | ./pass | ./regresscheck pass
        @cp quine.i quine.chk; ./quine | ./regresscheck quine; rm quine.chk 
        @cat sort.tst | ./sort | ./regresscheck sort
        @cat tpk.tst | ./tpk | ./regresscheck tpk
@@ -128,6 +130,8 @@ test: $(TARGETS)
 # Some tests need options to compile extensions.
 fft: fft.i
        $(ICK) -m fft.i
+pass: pass.i
+       $(ICK) -m pass.i
 tests/permute: tests/permute.i
        $(ICK) -m tests/permute.i
 tests/whileadd: tests/whileadd.i

diff --git a/pit/pass.chk b/pit/pass.chk
new file mode 100644 (file)
index 0000000..087cd6e
--- /dev/null
+++ b/pit/pass.chk
@@ -0,0 +1,8 @@
+ 
+I
+  
+II
+   
+III
+  
+IV

diff --git a/pit/pass.tst b/pit/pass.tst
new file mode 100644 (file)
index 0000000..720187a
--- /dev/null
+++ b/pit/pass.tst
@@ -0,0 +1,5 @@
+ONE
+TWO
+THREE
+FOUR
+ZERO