unsafe-vector-chaperone: repair a test

2017-07-23 08:57:08 -06:00 · 2017-07-23 08:57:08 -06:00 · 263e7b10d9
commit 263e7b10d9
parent e13d40c5ef
1 changed files with 4 additions and 3 deletions
--- 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))