[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog test.sh 
Log Message:
* test.sh: Use batch mode by default.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/11 17:41:59	1.1442
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/12 12:56:51	1.1443
@@ -1,5 +1,9 @@
 2008-08-11  Helmut Eller  <heller at common-lisp.net>
 
+	* test.sh: Use batch mode by default.
+
+2008-08-11  Helmut Eller  <heller at common-lisp.net>
+
 	Improve interrupt safety for single-threaded lisps.
 
 	* slime.el (slime-interrupt): Send a :emacs-interrupt message
--- /project/slime/cvsroot/slime/test.sh	2008/08/08 15:02:04	1.13
+++ /project/slime/cvsroot/slime/test.sh	2008/08/12 12:56:51	1.14
@@ -14,16 +14,23 @@
 # are disclaimed.
 
 function usage () {
-    echo "Usage: $name [-v] [-r] <emacs> <lisp>"
+    echo <<EOF 
+Usage: $name [-b] [-s] [-r]  <emacs> <lisp>"
+-b  disable batch mode
+-s  use screen to hide emacs
+-r  show results file
+EOF
     exit 1
 }
 
 name=$0
+batch_mode=-batch
 
-while getopts vr opt; do
+while getopts vrb opt; do
     case $opt in
-	v) verbose=true;;
+	s) use_screen=true;;
 	r) dump_results=true;;
+	b) batch_mode="";;
 	*) usage;;
     esac
 done
@@ -50,14 +57,14 @@
 cp -r $slimedir/*.{el,lisp} ChangeLog $slimedir/contrib  $testdir
 mkfifo $dribble
 
-cmd=($emacs -nw -q -no-site-file --no-site-file
+cmd=($emacs -nw -q -no-site-file $batch_mode --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
+if [ "$use_screen" = "" ]; then
     "${cmd[@]}"
     echo $? > $statusfile
 else