From 34b44c8c44ef78563a38ef931cc78f8934f7e291 Mon Sep 17 00:00:00 2001 From: Leah Neukirchen Date: Thu, 1 Dec 2022 18:58:39 +0100 Subject: add gsplit-on --- tests/test.mew | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'tests') diff --git a/tests/test.mew b/tests/test.mew index e674481..ff9685e 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -372,7 +372,14 @@ ; gwindow -; gslice-when +(test-group "gsplit-on" + (test '((1) (1) (3 7)) (into '() (gsplit-on even? (generator 1 2 1 2 3 7 0))))) + +(test-group "gslice-when" + (test '((1 2) (1 2 3) (0 7)) (into '() (gslice-when > (generator 1 2 1 2 3 0 7)))) + (test '() (into '() (gslice-when (op #t) (generator)))) + (test '((0)) (into '() (gslice-when (op #t) (generator 0)))) + (test '((0) (1)) (into '() (gslice-when (op #t) (generator 0 1))))) ; genumerate @@ -380,7 +387,6 @@ ; gfix -; final (test-group "final" (test 3 (final (generator 1 2 3))) (test #t (void? (final (generator))))) -- cgit 1.4.1