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

adjust check-expect so it rewrites the error messages

Browse Source 
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
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/test-engine/racket-tests.rkt
View File

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