From 40115cb25161690b91b52695e2aeec469fac9fa7 Mon Sep 17 00:00:00 2001 From: Jon Rafkind Date: Thu, 27 Aug 2009 16:42:17 +0000 Subject: [PATCH] add generator tests back in svn: r15817 --- collects/tests/mzscheme/for.ss | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/collects/tests/mzscheme/for.ss b/collects/tests/mzscheme/for.ss index e21941813c..8084d4ad03 100644 --- a/collects/tests/mzscheme/for.ss +++ b/collects/tests/mzscheme/for.ss @@ -215,9 +215,11 @@ (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))) +(test-generator [(0 1 2)] (in-generator (yield 0) (yield 1) (yield 2))) +(let ([g (lambda () (in-generator (yield 0) (yield 1) (yield 2)))]) + (test-generator [(0 1 2)] (g))) +(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)