From 0e07b3421a8ee857547c89d20a0f805b5a930f44 Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@thyrsus.com>
Date: Wed, 19 Apr 1995 23:12:06 +0000
Subject: [PATCH] CORC seems to work.

---
 test/MAKEREGRESS | 10 ++++++++--
 test/REGRESS     | 11 +++++++++--
 2 files changed, 17 insertions(+), 4 deletions(-)

diff --git a/test/MAKEREGRESS b/test/MAKEREGRESS
index 0760ce1..0cb34a7 100755
--- a/test/MAKEREGRESS
+++ b/test/MAKEREGRESS
@@ -2,17 +2,23 @@
 #
 # Make regression-test loads for the CUPL compiler front end
 #
-TESTLOADS="cubic fancyquad poly11 power prime quadratic random rise simplequad squares sum"
+TESTCUPL="cubic fancyquad poly11 power prime quadratic random rise simplequad squares sum"
+TESTCORC="factorial powercorc quadcorc sumsquares"
 
 trap "rm -f testcupl$$; exit 0"
 
 rm -f *.test
 
-for x in $TESTLOADS
+for x in $TESTCUPL
 do
 	echo "Making ${x}.test from ${x}.cupl..."
 	../cupl -v1 ${x}.cupl >${x}.test 2>&1
 done
+for x in $TESTCORC
+do
+	echo "Making ${x}.test from ${x}.corc..."
+	../cupl -v1 ${x}.corc >${x}.test 2>&1
+done
 
 chmod -w *.test
 
diff --git a/test/REGRESS b/test/REGRESS
index a2776fe..414f030 100755
--- a/test/REGRESS
+++ b/test/REGRESS
@@ -2,16 +2,23 @@
 #
 # Regression-test the CUPL compiler front end
 #
-TESTLOADS="cubic fancyquad poly11 power prime quadratic random rise simplequad squares sum"
+TESTCUPL="cubic fancyquad poly11 power prime quadratic random rise simplequad squares sum"
+TESTCORC="factorial powercorc quadcorc sumsquares"
 
 trap "rm -f testcupl$$; exit 0"
 
-for x in $TESTLOADS
+for x in $TESTCUPL
 do
 	echo "Testing against ${x}.cupl..."
 	../cupl -v1 ${x}.cupl >testcupl$$
 	diff -c ${x}.test testcupl$$
 done
+for x in $TESTCORC
+do
+	echo "Testing against ${x}.corc..."
+	../cupl -v1 ${x}.corc >testcupl$$
+	diff -c ${x}.test testcupl$$
+done
 echo "Done"
 
 # regress ends here
-- 
2.43.0