/[slime]/slime/test.sh
ViewVC logotype

Contents of /slime/test.sh

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (show annotations)
Thu Oct 16 22:56:37 2003 UTC (10 years, 6 months ago) by lgorrie
Branch: MAIN
Changes since 1.2: +1 -1 lines
File MIME type: application/x-sh
Don't bother limiting retries.
Increase max-lisp-eval-depth (possibly cheating)
1 #!/bin/sh
2
3 # Run the SLIME test suite in batch mode, saving the results to a file.
4
5 # This script's exit status is the number of tests failed. If no tests
6 # fail then no output is printed. If at least one test fails then a
7 # one-line summary is printed.
8
9 # If something unexpected fails, you might get an exit code like 127
10 # or 255 instead. Sorry.
11
12 if [ $# != 4 ]; then
13 echo "Usage: $0 <emacs> <lisp> <dribble-file> <results-file>"
14 exit 1
15 fi
16
17 emacs=$1; lisp=$2; dribble=$3; results=$4
18 slimedir=$(dirname $0)
19
20 # Move the code into a directory in /tmp, so that we can compile it
21 # for the current lisp.
22
23 testdir=/tmp/slime-test.$$
24 test -d $testdir && rm -r $testdir
25 trap "rm -r $testdir" EXIT # remove temporary directory on exit
26
27 mkdir $testdir
28 cp $slimedir/*.el $slimedir/*.lisp $testdir
29
30 # you can remove "--batch" to get an emacs window for troubleshooting.
31 $emacs --batch --no-site-file --no-init-file \
32 --eval "(setq debug-on-quit t)" \
33 --eval "(setq max-lisp-eval-depth 1000)" \
34 --eval "(setq load-path (cons \"$testdir\" load-path))" \
35 --eval "(require 'slime)" \
36 --eval "(setq inferior-lisp-program \"$lisp\")" \
37 --eval "(slime-batch-test \"${results}\")" \
38 &> $dribble \
39
40 status=$?
41
42 if [ $status != 0 ]; then
43 echo $status "test(s) failed."
44 fi
45
46 exit $status
47

  ViewVC Help
Powered by ViewVC 1.1.5