diff options
Diffstat (limited to 'tests/011')
| -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 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) |