put a little more info into the test case failure messages

2015-12-19 17:04:08 -06:00 · 2015-12-19 17:04:08 -06:00 · 3ed5eef44d
commit 3ed5eef44d
parent 260bfe9fec
1 changed files with 3 additions and 1 deletions
--- a/pkgs/racket-test/tests/racket/contract/test-util.rkt
+++ b/pkgs/racket-test/tests/racket/contract/test-util.rkt
@ -176,7 +176,9 @@
       #:test-case-name ',name
       'no-exn-raised
       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
          'no-exn-raised)))
    (let ([new-expression (rewrite-out expression)])