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

Corrected bug introduced by the introduction of match-let

Browse Source 
svn: r10339
This commit is contained in:
Kathy Gray 2008-06-18 12:51:22 +00:00
parent 1862bffc93
commit 488f8c210e
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -187,17 +187,14 @@
(define (run-and-check check maker test expect range src test-info kind)
(match-let ([(list result result-val)
(with-handlers ([exn? (lambda (e)
(make-unexpected-error src expect
(exn-message e)))])
(list (make-unexpected-error src expect
(exn-message e)) 'error))])
(let ([test-val (test)])
;; yikes! it appears that test-val and expect are reversed here! -- JBC, 2008-05-28
(cond [(check test-val expect range)
(list #t test-val)]
(cond [(check expect test-val range) (list #t test-val)]
[else
(list (maker src test-val expect range) test-val)])))])
(cond [(check-fail? result)
(send (send test-info get-info) check-failed (check->message result)
(check-fail-src result))
(send (send test-info get-info) check-failed (check->message result) (check-fail-src result))
(render-for-stepper/fail result expect range kind)]
[else
;; I'd like to pass the actual, but I don't have it.