exception & try-catch

1 files changed, 20 insertions, 0 deletions

diff --git a/tests/error.lisp b/tests/error.lisp
index c774622..4cfd8a3 100644
--- a/tests/error.lisp
+++ b/tests/error.lisp
@@ -9,3 +9,23 @@
 (assert-error (cond (#t (error ""))))
 (assert-error (cond ((error "") #t)))
 
+(assert-exception (throw ""))
+(assert-exception (let ((x (throw ""))) #t))
+(assert-exception (let () (throw "") #t))
+(assert-exception (if (throw "") #t #t))
+(assert-exception (and (throw "")))
+(assert-exception (or (throw "")))
+(assert-exception (funcall (lambda () (throw ""))))
+(assert-exception (while #t (throw "")))
+(assert-exception (cond (#t (throw ""))))
+(assert-exception (cond ((throw "") #t)))
+
+(defvar flag 1)
+(try 
+  (let ()
+    (+ 1 2)
+    (throw 42))
+  (lambda (e)
+    (assert (= e 42))
+    (setq flag 0)))
+(assert (= flag 0))