diff options
Diffstat (limited to 'test-suite/tests/fluids.test')
-rw-r--r-- | test-suite/tests/fluids.test | 8 |
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))))) |