projects
/
clnl
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Prims - Implement <, <=
[clnl]
/
bin
/
diagnose-test
diff --git
a/bin/diagnose-test
b/bin/diagnose-test
index 57fbf28023e1f922e09f2bf8db11a214d6b8db60..52d7c4c9b07ff188aebf85fcb0a0283f42f4d239 100755
(executable)
--- a/
bin/diagnose-test
+++ b/
bin/diagnose-test
@@
-6,17
+6,22
@@
if ! [ -n "$1" ] ; then
fi
TEST=$@
fi
TEST=$@
-sbcl --eval "(asdf:load-system :cl
-
nl-test)" --eval "(quit)" &> /dev/null
+sbcl --eval "(asdf:load-system :clnl-test)" --eval "(quit)" &> /dev/null
runtestfn() {
sbcl --noinform --disable-ldb --lose-on-corruption --end-runtime-options \
runtestfn() {
sbcl --noinform --disable-ldb --lose-on-corruption --end-runtime-options \
- --eval "(asdf:load-system :cl
-
nl-test)" \
- --eval "(cl
-
nl-test::$1 \"$TEST\")" \
+ --eval "(asdf:load-system :clnl-test)" \
+ --eval "(clnl-test::$1 \"$TEST\")" \
--eval "(quit)" 2> /dev/null | sed -n '/^----$/,$p' | tail -n +2
}
scalaprog=$(runtestfn "test-scala-prog")
--eval "(quit)" 2> /dev/null | sed -n '/^----$/,$p' | tail -n +2
}
scalaprog=$(runtestfn "test-scala-prog")
+if [ -z $scalaprog ] ; then
+ echo "Scala prog empty, so use view diagnosis rather than this one"
+ exit 1
+fi
+
scalafile=$(mktemp -u -p . --suffix .scala.dat)
clfile=$(mktemp -u -p . --suffix .cl.dat)
scalafile=$(mktemp -u -p . --suffix .scala.dat)
clfile=$(mktemp -u -p . --suffix .cl.dat)