From 87a8f7014881eab93c0d8685e61d53f9457e7d27 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 30 Jul 2012 04:17:22 -0500 Subject: [PATCH] adjust check-expect so it rewrites the error messages like they are rewritten in the repl closes PR 12943 --- collects/test-engine/racket-tests.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/test-engine/racket-tests.rkt b/collects/test-engine/racket-tests.rkt index a40e80b36f..54ea14abe0 100644 --- a/collects/test-engine/racket-tests.rkt +++ b/collects/test-engine/racket-tests.rkt @@ -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)))])