From 727b40e54c7bcfe282e88f13faa76750347ce9d2 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 9 Feb 2022 13:14:09 -0800 Subject: matcher: test case for `@{nil #/regex/}`. * tests/011/patmatch.tl: New tests for recently fixed issue. --- tests/011/patmatch.tl | 2 ++ 1 file changed, 2 insertions(+) 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 -- cgit v1.2.3