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 @@
1#! /bin/sh
2
3testdir=conj.dir
4failures=0
5
6testcon() {
7 if guile -s conj/$1.scm | diff -pu samples/$1 - > $testdir/$1.diff
8 then
9 status=PASS
10 rm $testdir/$1.diff
11 else
12 status=FAIL
13 failures=1
14 fi
15 echo "$1: $status"
16}
17
18if ! test -d $testdir; then
19 mkdir $testdir || exit 2
20fi
21
22if test $# -gt 0; then
23 for verb in $*
24 do
25 testcon $verb
26 done
27else
28 find samples -type f -printf '%f\n' |
29 while read verb
30 do
31 testcon $verb
32 done
33fi
34
35if test $failures -eq 0; then
36 rmdir $testdir
37fi
38
39exit $failures

Return to:

Send suggestions and report system problems to the System administrator.