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

add a few generator tests

Browse Source 
svn: r15809
This commit is contained in:
Jon Rafkind 2009-08-26 21:44:14 +00:00
parent 4697b7fd6f
commit 11091ee8fe
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/tests/mzscheme/for.ss
View File

@ -3,6 +3,8 @@
(Section 'for) (Section 'for)
(require scheme/generator)
(define-syntax (test-multi-generator stx) (define-syntax (test-multi-generator stx)
(syntax-case stx () (syntax-case stx ()
[(_ [(v ...) ...] gen) [(_ [(v ...) ...] gen)
@ -199,4 +201,9 @@
(test 13 next) (test 13 next)
(test #f more?)) (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) (report-errs)