diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-02-08 07:19:16 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-02-08 07:19:16 -0800 |
| commit | ac4c2216a01f8256dfbf18c4eb03c6338e98dc68 (patch) | |
| tree | 1c44e5fed899cdd514ad09894ab4f7f2078e32b8 | |
| parent | 3483c7812cb4c8e279088c0f1d78d5c69061083c (diff) | |
| download | txr-ac4c2216a01f8256dfbf18c4eb03c6338e98dc68.tar.gz txr-ac4c2216a01f8256dfbf18c4eb03c6338e98dc68.tar.bz2 txr-ac4c2216a01f8256dfbf18c4eb03c6338e98dc68.zip | |
matcher: @(and) back-referencing test.
* tests/011/patmatch.tl: back-referencing between the
expressions in an @(and) patter has recently been introduced,
and needs some coverage.
| -rw-r--r-- | tests/011/patmatch.tl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl index f49b115d..36e30fb5 100644 --- a/tests/011/patmatch.tl +++ b/tests/011/patmatch.tl @@ -71,6 +71,9 @@ (list x y z)) (1 2 3)) +(test (if-match @(and (@x 1) (1 @x)) '(1 1) x) 1) +(test (if-match @(and (@x 1) (1 @x)) '(1 2) x) nil) + (test (when-match @(all @(or (@x @y) @z)) '((1 2) (3 4)) (list x y z)) ((1 3) (2 4) (nil nil))) |