suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

unsafe-vector-chaperone: repair a test

Browse Source
This commit is contained in:
Matthew Flatt 2017-07-23 08:57:08 -06:00
parent e13d40c5ef
commit 263e7b10d9
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/racket-test-core/tests/racket/chaperone.rktl
View File

@ -825,9 +825,10 @@
": contract violation") ": contract violation")
(exn-message exn)) (exn-message exn))
(test #t (test #t
(regexp-match? regexp-match?
"(and/c vector? (not/c impersonator?))" "[(]and/c vector[?] [(]not/c impersonator[?][)][)]"
(exn-message exn))))) (exn-message exn))
#t))
(clear) (clear)
(define vc*1 (do-chap (vector 93 77 26) 'vc*1)) (define vc*1 (do-chap (vector 93 77 26) 'vc*1))
(define cvc*1 (add-prop vc*1 p1 'p1-cvc*1 #:redirect #t)) (define cvc*1 (add-prop vc*1 p1 'p1-cvc*1 #:redirect #t))