summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2021-01-27 07:27:48 -0800
committerKaz Kylheku <kaz@kylheku.com>2021-01-27 07:27:48 -0800
commit4b7e799c377d2c4608d1b03f056edd659424a29b (patch)
tree4367725d5f8b23e0a7e4af482321f6b33c9f428a
parent277cf5d1eba80cd1b06bb37fb9935079d5bf457c (diff)
downloadtxr-4b7e799c377d2c4608d1b03f056edd659424a29b.tar.gz
txr-4b7e799c377d2c4608d1b03f056edd659424a29b.tar.bz2
txr-4b7e799c377d2c4608d1b03f056edd659424a29b.zip
matcher: add failing @(or @(and ...)) test.
* tests/011/patmatch.tl: It looks like there is still a problem with scoping. An inner x is assigned the correct value, leaving the outer x nil.
-rw-r--r--tests/011/patmatch.tl2
1 files changed, 2 insertions, 0 deletions
diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl
index f2b98445..af86aaef 100644
--- a/tests/011/patmatch.tl
+++ b/tests/011/patmatch.tl
@@ -73,6 +73,8 @@
(test (when-match @(all @(or (@x @y) @z)) '((1 2) (3 4)) (list x y z))
((1 3) (2 4) (nil nil)))
+(test (when-match @(or @(all @x)) '(1 2 3) x) (1 2 3))
+
(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)