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

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

@ -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