diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-11-07 22:48:10 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-11-07 22:48:10 +0100 |
| commit | 8972b21868d475a6a54c9719e6dd8167d5827ce6 (patch) | |
| tree | 7ae18d45dee0bf9a38ac7466c8bcd98beb82f474 /tests | |
| parent | 0afc4e827e4c4a7076b1d65fa9290c36a937d607 (diff) | |
| download | mew-8972b21868d475a6a54c9719e6dd8167d5827ce6.tar.gz mew-8972b21868d475a6a54c9719e6dd8167d5827ce6.tar.xz mew-8972b21868d475a6a54c9719e6dd8167d5827ce6.zip | |
add gpick
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 |