diff options
Diffstat (limited to 'tests/error.lisp')
| -rw-r--r-- | tests/error.lisp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/error.lisp b/tests/error.lisp new file mode 100644 index 0000000..e0e0c4a --- /dev/null +++ b/tests/error.lisp @@ -0,0 +1,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))) + |