1 (in-package #:lift-test
)
3 (defvar *expect-error
* nil
)
5 (deftestsuite expect-error
(lift-test)
8 (deftestsuite expect-error-helper
()
10 (:expected-error
*expect-error
*))
12 (addtest (expect-error-helper)
14 (error "this is an error"))
16 (addtest (expect-error)
18 (let* ((*expect-error
* t
)
19 (result (run-tests :suite
'expect-error-helper
)))
20 (ensure-same (lift::suites-run result
) '(expect-error-helper) :test
'equal
)
21 (ensure-same (length (tests-run result
)) 1)
22 (ensure-same (length (errors result
)) 0 :test
'=)))
24 (addtest (expect-error)
25 test-does-not-expect-error
26 (let* ((*expect-error
* nil
)
27 (result (run-tests :suite
'expect-error-helper
)))
28 (ensure-same (length (errors result
)) 1 :test
'=)))
32 (defvar *expect-failure
* nil
)
34 (deftestsuite expect-failure
(lift-test)
37 (deftestsuite expect-failure-helper
()
39 (:expected-failure
*expect-failure
*))
41 (addtest (expect-failure-helper)
43 (ensure-null "this is an failure"))
45 (addtest (expect-failure)
47 (let* ((*expect-failure
* t
)
48 (result (run-tests :suite
'expect-failure-helper
)))
49 (ensure-same (lift::suites-run result
)
50 '(expect-failure-helper) :test
'equal
)
51 (ensure-same (length (tests-run result
)) 1)
52 (ensure-same (length (failures result
)) 0 :test
'=)))
54 (addtest (expect-failure)
55 test-does-not-expect-failure
56 (let* ((*expect-failure
* nil
)
57 (result (run-tests :suite
'expect-failure-helper
)))
58 (ensure-same (length (failures result
)) 1 :test
'=)))