3 REPORT_FILE=/tmp/clsql-test-report.txt
4 SEXP_REPORT_FILE=/tmp/clsql-test-report.sexp
5 LISP_CMD_FILE=/tmp/clsql-test.lisp
8 (setq *print-readably* nil)
11 (parse-namestring #+allegro \".clinit.cl\"
12 #+cmu \".cmucl-init.lisp\"
13 #+lispworks \".lispworks\"
14 #+openmcl \"openmcl-init.lisp\"
16 #+scl \".scl-init.lisp\"
18 (user-homedir-pathname))))
19 (if (probe-file boot-file)
21 (warn \"Unable to load boot file ~A.\" boot-file)))
23 (asdf:operate 'asdf:load-op 'clsql-tests)
24 (clsql-tests:run-tests-append-report-file \"${REPORT_FILE}\")
27 #+clisp (#+lisp=cl ext:quit #-lisp=cl lisp:quit)
35 (asdf:operate 'asdf:load-op 'clsql-tests)
36 (clsql-tests:summarize-test-report \"${SEXP_REPORT_FILE}\")
38 #+allegro (excl:exit :quiet t)
39 #+clisp (#+lisp=cl ext:quit #-lisp=cl lisp:quit)
46 rm -rf $REPORT_FILE $SEXP_REPORT_FILE $LISP_CMD_FILE
47 echo $CMD > $LISP_CMD_FILE
50 if [ "`which $ALLEGRO`" ]; then
51 $ALLEGRO -q -L $LISP_CMD_FILE
55 if [ "`which $CMUCL`" ]; then
56 $CMUCL -init $LISP_CMD_FILE
60 #if [ "`which $LISPWORKS`" ]; then
61 $LISPWORKS -init $LISP_CMD_FILE
65 #if [ "`which $OPENMCL`" ]; then
66 $OPENMCL -init $LISP_CMD_FILE
70 if [ "`which $SBCL`" ]; then
71 $SBCL --noinform --disable-debugger --userinit $LISP_CMD_FILE
74 if [ -s $SEXP_REPORT_FILE ]; then
75 echo "$SUMMARY_CMD" | $SBCL
78 #rm -rf $LISP_CMD_FILE