blob: e0e0c4afaa67eeca6b5ecc1f7fe9ef318302ea38 (
plain)
1
2
3
4
5
6
7
8
9
10
|
(assert-error (error ""))
(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)))
|
