Add conjugations samples.

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