diff options
-rw-r--r-- | tests/011/patmatch.tl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl index 0068eabb..46fc2719 100644 --- a/tests/011/patmatch.tl +++ b/tests/011/patmatch.tl @@ -90,6 +90,10 @@ (test (when-match @(or @(require @a (oddp a)) @b @c) 2 (list a b c)) (nil 2 nil)) +(test (if-match (@(or @a) @a) '(1 2) a :no) :no) +(test (if-match (@(and @a) @a) '(1 2) a :no) :no) + + (test (collect-each ((obj (list '(1 2 3) '(4 5) |