From bd59edc88776eb56fc5354d7546fbe4da98a841f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 27 Jan 2021 20:56:30 -0800 Subject: matcher: new broken test case: bad order of checks. * tests/011/patmatch.tl: Even though bar mismatches foo, the second element @(all) is processed and tries to collect the list. This results in an error due to the list being improper. --- tests/011/patmatch.tl | 2 ++ 1 file changed, 2 insertions(+) diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl index af86aaef..60b28b63 100644 --- a/tests/011/patmatch.tl +++ b/tests/011/patmatch.tl @@ -75,6 +75,8 @@ (test (when-match @(or @(all @x)) '(1 2 3) x) (1 2 3)) +(test (when-match (foo @(all @x)) '(bar (1 2 . 3)) x) nil) + (test (if-match @(or (@x 3 3) (1 @x 3) (1 2 @x)) '(1 2 3) x) 2) (test (if-match @(op <= 10 @1 13) 11 :yes :no) :yes) (test (when-match @(let x @(op <= 10 @1 13)) 11 x) 11) -- cgit v1.2.3