-#
-# Run CLSQL tests on all installed CL implementations
-# Need to setup ~/.clsql-tests.config as show in
-# tests/test-init.lisp
-
-CMD='(asdf:operate (quote asdf:test-op) :clsql-classic)
- (asdf:operate (quote asdf:test-op) :clsql)
- #+allegro (excl:exit :quiet t)
+
+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)