From 8db7c191d73cd727910f9d656881db9248dfdfad Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 8 Feb 2021 07:19:16 -0800 Subject: 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. --- tests/011/patmatch.tl | 3 +++ 1 file changed, 3 insertions(+) (limited to 'tests/011') 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))) -- cgit v1.2.3