From bf635078e2e50fb5a11e0ff1937007f1fec3beda Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org.ua>
Date: Sun, 3 Jul 2011 13:06:12 +0300
Subject: Add conjugations samples.

---
 src/ellinika/tests/conj-test | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100755 src/ellinika/tests/conj-test

(limited to 'src/ellinika/tests/conj-test')

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
-- 
cgit v1.2.1