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
54
55
56
57
58
59
|
#!/bin/sh
# $Id: run-tests.sh 543 2010-02-24 19:29:17Z rpgoldman $
FORM="(xmls::test)"
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
--allegro run tests with Allegro Common Lisp, ANSI mode
--allegromodern run tests with Allegro Common Lisp, modern case-sensitive mode
USAGE
exit 1
}
CMDLINE="sbcl --no-userinit --load xmls --load xmlrep-helpers --eval"
while [ $# -gt 0 ]; do
case $1 in
--cmucl)
CMDLINE="lisp -load xmls -load xmlrep-helpers -eval"
shift
;;
--allegro)
CMDLINE="alisp -q -L xmls -L xmlrep-helpers -e"
SEPARATOR="--"
shift
;;
--allegromodern)
CMDLINE="mlisp -q -L xmls -L xmlrep-helpers -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
|
