Interface - add resize capabilities

[clnl] / bin / diagnose-view-test

diff --git a/bin/diagnose-view-test b/bin/diagnose-view-test
index 9841e109e9313719386565d98377ad102ccd8f4f..efa99f34837620b31fb1333fa01a816a7e72f8d3 100755 (executable)
--- a/bin/diagnose-view-test
+++ b/bin/diagnose-view-test
@@ -11,6 +11,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
@@ -44,10 +45,13 @@ scalafiledisplaypid=$!
 display $clfile &
 clfiledisplaypid=$!
 
-echo -n "... and hit enter to finish"
+echo -n "... and hit enter to close scala image"
 read
 
 kill $scalafiledisplaypid
+
+echo -n "... and hit enter to finish"
+read
 kill $clfiledisplaypid
 
 rm $scalafile