aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/check
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/check')
-rwxr-xr-xtest-suite/check20
1 files changed, 20 insertions, 0 deletions
diff --git a/test-suite/check b/test-suite/check
index f415604fd..f206c8413 100755
--- a/test-suite/check
+++ b/test-suite/check
@@ -40,8 +40,28 @@ test_echec() {
done
}
+# La fonction suivante teste la sortie des fichiers qu'elle exécute
+test_output() {
+ for f in $1/*.v; do
+ nbtests=`expr $nbtests + 1`
+ printf " "$f"..."
+ tmpoutput=`mktemp /tmp/coqcheck.XXXXXX`
+ $command $f | tail +3 > $tmpoutput 2>&1
+ foutput=`dirname $f`/`basename $f .v`.out
+ diff $tmpoutput $foutput > /dev/null
+ if [ $? = 0 ]; then
+ echo "Ok"
+ nbtestsok=`expr $nbtestsok + 1`
+ else
+ echo "Error! (unexpected output)"
+ fi
+ done
+}
+
# Programme principal
+echo "Output tests"
+test_output output
echo "Success tests"
test_succes success
echo "Failure tests"