blob: c774622e31eb820e8462b31e6f1a1ba34e2bb9bd (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(assert-error (error ""))
(assert-error (let ((x (error ""))) #t))
(assert-error (let () (error "") #t))
(assert-error (if (error "") #t #t))
(assert-error (and (error "")))
(assert-error (or (error "")))
(assert-error (funcall (lambda () (error ""))))
(assert-error (while #t (error "")))
(assert-error (cond (#t (error ""))))
(assert-error (cond ((error "") #t)))
|
