diff options
Diffstat (limited to 'tests/test.mew')
| -rw-r--r-- | tests/test.mew | 10 |
1 files changed, 8 insertions, 2 deletions
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))))) |