diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-02-09 13:14:09 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-02-09 13:14:09 -0800 |
| commit | 727b40e54c7bcfe282e88f13faa76750347ce9d2 (patch) | |
| tree | 6797a0cd5a29231a1d22188f099b767a0d6c5845 | |
| parent | a8f087498aad23790bbfe6b6d20e838cddb11724 (diff) | |
| download | txr-727b40e54c7bcfe282e88f13faa76750347ce9d2.tar.gz txr-727b40e54c7bcfe282e88f13faa76750347ce9d2.tar.bz2 txr-727b40e54c7bcfe282e88f13faa76750347ce9d2.zip | |
matcher: test case for `@{nil #/regex/}`.
* tests/011/patmatch.tl: New tests for recently fixed issue.
| -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 |