Updated the expected errors messages in the tests to match the new vocab.
This commit is contained in:
parent
0ee3aef9cb
commit
c287519cc0
|
@ -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))))
|
||||
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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))"))
|
||||
|
|
|
@ -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])
|
||||
|
|
Loading…
Reference in New Issue
Block a user