Updated the expected errors messages in the tests to match the new vocab.

This commit is contained in:
Guillaume Marceau 2011-07-06 08:47:15 -04:00
parent 0ee3aef9cb
commit c287519cc0
4 changed files with 5 additions and 5 deletions

View File

@ -29,10 +29,10 @@
(define (common-signatures-*sl) (define (common-signatures-*sl)
(test-expression "(: foo Integer) (define foo 5)" (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\")" (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 #:signature-violations-expected
(list (make-signature-violation "\"bar\"" 1 7)))) (list (make-signature-violation "\"bar\"" 1 7))))

View File

@ -1386,7 +1386,7 @@
(require (lib "image.rkt" "teachpack/htdp")) (require (lib "image.rkt" "teachpack/htdp"))
overlay)) overlay))
(lambda (exn) (lambda (exn)
(regexp-match #rx"must be applied to arguments" (regexp-match #rx"no open parenthesis"
(exn-message exn))))) (exn-message exn)))))
(report-errs) (report-errs)

View File

@ -384,7 +384,7 @@
(make-evaluator! '(special beginner) (make-evaluator! '(special beginner)
(make-prog "(define l null)" "(define x 3.5)")) (make-prog "(define l null)" "(define x 3.5)"))
--eval-- --eval--
(cond [null? l 0]) =err> "expected an open parenthesis" (cond [null? l 0]) =err> "no open parenthesis"
--top-- --top--
(eq? (ev "6") (ev "(sub1 (* 2 3.5))")) (eq? (ev "6") (ev "(sub1 (* 2 3.5))"))
(eq? (ev "6") (ev "(sub1 (* 2 x))")) (eq? (ev "6") (ev "(sub1 (* 2 x))"))

View File

@ -274,7 +274,7 @@
(t 'bad-cond m:upto-int/lam (t 'bad-cond m:upto-int/lam
(cond) (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 (t 'just-else m:upto-int/lam
(cond [else 3]) (cond [else 3])