From 8972b21868d475a6a54c9719e6dd8167d5827ce6 Mon Sep 17 00:00:00 2001
From: Leah Neukirchen <leah@vuxu.org>
Date: Mon, 7 Nov 2022 22:48:10 +0100
Subject: add gpick

---
 tests/test.mew | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'tests')

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
-- 
cgit 1.4.1