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)
(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))))

View File

@ -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)

View File

@ -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))"))

View File

@ -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])