aboutsummaryrefslogtreecommitdiff
path: root/src/ellinika/tests/conj-test
diff options
context:
space:
mode:
Diffstat (limited to 'src/ellinika/tests/conj-test')
-rwxr-xr-xsrc/ellinika/tests/conj-test39
1 files changed, 39 insertions, 0 deletions
diff --git a/src/ellinika/tests/conj-test b/src/ellinika/tests/conj-test
new file mode 100755
index 0000000..fbacae1
--- /dev/null
+++ b/src/ellinika/tests/conj-test
@@ -0,0 +1,39 @@
+#! /bin/sh
+
+testdir=conj.dir
+failures=0
+
+testcon() {
+ if guile -s conj/$1.scm | diff -pu samples/$1 - > $testdir/$1.diff
+ then
+ status=PASS
+ rm $testdir/$1.diff
+ else
+ status=FAIL
+ failures=1
+ fi
+ echo "$1: $status"
+}
+
+if ! test -d $testdir; then
+ mkdir $testdir || exit 2
+fi
+
+if test $# -gt 0; then
+ for verb in $*
+ do
+ testcon $verb
+ done
+else
+ find samples -type f -printf '%f\n' |
+ while read verb
+ do
+ testcon $verb
+ done
+fi
+
+if test $failures -eq 0; then
+ rmdir $testdir
+fi
+
+exit $failures

Return to:

Send suggestions and report system problems to the System administrator.