add infinite generator test

svn: r17553
2010-01-07 21:54:07 +00:00 · 2010-01-07 21:54:07 +00:00 · 9fc7b4c445
commit 9fc7b4c445
parent db6a9de7ed
1 changed files with 6 additions and 0 deletions
--- a/collects/tests/mzscheme/for.ss
+++ b/collects/tests/mzscheme/for.ss
@ -247,4 +247,10 @@
  (test '(#t #f #f #t #t #f odd even) 'yield-helper
        (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)