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

changed exn? to exn:fail? to avoid catching breaks while running test cases

Browse Source 
svn: r15952
This commit is contained in:
Robby Findler 2009-09-10 06:37:43 +00:00
parent 7c2a7c9ef9
commit ed18890817
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/test-engine/scheme-tests.ss
View File

@ -206,7 +206,8 @@
;; ( -> scheme-val) scheme-val scheme-val object symbol? -> void ;; ( -> scheme-val) scheme-val scheme-val object symbol? -> void
(define (run-and-check check maker test expect range src test-info kind) (define (run-and-check check maker test expect range src test-info kind)
(match-let ([(list result result-val exn) (match-let ([(list result result-val exn)
(with-handlers ([exn? (lambda (e) (with-handlers ([exn:fail?
(lambda (e)
(let ([display (error-display-handler)]) (let ([display (error-display-handler)])
(list (make-unexpected-error src (test-format) expect (list (make-unexpected-error src (test-format) expect
(exn-message e) (exn-message e)