X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?a=blobdiff_plain;f=bin%2Fdiagnose-test;h=52d7c4c9b07ff188aebf85fcb0a0283f42f4d239;hb=399b297;hp=57fbf28023e1f922e09f2bf8db11a214d6b8db60;hpb=d4ab3334d216c9963f9459d9e8870c6abafce8f1;p=clnl

diff --git a/bin/diagnose-test b/bin/diagnose-test
index 57fbf28..52d7c4c 100755
--- a/bin/diagnose-test
+++ b/bin/diagnose-test
@@ -6,17 +6,22 @@ if ! [ -n "$1" ] ; then
 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 \
-    --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")
 
+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)