summaryrefslogtreecommitdiff
path: root/test-suite/tests/fluids.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/fluids.test')
-rw-r--r--test-suite/tests/fluids.test8
1 files changed, 7 insertions, 1 deletions
diff --git a/test-suite/tests/fluids.test b/test-suite/tests/fluids.test
index c043d94d3..9eca6f29d 100644
--- a/test-suite/tests/fluids.test
+++ b/test-suite/tests/fluids.test
@@ -260,4 +260,10 @@
(fluid-ref fluid))))
(lambda (k) k))))
(and (eqv? (fluid-ref fluid) #f)
- (eqv? (k) #t))))))
+ (eqv? (k) #t)))))
+
+ (pass-if "exception handler not captured"
+ (let ((state (catch #t (lambda () (current-dynamic-state)) error)))
+ (catch #t
+ (lambda () (with-dynamic-state state (/ 1 0)))
+ (lambda _ #t)))))