diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-01-19 07:37:48 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-01-19 07:37:48 -0800 |
commit | 1236298b23b17937829e58a63e7d9e13059e49f8 (patch) | |
tree | 01c35379311e14ab5ce8fe87c52cd99f00d41a4c | |
parent | 269ec401d8d7a76f6bf497d6002eb38f168029f1 (diff) | |
download | txr-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.tl | 2 |
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))) |