diff --git a/collects/tests/future/future.rkt b/collects/tests/future/future.rkt index 251864cece..d2ed59f75f 100644 --- a/collects/tests/future/future.rkt +++ b/collects/tests/future/future.rkt @@ -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)))) ) diff --git a/collects/tests/scribble/reader.rkt b/collects/tests/scribble/reader.rkt index 171662556a..31b5df2621 100644 --- a/collects/tests/scribble/reader.rkt +++ b/collects/tests/scribble/reader.rkt @@ -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->