Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 159 lines (139 sloc) 3.77 KB
#!/bin/bash
FASL_CACHE=$HOME/.cache/common-lisp
echo "Test results" > test-results
# ensure we are building everything fresh
find $FASL_CACHE -name \*modf -exec rm -r {} \;
if which sbcl
then
sbcl <<EOF
(ql:quickload :modf-test)
(stefil:without-debugging (modf-test:run-tests))
(with-open-file (out #p"test-results" :if-exists :append :direction :output)
(format out "sbcl: ~A~%" stefil:*last-test-result*))
EOF
fi
# cmucl
if which lisp
then
lisp <<EOF
(ql:quickload :modf-test)
(stefil:without-debugging (modf-test:run-tests))
(with-open-file (out #p"test-results" :if-exists :append :direction :output)
(format out "cmucl: ~A~%" stefil:*last-test-result*))
(quit)
EOF
fi
if which ccl
then
ccl <<EOF
(ql:quickload :modf-test)
(stefil:without-debugging (modf-test:run-tests))
(with-open-file (out #p"test-results" :if-exists :append :direction :output)
(format out "ccl: ~A~%" stefil:*last-test-result*))
EOF
fi
if which ccl64
then
ccl64 <<EOF
(ql:quickload :modf-test)
(stefil:without-debugging (modf-test:run-tests))
(with-open-file (out #p"test-results" :if-exists :append :direction :output)
(format out "ccl64: ~A~%" stefil:*last-test-result*))
EOF
fi
if which clisp
then
clisp <<EOF
(ql:quickload :modf-test)
(stefil:without-debugging (modf-test:run-tests))
(with-open-file (out #p"test-results" :if-exists :append :direction :output)
(format out "clisp: ~A~%" stefil:*last-test-result*))
EOF
fi
if which ecl
then
ecl <<EOF
(ql:quickload :modf-test)
(stefil:without-debugging (modf-test:run-tests))
(with-open-file (out #p"test-results" :if-exists :append :direction :output)
(format out "ecl: ~A~%" stefil:*last-test-result*))
EOF
fi
if which abcl
then
abcl <<EOF
(ql:quickload :modf-test)
(stefil:without-debugging (modf-test:run-tests))
(with-open-file (out #p"test-results" :if-exists :append :direction :output)
(format out "abcl: ~A~%" stefil:*last-test-result*))
EOF
fi
# Now run again to test what happens if the library is loaded from FASL files
# instead of compiled fresh
echo >> test-results
echo Testing the compiled library: >> test-results
if which sbcl
then
sbcl <<EOF
(ql:quickload :modf-test)
(stefil:without-debugging (modf-test:run-tests))
(with-open-file (out #p"test-results" :if-exists :append :direction :output)
(format out "sbcl: ~A~%" stefil:*last-test-result*))
EOF
fi
# cmucl
if which lisp
then
lisp <<EOF
(ql:quickload :modf-test)
(stefil:without-debugging (modf-test:run-tests))
(with-open-file (out #p"test-results" :if-exists :append :direction :output)
(format out "cmucl: ~A~%" stefil:*last-test-result*))
(quit)
EOF
fi
if which ccl
then
ccl <<EOF
(ql:quickload :modf-test)
(stefil:without-debugging (modf-test:run-tests))
(with-open-file (out #p"test-results" :if-exists :append :direction :output)
(format out "ccl: ~A~%" stefil:*last-test-result*))
EOF
fi
if which ccl64
then
ccl64 <<EOF
(ql:quickload :modf-test)
(stefil:without-debugging (modf-test:run-tests))
(with-open-file (out #p"test-results" :if-exists :append :direction :output)
(format out "ccl64: ~A~%" stefil:*last-test-result*))
EOF
fi
if which clisp
then
clisp <<EOF
(ql:quickload :modf-test)
(stefil:without-debugging (modf-test:run-tests))
(with-open-file (out #p"test-results" :if-exists :append :direction :output)
(format out "clisp: ~A~%" stefil:*last-test-result*))
EOF
fi
if which ecl
then
ecl <<EOF
(ql:quickload :modf-test)
(stefil:without-debugging (modf-test:run-tests))
(with-open-file (out #p"test-results" :if-exists :append :direction :output)
(format out "ecl: ~A~%" stefil:*last-test-result*))
EOF
fi
if which abcl
then
abcl <<EOF
(ql:quickload :modf-test)
(stefil:without-debugging (modf-test:run-tests))
(with-open-file (out #p"test-results" :if-exists :append :direction :output)
(format out "abcl: ~A~%" stefil:*last-test-result*))
EOF
fi
Something went wrong with that request. Please try again.