From c287519cc036637d9fccae006685e57d793a1202 Mon Sep 17 00:00:00 2001 From: Guillaume Marceau Date: Wed, 6 Jul 2011 08:47:15 -0400 Subject: [PATCH] Updated the expected errors messages in the tests to match the new vocab. --- collects/tests/drracket/test-engine-test.rkt | 4 ++-- collects/tests/htdp-lang/htdp-image.rktl | 2 +- collects/tests/racket/sandbox.rktl | 2 +- collects/tests/stepper/test-cases.rkt | 2 +- 4 files changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/tests/drracket/test-engine-test.rkt b/collects/tests/drracket/test-engine-test.rkt index 6a7497c82b..e4a27851c6 100644 --- a/collects/tests/drracket/test-engine-test.rkt +++ b/collects/tests/drracket/test-engine-test.rkt @@ -29,10 +29,10 @@ (define (common-signatures-*sl) (test-expression "(: foo Integer) (define foo 5)" "" - #:repl-expected "define: cannot redefine name: foo") + #:repl-expected "foo: this name was defined previously and cannot be re-defined") (test-expression "(: foo Integer) (define foo \"bar\")" "" - #:repl-expected "define: cannot redefine name: foo" + #:repl-expected "foo: this name was defined previously and cannot be re-defined" #:signature-violations-expected (list (make-signature-violation "\"bar\"" 1 7)))) diff --git a/collects/tests/htdp-lang/htdp-image.rktl b/collects/tests/htdp-lang/htdp-image.rktl index bef3433fc1..96812bde9a 100644 --- a/collects/tests/htdp-lang/htdp-image.rktl +++ b/collects/tests/htdp-lang/htdp-image.rktl @@ -1386,7 +1386,7 @@ (require (lib "image.rkt" "teachpack/htdp")) overlay)) (lambda (exn) - (regexp-match #rx"must be applied to arguments" + (regexp-match #rx"no open parenthesis" (exn-message exn))))) (report-errs) diff --git a/collects/tests/racket/sandbox.rktl b/collects/tests/racket/sandbox.rktl index 28998ecb7b..8894bb1f62 100644 --- a/collects/tests/racket/sandbox.rktl +++ b/collects/tests/racket/sandbox.rktl @@ -384,7 +384,7 @@ (make-evaluator! '(special beginner) (make-prog "(define l null)" "(define x 3.5)")) --eval-- - (cond [null? l 0]) =err> "expected an open parenthesis" + (cond [null? l 0]) =err> "no open parenthesis" --top-- (eq? (ev "6") (ev "(sub1 (* 2 3.5))")) (eq? (ev "6") (ev "(sub1 (* 2 x))")) diff --git a/collects/tests/stepper/test-cases.rkt b/collects/tests/stepper/test-cases.rkt index ceee9b7010..9c5e25884d 100644 --- a/collects/tests/stepper/test-cases.rkt +++ b/collects/tests/stepper/test-cases.rkt @@ -274,7 +274,7 @@ (t 'bad-cond m:upto-int/lam (cond) - :: error: "cond: expected a question--answer clause after `cond', but nothing's there") + :: error: "cond: expected a clause after cond, but nothing's there") (t 'just-else m:upto-int/lam (cond [else 3])