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 | efbfcb392f7fa2255657ee3c7d2648172adf204d (patch) | |
| tree | 6797a0cd5a29231a1d22188f099b767a0d6c5845 /tests/011 | |
| parent | 42d166800c2a838e5494f46da312de0e58a54e9b (diff) | |
| download | txr-efbfcb392f7fa2255657ee3c7d2648172adf204d.tar.gz txr-efbfcb392f7fa2255657ee3c7d2648172adf204d.tar.bz2 txr-efbfcb392f7fa2255657ee3c7d2648172adf204d.zip | |
matcher: test case for `@{nil #/regex/}`.
* tests/011/patmatch.tl: New tests for recently fixed issue.
Diffstat (limited to 'tests/011')
| -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 |