summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/011/patmatch.tl4
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)