blob: b2167b161485f9cfb13137d3b2b0ef2f94b72533 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(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)))
(unless (consfigurator/tests::runner)
(uiop:quit 2)))
(fresh-line)
|