From 2407b02f388d403b649d1b12b5134a6a3a92e356 Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Fri, 24 Jun 2016 15:02:52 -0500 Subject: [PATCH] don't catch exn breaks Please Include In Release --- rackunit-lib/rackunit/private/test-case.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rackunit-lib/rackunit/private/test-case.rkt b/rackunit-lib/rackunit/private/test-case.rkt index e42f0b5..120c820 100644 --- a/rackunit-lib/rackunit/private/test-case.rkt +++ b/rackunit-lib/rackunit/private/test-case.rkt @@ -28,7 +28,7 @@ ;; ;; Run a test-case immediately, printing information on failure (define (default-test-case-around thunk) - (with-handlers ([(lambda (e) #t) default-test-case-handler]) + (with-handlers ([(lambda (e) (not (exn:break? e))) default-test-case-handler]) (parameterize ((current-custodian (make-custodian))) (thunk))))