From ed18890817fd39a675bd1cb84205c27f54ea7ce1 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 10 Sep 2009 06:37:43 +0000
Subject: [PATCH] changed exn? to exn:fail? to avoid catching breaks while
 running test cases

svn: r15952
---
 collects/test-engine/scheme-tests.ss | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/collects/test-engine/scheme-tests.ss b/collects/test-engine/scheme-tests.ss
index 59135c167f..1d12e74842 100644
--- a/collects/test-engine/scheme-tests.ss
+++ b/collects/test-engine/scheme-tests.ss
@@ -206,13 +206,14 @@
 ;;                ( -> scheme-val) scheme-val scheme-val object symbol? -> void
 (define (run-and-check check maker test expect range src test-info kind)
   (match-let ([(list result result-val exn)
-               (with-handlers ([exn? (lambda (e)
-				       (let ([display (error-display-handler)])
-                                         (list (make-unexpected-error src (test-format) expect
-                                                                      (exn-message e) 
-                                                                      e)
-					       'error
-					       e)))])
+               (with-handlers ([exn:fail?
+                                (lambda (e)
+                                  (let ([display (error-display-handler)])
+                                    (list (make-unexpected-error src (test-format) expect
+                                                                 (exn-message e) 
+                                                                 e)
+                                          'error
+                                          e)))])
                  (let ([test-val (test)])
                    (cond [(check expect test-val range) (list #t test-val #f)]
                          [else