diff options
Diffstat (limited to 'tests/011/patmatch.tl')
| -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 c9eb3d39..08bcd0f7 100644 --- a/tests/011/patmatch.tl +++ b/tests/011/patmatch.tl @@ -374,6 +374,8 @@ (when-match `#@a-@b` "#a-$" (list a b)) ("a" "$") (when-match `#@{a #/ab*c/}` "#abbbc" a) "abbbc" (when-match `#@{a #/ab*c/}d` "#abbbcd" a) "abbbc" + (when-match `#@{nil #/ab*c/}` "#abbbc" t) t + (when-match `#@{nil #/ab*c/}d` "#abbbcd" t) t (when-match `#@{a 3}@b` "#abb" a) "abb" (when-match `#@{a 3}@b` "#abbbc" (list a b)) ("abb" "bc") (when-match `#@{a 4}@b` "#abb" a) nil |