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

Added tests for sequence/c with multiple-valued sequences.

Browse Source
This commit is contained in:
Carl Eastlund 2011-08-27 12:57:26 -04:00
parent 5c4a5ceb81
commit 871ea6dc76
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/tests/unstable/contract.rkt
View File

@ -85,7 +85,19 @@
(void))) (void)))
(test-bad (test-bad
(for ([x (with/c (sequence/c integer? symbol?) (list 1 2 3 4))]) (for ([x (with/c (sequence/c integer? symbol?) (list 1 2 3 4))])
(void)))) (void)))
(test-ok
(for ([(x y) (with/c (sequence/c integer? symbol?)
(in-dict (list (cons 1 'one) (cons 2 'two))))])
(void)))
(test-bad
(for ([(x y) (with/c (sequence/c integer? symbol?)
(in-dict (list (cons 1 'one) (cons 2 "two"))))])
(void)))
(test-bad
(for ([(x y) (with/c (sequence/c integer?)
(in-dict (list (cons 1 'one) (cons 2 'two))))])
(void))))
(test-suite "dict/c" (test-suite "dict/c"
(test-ok (test-ok
(for ([(x y) (for ([(x y)