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

put a little more info into the test case failure messages

Browse Source
This commit is contained in:
Robby Findler 2015-12-19 17:04:08 -06:00
parent 260bfe9fec
commit 3ed5eef44d
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/racket-test/tests/racket/contract/test-util.rkt
View File

@ -176,7 +176,9 @@
#:test-case-name ',name #:test-case-name ',name
'no-exn-raised 'no-exn-raised
eval eval
'(with-handlers ([exn:fail? exn-message]) '(with-handlers ([exn:fail? (λ (x) (cons (exn-message x)
(continuation-mark-set->context
(exn-continuation-marks x))))])
,expression ,expression
'no-exn-raised))) 'no-exn-raised)))
(let ([new-expression (rewrite-out expression)]) (let ([new-expression (rewrite-out expression)])