[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv2220

Modified Files:
	test.sh ChangeLog 
Log Message:
Update test script for Emacs 23.


--- /project/slime/cvsroot/slime/test.sh	2007/08/27 13:16:49	1.9
+++ /project/slime/cvsroot/slime/test.sh	2008/03/04 15:48:40	1.10
@@ -49,27 +49,24 @@
 cp -r $slimedir/*.{el,lisp} ChangeLog $slimedir/contrib  $testdir
 mkfifo $dribble
 
-session=slime-screen.$$
-
-screen -S $session -m -D bash -c "$emacs -nw -q -no-site-file --no-site-file \
-       --eval '(setq debug-on-quit t)' \
-       --eval '(setq max-lisp-eval-depth 1000)' \
-       --eval '(setq load-path (cons \"$testdir\" load-path))' \
-       --eval '(require (quote slime))' \
-       --eval '(setq inferior-lisp-program \"$lisp\")' \
-       --eval '(slime-batch-test \"$results\")' > $dribble;\
-       echo \$? > $statusfile" &
-
-screenpid=$!
+cmd=($emacs -nw -q -no-site-file --no-site-file
+       --eval "(setq debug-on-quit t)"
+       --eval "(add-to-list 'load-path \"$testdir\")"
+       --eval "(require 'slime)"
+       --eval "(setq inferior-lisp-program \"$lisp\")"
+       --eval "(slime-batch-test \"$results\")")
 
 if [ "$verbose" = true ]; then
-    cat $dribble &
-else
-    cat $dribble > /dev/null &
-fi;
-
-trap "screen -S $session -X quit" SIGINT
-wait $screenpid
+    "${cmd[@]}"
+    echo $? > $statusfile
+else 
+    session=slime-screen.$$
+    screen -S $session -m -D \
+	bash -c "\"\$@\"; echo \$? > $statusfile" "" "${cmd[@]}" &
+    screenpid=$!
+    trap "screen -S $session -X quit" SIGINT
+    wait $screenpid
+fi
 
 if [ -f "$statusfile" ]; then
     [ "$dump_results" = true ] && cat $results;
--- /project/slime/cvsroot/slime/ChangeLog	2008/03/04 13:40:50	1.1310
+++ /project/slime/cvsroot/slime/ChangeLog	2008/03/04 15:48:40	1.1311
@@ -1,3 +1,7 @@
+2008-03-04  Helmut Eller  <heller at common-lisp.net>
+
+	* test.sh: Updated for Emacs 23.
+
 2008-03-04  Andreas Fuchs <asf at boinkor.net>
 
 	* swank.asd (asdf:output-files, asdf:perform): Make compile-op on