blob: 0c4f87e176217fa2461bce529e8d123571151410 (
plain)
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
|
#!/bin/sh
do_tests() {
rm *.$2 || true
( cd .. && echo '(compile-file "asdf")' |$1 )
for i in *.script;
do
rm *.$2 || true
if $1 < $i ;then
echo "Using $1, $i passed" >&2
else
echo "Using $1, $i failed" >&2
exit 1
fi
done
echo "Using $1, all tests apparently successful" >&2
}
# do_tests {lisp invocation} {fasl extension}
# - read lisp forms one at a time from standard input
# - quit with exit status 0 on getting eof
# - quit with exit status >0 if an unhandled error occurs
set -e
if type sbcl
then
do_tests "sbcl --userinit /dev/null --sysinit /dev/null --noprogrammer" fasl
fi
if [ -x /usr/bin/lisp ]
then
do_tests "/usr/bin/lisp -batch -noinit" x86f
fi
if [ -x /usr/bin/clisp ]
then
do_tests "/usr/bin/clisp -norc -ansi -I " fas
fi
|