From 11091ee8fe36b0f31baf9ef90984da57013e10fe Mon Sep 17 00:00:00 2001
From: Jon Rafkind <rafkind@racket-lang.org>
Date: Wed, 26 Aug 2009 21:44:14 +0000
Subject: [PATCH] add a few generator tests

svn: r15809
---
 collects/tests/mzscheme/for.ss | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/collects/tests/mzscheme/for.ss b/collects/tests/mzscheme/for.ss
index 7188b60825..6bd78d5129 100644
--- a/collects/tests/mzscheme/for.ss
+++ b/collects/tests/mzscheme/for.ss
@@ -3,6 +3,8 @@
 
 (Section 'for)
 
+(require scheme/generator)
+
 (define-syntax (test-multi-generator stx)
   (syntax-case stx ()
     [(_ [(v ...) ...] gen)
@@ -199,4 +201,9 @@
   (test 13 next)
   (test #f more?))
 
+(test-generator [(0 1 2)] ((lambda-generator () (yield 0) (yield 1) (yield 2))))
+(test-generator [(0 1 2)] (in-generator (yield 0) (yield 1) (yield 2)))
+(test '((1 0) (2 1) (3 2)) 'indexed-generator (for/list ([(x i) (in-indexed (in-generator (yield 1) (yield 2) (yield 3)))])
+                                                        (list x i)))
+
 (report-errs)