rackunit: fix tests

merge to 5.2 original commit: 18b3899e6aac5a6d39507e8b2b549f05b4eec0ca
2011-10-08 01:07:08 -06:00 · 2011-10-08 01:07:08 -06:00 · ed6361fb0e
commit ed6361fb0e
parent 7ac8d8a288
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))
+   ))