fix some error-message tests
This commit is contained in:
parent
d5713cf18b
commit
5433d2302a
|
@ -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))))
|
||||
)
|
||||
|
|
|
@ -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->
|
||||
|
|
Loading…
Reference in New Issue
Block a user