blob: 5af4bb15d6dd04d9fc803769ea9c3554eddd3f63 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(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)
|