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

add test for ormap

Browse Source
This commit is contained in:
Gustavo Massaccesi 2016-12-14 17:50:08 -03:00 committed by Matthew Flatt
parent 7163c6ad98
commit cf22b1bc7d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/racket-test-core/tests/racket/for.rktl
View File

@ -731,7 +731,7 @@
(collect-garbage)
(when (weak-box-value b)
(set! retained (add1 retained)))))
(test #t `(in-... ,retained) (< retained (/ N 2)))))
(test #t `(for/... in-... proc extra ... ,N ,retained) (< retained (/ N 2)))))
(check for/list in-list #f)
(check for/list values #f)
(check for/stream in-stream #f)
@ -747,6 +747,7 @@
(check for/list values map)
(check for/list values map extra) ; 1 and 2 arguments are special-cased
(check for/list values for-each)
(check for/list values ormap)
(check for/list values andmap))
;; ----------------------------------------