diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test.mew | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/test.mew b/tests/test.mew index c8c9d16..903620c 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -328,6 +328,11 @@ ; gconcatenate +(test-group "gpick" + (test '(2 4 6) (into '() (gpick (fun (x) (if (even? x) x (eof))) + (generator 1 2 3 4 5 6)))) + (test '(0 "" #f ()) (into '() (gpick (op) (generator 0 "" #f '()))))) + ; gwindow ; gslice-when |