From 263e7b10d94d0b9e0b18ee161def0df86ccbb05e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 23 Jul 2017 08:57:08 -0600 Subject: [PATCH] unsafe-vector-chaperone: repair a test --- pkgs/racket-test-core/tests/racket/chaperone.rktl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/chaperone.rktl b/pkgs/racket-test-core/tests/racket/chaperone.rktl index 6d79d6dadc..2ca274891e 100644 --- a/pkgs/racket-test-core/tests/racket/chaperone.rktl +++ b/pkgs/racket-test-core/tests/racket/chaperone.rktl @@ -825,9 +825,10 @@ ": contract violation") (exn-message exn)) (test #t - (regexp-match? - "(and/c vector? (not/c impersonator?))" - (exn-message exn))))) + regexp-match? + "[(]and/c vector[?] [(]not/c impersonator[?][)][)]" + (exn-message exn)) + #t)) (clear) (define vc*1 (do-chap (vector 93 77 26) 'vc*1)) (define cvc*1 (add-prop vc*1 p1 'p1-cvc*1 #:redirect #t))