fix some error-message tests

This commit is contained in:
Matthew Flatt 2012-06-23 04:17:44 -07:00
parent d5713cf18b
commit 5433d2302a
2 changed files with 4 additions and 4 deletions

View File

@ -847,7 +847,7 @@ We should also test deep continuations.
(define f (func (lambda () (loop i))))
(sleep 0.1)
(with-handlers ([exn:fail? (lambda (exn)
(unless (regexp-match #rx"context" (exn-message exn))
(unless (regexp-match #rx"expected number of values not received" (exn-message exn))
(raise exn)))])
(touch f))))
)

View File

@ -687,7 +687,7 @@ foo
---
;; -------------------- errors
---
( -@error-> "read: expected a `)' to close `('\n source:\n inp:1:0" ; check -@error->
( -@error-> "inp:1:0: read: expected a `)' to close `('" ; check -@error->
---
@foo{ -@error-> #rx":1:0: missing closing `}'$"
---
@ -707,10 +707,10 @@ foo
---
\foo{\bar|-{} -\error-> #rx":1:5: missing closing `}-\\|'$"
---
@foo{@" -@error-> #rx"read: expected a closing '\"'\n source:\n #f:1:6$"
@foo{@" -@error-> #rx":1:6: read: expected a closing '\"'$"
;; " <-- (balance this file)
---
\foo{\" -\error-> #rx"read: expected a closing '\"'\n source:\n inp:1:6$"
\foo{\" -\error-> #rx":1:6: read: expected a closing '\"'$"
---
@|1 2|
-@error->