blob: acfb7678319b252e96e9b1b8f28642ee6508c87e (
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
#!/bin/bash
REPORT_FILE=/tmp/clsql-test-report.txt
SEXP_REPORT_FILE=/tmp/clsql-test-report.sexp
LISP_CMD_FILE=/tmp/clsql-test.lisp
CMD="
(setq *print-readably* nil)
(let ((boot-file
(merge-pathnames
(parse-namestring #+allegro \".clinit.cl\"
#+cmu \".cmucl-init.lisp\"
#+lispworks \".lispworks\"
#+openmcl \"openmcl-init.lisp\"
#+sbcl \".sbclrc\"
#+scl \".scl-init.lisp\"
)
(user-homedir-pathname))))
(if (probe-file boot-file)
(load boot-file)
(warn \"Unable to load boot file ~A.\" boot-file)))
(asdf:operate 'asdf:load-op 'clsql-tests)
(clsql-tests:run-tests-append-report-file \"${REPORT_FILE}\")
#+allegro (excl:exit)
#+clisp (#+lisp=cl ext:quit #-lisp=cl lisp:quit)
#+cmu (ext:quit)
#+lispworks (lw:quit)
#+openmcl (ccl:quit)
#+sbcl (sb-ext:quit)
#+scl (ext:quit)"
SUMMARY_CMD="
(asdf:operate 'asdf:load-op 'clsql-tests)
(clsql-tests:summarize-test-report \"${SEXP_REPORT_FILE}\")
#+allegro (excl:exit :quiet t)
#+clisp (#+lisp=cl ext:quit #-lisp=cl lisp:quit)
#+cmu (ext:quit)
#+lispworks (lw:quit)
#+openmcl (ccl:quit)
#+sbcl (sb-ext:quit))
#+scl (ext:quit)"
rm -rf $REPORT_FILE $SEXP_REPORT_FILE $LISP_CMD_FILE
echo $CMD > $LISP_CMD_FILE
ALLEGRO=mlisp
if [ "`which $ALLEGRO`" ]; then
$ALLEGRO -q -L $LISP_CMD_FILE
fi
CMUCL=lisp
if [ "`which $CMUCL`" ]; then
$CMUCL -init $LISP_CMD_FILE
fi
LISPWORKS=lw-console
#if [ "`which $LISPWORKS`" ]; then
$LISPWORKS -init $LISP_CMD_FILE
#fi
OPENCML=openmcl
#if [ "`which $OPENMCL`" ]; then
$OPENMCL -init $LISP_CMD_FILE
#fi
SBCL=sbcl
if [ "`which $SBCL`" ]; then
$SBCL --noinform --disable-debugger --userinit $LISP_CMD_FILE
fi
if [ -s $SEXP_REPORT_FILE ]; then
echo "$SUMMARY_CMD" | $SBCL
fi
#rm -rf $LISP_CMD_FILE
|