adjust check-expect so it rewrites the error messages

like they are rewritten in the repl

closes PR 12943
This commit is contained in:
Robby Findler 2012-07-30 04:17:22 -05:00
parent 02dd0909cb
commit 87a8f70148

View File

@ -4,11 +4,11 @@
(for-syntax lang/private/rewrite-error-message)
scheme/class
scheme/match
lang/private/continuation-mark-key
lang/private/continuation-mark-key
lang/private/rewrite-error-message
(only-in scheme/base for memf findf)
"test-engine.rkt"
"test-info.scm"
)
"test-info.scm")
(require (for-syntax stepper/private/syntax-property))
@ -291,7 +291,7 @@
(lambda (e)
(let ([display (error-display-handler)])
(list (make-unexpected-error src (test-format) expect
(exn-message e)
(get-rewriten-error-message e)
e)
'error
e)))])