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
|
#!/bin/sh
CMDLINE="sbcl --noinform --load xmls --eval"
FORM="(xmls::test)"
ALLEGROCMD="/usr/local/acl/acl62/lisp"
SEPARATOR=""
usage () {
cat <<USAGE
usage: run-tests.sh [options] [tests]
options:
--sbcl run tests with sbcl (default)
--cmucl run tests with cmucl
--all run all tests in tests directory
--verbose output parsed xml
--acl62 run tests with Allegro Common Lisp, v6.2
USAGE
exit 1
}
while [ $# -gt 0 ]; do
case $1 in
--cmucl)
CMDLINE="lisp -load xmls -eval"
shift
;;
--acl62)
CMDLINE="${ALLEGROCMD} -L xmls -e"
SEPARATOR="--"
shift
;;
--all)
TESTS="tests/*/*"
shift
;;
--verbose)
FORM="(progn (setf xmls::*test-verbose* t)(xmls::test))"
shift
;;
*)
TESTS="$*"
break
;;
esac
done
if test -z "$TESTS"; then
usage
fi
$CMDLINE "$FORM" $SEPARATOR $TESTS
|
