CORC seems to work.

diff --git a/test/MAKEREGRESS b/test/MAKEREGRESS
index 0760ce188e8016c2bd34935808c85ca031fde0ff..0cb34a7c4fb3c4efa4afcddf1925676d1b7ead48 100755 (executable)
--- 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 a2776fec41a5a825c82c4776a6b9fa546ca4e886..414f0307347841209a2c51aed4e2466effb36089 100755 (executable)
--- 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