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

add test for sequence used as an expression

Browse Source
This commit is contained in:
Jon Rafkind 2010-11-16 18:11:30 -07:00
parent c5d56b4a4a
commit 27b32464c5
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/data/gvector.rkt
View File

@ -68,6 +68,12 @@
(for/list ([x (in-gvector gv)]) x))
'(1 2 3))
(test-equal? "in-gvector expression form"
(let* ([gv (gvector 1 2 3)]
[gv-sequence (in-gvector gv)])
(for/list ([x gv-sequence]) x))
'(1 2 3))
(test-equal? "gvector as sequence"
(let ([gv (gvector 1 2 3)])
(for/list ([x gv]) x))