Initial revision

diff --git a/test/REGRESS b/test/REGRESS
new file mode 100755 (executable)
index 0000000..b62e3dd
--- /dev/null
+++ b/test/REGRESS
@@ -0,0 +1,18 @@
+#!/bin/sh
+#
+# Regression-test the CUPL compiler front end
+#
+TESTLOADS="cubic fancyquad poly11 power prime quadratic random rise simplequad squares sum"
+
+trap "rm -f testcupl$$; exit 0"
+
+for x in $TESTLOADS
+do
+       echo "Testing against ${x}.cupl..."
+       ../cupl -v1 ${x}.cupl >testcupl$$
+       diff -c ${x}.parse testcupl$$
+done
+echo "Done"
+
+# regress ends here
+