diff options
Diffstat (limited to 'tests/011/patmatch.tl')
| -rw-r--r-- | tests/011/patmatch.tl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl index a616b9d2..f49b115d 100644 --- a/tests/011/patmatch.tl +++ b/tests/011/patmatch.tl @@ -94,6 +94,12 @@ (t (1 2 3))) (test (when-match @(@x (< . @sym)) '(3 2 1) (list x sym)) nil) +(test (let ((x t)) + (when-match @(@x (< . @sym)) '(1 2 3) (list x sym))) + (t (1 2 3))) +(test (let ((x nil)) + (when-match @(@x (< . @sym)) '(1 2 3) (list x sym))) + nil) (test (if-match (@(or @a) @a) '(1 2) a :no) :no) (test (if-match (@(and @a) @a) '(1 2) a :no) :no) |