diff options
| author | Mistivia <i@mistivia.com> | 2025-06-23 00:04:01 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-06-23 00:04:01 +0800 |
| commit | 89f144d3ab27e54f7ad8cbf393418a3baa169f0f (patch) | |
| tree | 45ec23a86cdc86300f4f83321c79eb38b80bdffc /tests/error.lisp | |
| parent | 7563e4e5c3c346b8b11f7e66cdb11c81bcf58fa9 (diff) | |
add test case
Diffstat (limited to 'tests/error.lisp')
| -rw-r--r-- | tests/error.lisp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tests/error.lisp b/tests/error.lisp index e0e0c4a..c774622 100644 --- a/tests/error.lisp +++ b/tests/error.lisp @@ -1,4 +1,5 @@ (assert-error (error "")) +(assert-error (let ((x (error ""))) #t)) (assert-error (let () (error "") #t)) (assert-error (if (error "") #t #t)) (assert-error (and (error ""))) |