(require "asdf") ;; this in itself ensures that we've listed the files in consfigurator.asd in ;; the correct order (let ((asdf:*compile-file-failure-behaviour* :error) (asdf:*compile-file-warnings-behaviour* :error) (asdf:*user-cache* (uiop:getenv "AUTOPKGTEST_TMP"))) (asdf:load-system "consfigurator/tests")) ;; We can't use ASDF:TEST-SYSTEM because its return value does not indicate ;; whether any tests failed. We have to switch the package back and forth as ;; CL-USER has no *CONSFIG*. (let ((*package* (find-package :consfigurator/tests))) ;; Set TMPDIR so UIOP temporary file utilities use AUTOPKGTEST_TMP. (setf (uiop:getenv "TMPDIR") (uiop:getenv "AUTOPKGTEST_TMP")) (unless (consfigurator/tests::runner) (uiop:quit 2))) (fresh-line)