updated test script
This commit is contained in:
parent
5b16336b1c
commit
9d1da86a8a
@ -2,9 +2,18 @@
|
|||||||
|
|
||||||
(DECLAIM (OPTIMIZE (speed 3) (space 0) (debug 3)))
|
(DECLAIM (OPTIMIZE (speed 3) (space 0) (debug 3)))
|
||||||
|
|
||||||
(require 'asdf)
|
(require :asdf)
|
||||||
|
(require :kenzo)
|
||||||
(asdf:operate 'asdf:load-op 'kenzo-test)
|
(require :ecl-quicklisp)
|
||||||
|
(ql:quickload "fiveam")
|
||||||
|
(push #P"./" asdf:*central-registry*)
|
||||||
|
(require :kenzo-test)
|
||||||
|
(setf fiveam:*debug-on-error* t
|
||||||
|
fiveam:*debug-on-failure* t)
|
||||||
|
(setf *debugger-hook*
|
||||||
|
(lambda (c h)
|
||||||
|
(declare (ignore c h))
|
||||||
|
(uiop:quit -1)))
|
||||||
(fiveam:run! :kenzo)
|
(fiveam:run! :kenzo)
|
||||||
|
|
||||||
#+(or ecl ccl) (quit)
|
#+(or ecl ccl) (quit)
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user