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 ;; ( -> 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?
(let ([display (error-display-handler)]) (lambda (e)
(list (make-unexpected-error src (test-format) expect (let ([display (error-display-handler)])
(exn-message e) (list (make-unexpected-error src (test-format) expect
e) (exn-message e)
'error e)
e)))]) 'error
e)))])
(let ([test-val (test)]) (let ([test-val (test)])
(cond [(check expect test-val range) (list #t test-val #f)] (cond [(check expect test-val range) (list #t test-val #f)]
[else [else