suzanne.soy/rackunit
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

don't catch exn breaks

Browse Source 
Please Include In Release
This commit is contained in:
Spencer Florence 2016-06-24 15:02:52 -05:00
parent 7f484888f5
commit 2407b02f38
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rackunit-lib/rackunit/private/test-case.rkt
View File

@ -28,7 +28,7 @@
;; ;;
;; Run a test-case immediately, printing information on failure ;; Run a test-case immediately, printing information on failure
(define (default-test-case-around thunk) (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))) (parameterize ((current-custodian (make-custodian)))
(thunk)))) (thunk))))