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

Make the code that says what the effect of a failed check is a tiny bit clearer.

Browse Source 
svn: r15970
This commit is contained in:
Mike Sperber 2009-09-11 08:56:20 +00:00
parent 3ca2b0de04
commit ed269cc43b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -220,7 +220,9 @@
(list (maker src (test-format) test-val expect range) test-val #f)])))]) (list (maker src (test-format) test-val expect range) test-val #f)])))])
(cond [(check-fail? result) (cond [(check-fail? result)
(send (send test-info get-info) check-failed result (check-fail-src result) exn) (send (send test-info get-info) check-failed result (check-fail-src result) exn)
(when exn (raise exn))] (if exn
(raise exn)
#f)]
[else [else
#t]))) #t])))