From d6cad17ca4111e1914f11c4c8573000e2c1dfc53 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 19 Jan 2021 07:17:53 -0800
Subject: matcher: add failing test case.

* tests/011/patmatch.tl: New weirdly failing test case. The
@(and @a @b) is important; if that term is replaced by a
simple @a, then the correct datum is bound to c.
---
 tests/011/patmatch.tl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'tests/011')

diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl
index eba15b2e..61b28c58 100644
--- a/tests/011/patmatch.tl
+++ b/tests/011/patmatch.tl
@@ -80,3 +80,5 @@
       ((4 @x) x)
       ((@x 5) x)))
   (3 5 3 2021 (vec tor)))
+
+(test (when-match (@(and @a @b) (x . @c)) '(1 (x 2 3 4)) c) (2 3 4))
-- 
cgit v1.2.3