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)
|
(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))))
|
||||||
|
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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))"))
|
||||||
|
|
|
@ -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])
|
||||||
|
|
Loading…
Reference in New Issue
Block a user