blob: 9db4ffc0d8c130f15d18eb10baf9932cfe693d87 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
(require "asdf")
(push (uiop/os:getcwd) asdf:*central-registry*)
(asdf:load-system "parenscript.tests")
(uiop:quit (if (fiveam:run 'parenscript.tests:parenscript-tests) 0 1))
; "(setq *debugger-hook*
; (lambda (condition x)
; (declare (ignore x))
; (let ((*standard-output* uiop:*stderr*))
; (fresh-line)
; (write-string \"Debugger entered with error \")
; (princ (type-of condition))
; (write-string \": \")
; (princ condition)
; (terpri)
; (uiop:quit 1))))
; (ql:quickload \"parenscript.tests\")
; (let* ((fiveam:*print-names* nil)
; (fiveam:*test-dribble* uiop:*stderr*)
; (test-results (fiveam:run
; 'parenscript.tests:parenscript-tests)))
; (unless (fiveam:results-status test-results)
; (fiveam:explain! test-results)
; (uiop:quit 1)))")
|