2018-10-15 17:01:57 +08:00
|
|
|
(require 'asdf)
|
|
|
|
|
|
|
|
|
|
(let ((home (or (uiop:getenvp "QUICKLISP_HOME")
|
|
|
|
|
(concatenate 'string (uiop:getenvp "HOME") "/quicklisp"))))
|
|
|
|
|
(load (concatenate 'string home "/setup.lisp")))
|
|
|
|
|
|
2019-03-24 03:44:01 +08:00
|
|
|
(ql:quickload "lcp/test" :silent t)
|
2018-10-15 17:01:57 +08:00
|
|
|
(setf uiop:*image-entry-point*
|
|
|
|
|
(lambda ()
|
2019-03-24 03:44:01 +08:00
|
|
|
(let ((*package* (find-package :lcp.test))
|
|
|
|
|
(prove:*default-reporter* :fiveam))
|
2019-03-06 21:29:02 +08:00
|
|
|
(prove:plan nil)
|
2019-03-24 03:44:01 +08:00
|
|
|
(unless (prove:run-test-package :lcp.test)
|
2018-10-15 17:01:57 +08:00
|
|
|
(uiop:quit 1)))))
|
|
|
|
|
(uiop:dump-image "test_lcp" :executable t)
|
