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

add infinite generator test

Browse Source 
svn: r17553
This commit is contained in:
Jon Rafkind 2010-01-07 21:54:07 +00:00
parent db6a9de7ed
commit 9fc7b4c445
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/mzscheme/for.ss
View File

@ -247,4 +247,10 @@
(test '(#t #f #f #t #t #f odd even) 'yield-helper (test '(#t #f #f #t #t #f odd even) 'yield-helper
(list (g1) (g2) (g1) (g2) (g1) (g2) (g1) (g2)))) (list (g1) (g2) (g1) (g2) (g1) (g2) (g1) (g2))))
(test '(1 2 3 1 2 3)
'infinite-generator
(let ([maker (infinite '(1 2 3))])
(list (maker) (maker) (maker)
(maker) (maker) (maker))))
(report-errs) (report-errs)