Add Licensing and Contributing
[clnl] / bin / diagnose-test
index 23b1603947cf013c61958fed9613958ff55a942d..1c99a31d7be266d13bbe50c6c487e8a2a1804260 100755 (executable)
@@ -10,6 +10,7 @@ sbcl --eval "(asdf:load-system :clnl-test)" --eval "(quit)" &> /dev/null
 
 runtestfn() {
   sbcl --noinform --disable-ldb --lose-on-corruption --end-runtime-options \
+    --eval "(asdf:initialize-source-registry \`(:source-registry (:tree ,(car (directory \"src\"))) :INHERIT-CONFIGURATION))" \
     --eval "(asdf:load-system :clnl-test)" \
     --eval "(clnl-test::$1 \"$TEST\")" \
     --eval "(quit)" 2> /dev/null | sed -n '/^----$/,$p' | tail -n +2
@@ -17,6 +18,11 @@ runtestfn() {
 
 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)