1 files changed, 4 insertions, 0 deletions
diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl
index 493f4b2d..11a6a933 100644
--- a/tests/011/patmatch.tl
+++ b/tests/011/patmatch.tl
@@ -58,6 +58,10 @@
         (list a b))
       (2 b))
 
+(test (when-match @(coll (x @a @b)) '((y 1 a) (x 2 b) (z 3 c) (x 4 d))
+            (list a b))
+      ((2 4) (b d)))
+
 (test (if-match @(and (@x 2 3) (1 @y 3) (1 2 @z)) '(1 2 3)
         (list x y z))
       (1 2 3))