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

fix mzlib contract name test

Browse Source 
Merge to 5.3

original commit: c64c55b86fd4a2b70caf814a2b06e27db78fcf71
This commit is contained in:
Matthew Flatt 2012-04-10 13:47:02 -06:00
parent 29a27fd9cd
commit 21917f7b45
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/racket/contract-mzlib-test.rktl
View File

@ -4169,8 +4169,8 @@ so that propagation occurs.
(test-name 'natural-number/c natural-number/c)
(test-name #f false/c)
(test-name 'printable/c printable/c)
(test-name '(symbols 'a 'b 'c) (symbols 'a 'b 'c))
(test-name '(one-of/c 1 2 3) (one-of/c 1 2 3))
(test-name '(or/c 'a 'b 'c) (symbols 'a 'b 'c))
(test-name '(or/c 1 2 3) (one-of/c 1 2 3))
(test-name '(one-of/c '() 'x 1 #f #\a (void) (letrec ([x x]) x))
(one-of/c '() 'x 1 #f #\a (void) (letrec ([x x]) x)))