#! /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