summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2021-01-19 07:37:48 -0800
committerKaz Kylheku <kaz@kylheku.com>2021-01-19 07:37:48 -0800
commit1236298b23b17937829e58a63e7d9e13059e49f8 (patch)
tree01c35379311e14ab5ce8fe87c52cd99f00d41a4c
parent269ec401d8d7a76f6bf497d6002eb38f168029f1 (diff)
downloadtxr-1236298b23b17937829e58a63e7d9e13059e49f8.tar.gz
txr-1236298b23b17937829e58a63e7d9e13059e49f8.tar.bz2
txr-1236298b23b17937829e58a63e7d9e13059e49f8.zip
matcher: add another broken test case.
* tests/011/patmatch.tl: Breaking test case added. The @(some) pattern match has the same vars misalignment problem.
-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 61b28c58..1d06b252 100644
--- a/tests/011/patmatch.tl
+++ b/tests/011/patmatch.tl
@@ -82,3 +82,5 @@
(3 5 3 2021 (vec tor)))
(test (when-match (@(and @a @b) (x . @c)) '(1 (x 2 3 4)) c) (2 3 4))
+
+(test (when-match (@(some @a) . @b) '((1 2 3) 2) (list a b)) (1 (2)))