From 28ad4b62515325463656627fa3d80a984f8c0fdb Mon Sep 17 00:00:00 2001 From: Leah Neukirchen Date: Fri, 16 Dec 2022 00:18:05 +0100 Subject: add parallel for --- tests/test.mew | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'tests') diff --git a/tests/test.mew b/tests/test.mew index d72b881..3aa70bb 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -376,7 +376,6 @@ (test 3 (len (generator 5 6 7))) (test-error (len #t))) -; for (test-group "dup" (let* ((x (list (list "foo") "bar")) (y1 (dup x)) @@ -387,6 +386,15 @@ (test #f (eq? (car x) (car y3))) (test #t (eq? (caar x) (caar y3))))) +(test-group "for" + (test 3 (accumulate (c (count-accumulator)) + (for (x (vector 3 4 5)) + (c x)))) + (test 2 (accumulate (c (count-accumulator)) + (for (x (vector 3 4 5) + y (vector 6 7)) + (c x))))) + (test-group "eof" (test-assert (eof-object? (eof)))) -- cgit 1.4.1