summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2021-01-19 07:17:53 -0800
committerKaz Kylheku <kaz@kylheku.com>2021-01-19 07:17:53 -0800
commitd6cad17ca4111e1914f11c4c8573000e2c1dfc53 (patch)
treefc08212ba4573bd6811e510c64253b3bf6085d8c
parent53d6e51da8f7697404a9daf2882ee9a29bff60d1 (diff)
downloadtxr-d6cad17ca4111e1914f11c4c8573000e2c1dfc53.tar.gz
txr-d6cad17ca4111e1914f11c4c8573000e2c1dfc53.tar.bz2
txr-d6cad17ca4111e1914f11c4c8573000e2c1dfc53.zip
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.
-rw-r--r--tests/011/patmatch.tl2
1 files changed, 2 insertions, 0 deletions
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))