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 bace28ce..08de0151 100644 --- a/tests/011/patmatch.tl +++ b/tests/011/patmatch.tl @@ -568,3 +568,9 @@ (if-match @(< @nil 2) 1 :y :n) :y (match @(@nil (< @x 0)) -1 x) -1 (match @(@nil (< @nil 0)) -1 t) t) + +(mtest + (match ^(foo) '(foo) t) t + (match ^#H() #H(() (a b)) t) t + (match ^#H(()) #H(() (a b)) t) t + (match ^#S(time) #S(time year 2023) t) t) |