From ed6361fb0e290d24a2f50eb35d56fe8d0a9ee430 Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Sat, 8 Oct 2011 01:07:08 -0600
Subject: [PATCH] rackunit: fix tests   merge to 5.2

original commit: 18b3899e6aac5a6d39507e8b2b549f05b4eec0ca
---
 collects/tests/rackunit/check-test.rkt | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/collects/tests/rackunit/check-test.rkt b/collects/tests/rackunit/check-test.rkt
index 4f994bb..4952d75 100644
--- 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))
+   ))