1 (in-package #:lift-test
)
3 (defvar *expect-error
* nil
)
5 (deftestsuite expect-error
(lift-test)
8 (*test-break-on-errors?
* nil
)
9 (*test-break-on-failures?
* nil
)))
11 (deftestsuite expect-error-helper
()
13 (:expected-error
*expect-error
*))
15 (addtest (expect-error-helper)
17 (error "this is an error"))
19 (deftestsuite expect-error-helper-test-case
()
22 (addtest (expect-error-helper-test-case
23 :expected-error
(progn (print (list :ee
*expect-error
*))
26 (error "this is an error"))
29 (addtest (expect-error)
31 (let* ((*expect-error
* t
)
32 (result (run-tests :suite
'expect-error-helper
)))
33 (ensure-same (lift::suites-run result
) '(expect-error-helper) :test
'equal
)
34 (ensure-same (length (tests-run result
)) 1)
35 (ensure-same (length (errors result
)) 0 :test
'=)))
37 (addtest (expect-error)
38 test-does-not-expect-error
39 (let* ((*expect-error
* nil
)
40 (result (run-tests :suite
'expect-error-helper
)))
41 (ensure-same (length (errors result
)) 1 :test
'=)))
43 (addtest (expect-error)
44 test-case-expects-error
45 (let* ((*expect-error
* t
)
46 (result (run-tests :suite
'expect-error-helper-test-case
)))
47 (ensure-same (lift::suites-run result
) '(expect-error-helper-test-case)
49 (ensure-same (length (tests-run result
)) 1)
50 (ensure-same (length (errors result
)) 0 :test
'=)))
52 (addtest (expect-error)
53 test-case-does-not-expect-error
54 (let* ((*expect-error
* nil
)
55 (result (run-tests :suite
'expect-error-helper-test-case
)))
56 (ensure-same (length (errors result
)) 1 :test
'=)))
60 (defvar *expect-failure
* nil
)
62 (deftestsuite expect-failure
(lift-test)
65 (deftestsuite expect-failure-helper
()
67 (:expected-failure
*expect-failure
*))
69 (addtest (expect-failure-helper)
71 (ensure-null "this is an failure"))
73 (addtest (expect-failure)
75 (let* ((*expect-failure
* t
)
76 (result (run-tests :suite
'expect-failure-helper
)))
77 (ensure-same (lift::suites-run result
)
78 '(expect-failure-helper) :test
'equal
)
79 (ensure-same (length (tests-run result
)) 1)
80 (ensure-same (length (failures result
)) 0 :test
'=)))
82 (addtest (expect-failure)
83 test-does-not-expect-failure
84 (let* ((*expect-failure
* nil
)
85 (result (run-tests :suite
'expect-failure-helper
)))
86 (ensure-same (length (failures result
)) 1 :test
'=)))