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

add generator tests back in

Browse Source 
svn: r15817
This commit is contained in:
Jon Rafkind 2009-08-27 16:42:17 +00:00
parent e4f86edbed
commit 40115cb251
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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)