File: test.sh

package info (click to toggle)
slime 1:20060925-1
  • links: PTS
  • area: non-free
  • in suites: etch, etch-m68k
  • size: 1,860 kB
  • ctags: 2,923
  • sloc: lisp: 25,436; makefile: 119; sh: 117; awk: 10
file content (53 lines) | stat: -rwxr-xr-x 1,458 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
#!/bin/sh

# Run the SLIME test suite in batch mode, saving the results to a file.

# This script's exit status is the number of tests failed. If no tests
# fail then no output is printed. If at least one test fails then a
# one-line summary is printed.

# If something unexpected fails, you might get an exit code like 127
# or 255 instead. Sorry.

# This code has been placed in the Public Domain.  All warranties
# are disclaimed.

if [ $# != 4 ]; then
    echo "Usage: $0 <emacs> <lisp> <dribble-file> <results-file>"
    exit 1
fi

emacs=$1; lisp=$2; dribble=$3; results=$4
slimedir=$(dirname $0)

# Move the code into a directory in /tmp, so that we can compile it
# for the current lisp.

testdir=/tmp/slime-test.$$
test -d $testdir && rm -r $testdir
trap "rm -r $testdir" EXIT	# remove temporary directory on exit

mkdir $testdir
cp $slimedir/*.el $slimedir/*.lisp ChangeLog $testdir

# you can remove "--batch" to get an emacs window for troubleshooting.
$emacs --no-site-file --no-init-file \
       --eval "(setq debug-on-quit t)" \
       --eval "(setq max-lisp-eval-depth 1000)" \
       --eval "(setq load-path (cons \"$testdir\" load-path))" \
       --eval "(require 'slime)" \
       --eval "(setq inferior-lisp-program \"$lisp\")" \
       --eval "(slime-batch-test \"${results}\")" \
       &> $dribble \

status=$?

if [ -f "$results" ]; then
    echo $status "test(s) failed."
else
    # Tests crashed
    echo crashed
fi

exit $status