From cf22b1bc7d526e466ed757376fb0a8c60de9b5c0 Mon Sep 17 00:00:00 2001 From: Gustavo Massaccesi Date: Wed, 14 Dec 2016 17:50:08 -0300 Subject: [PATCH] add test for ormap --- pkgs/racket-test-core/tests/racket/for.rktl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pkgs/racket-test-core/tests/racket/for.rktl b/pkgs/racket-test-core/tests/racket/for.rktl index b966574aac..e1ecdb3699 100644 --- a/pkgs/racket-test-core/tests/racket/for.rktl +++ b/pkgs/racket-test-core/tests/racket/for.rktl @@ -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)) ;; ----------------------------------------