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 | 553f8404807cbdde483c8892eedc0713739bd476 (patch) | |
| tree | 01c35379311e14ab5ce8fe87c52cd99f00d41a4c | |
| parent | ce8dc463a2590ba8ce578cbd420f70eaf578e79e (diff) | |
| download | txr-553f8404807cbdde483c8892eedc0713739bd476.tar.gz txr-553f8404807cbdde483c8892eedc0713739bd476.tar.bz2 txr-553f8404807cbdde483c8892eedc0713739bd476.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))) |