From d4acfa584a4e65150ca98cd5bac462999b49b166 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 27 Jan 2021 07:00:44 -0800
Subject: matcher: add failing @(all (@or ...)) test.

The matcher has a bug: the loop patterns are not collecting
the variables from enclosed parallel patterns.
---
 tests/011/patmatch.tl | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'tests/011')

diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl
index 784588ad..f2b98445 100644
--- a/tests/011/patmatch.tl
+++ b/tests/011/patmatch.tl
@@ -70,6 +70,9 @@
         (list x y z))
       (1 2 3))
 
+(test (when-match @(all @(or (@x @y) @z)) '((1 2) (3 4)) (list x y z))
+      ((1 3) (2 4) (nil nil)))
+
 (test (if-match @(or (@x 3 3) (1 @x 3) (1 2 @x)) '(1 2 3) x) 2)
 (test (if-match @(op <= 10 @1 13) 11 :yes :no) :yes)
 (test (when-match @(let x @(op <= 10 @1 13)) 11 x) 11)
-- 
cgit v1.2.3