rackunit: fix tests

merge to 5.2
2011-10-08 01:07:08 -06:00 · 2011-10-08 01:07:08 -06:00 · 18b3899e6a
commit 18b3899e6a
parent 9ab6a93127
1 changed files with 8 additions and 1 deletions
--- a/collects/tests/rackunit/check-test.rkt
+++ b/collects/tests/rackunit/check-test.rkt
@ -314,5 +314,12 @@
      (parameterize ([current-check-around (lambda (t) (set! x 'foo))])
                 (check-eq? 'a 'b))
      (check-eq? x
-                 'foo)))))
+                 'foo)))

+   (test-case
+    "current-check-handler is used by checks"
+    (check-eq? (let/ec escape
+                 (parameterize ([current-check-handler (lambda (e) (escape 'foo))])
+                   (check-eq? 'a 'b)))
+               'foo))
+   ))