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 fbdd3da0..4b44eca9 100644 --- a/tests/011/patmatch.tl +++ b/tests/011/patmatch.tl @@ -417,6 +417,12 @@ (let ((a "$")) (test (when-match `@a-@b` "$-@" b) "@")) +(mtest + (when-match `@{a #/\d+/}-@{a #/\d+/}` "123-123" a) "123" + (when-match `@{a #/\d+/}-@{a #/\d+/}-` "123-123-" a) "123" + (when-match `@{a #/\d+/}-@{a #/\d+/}` "123-1234" a) nil + (when-match `@{a #/\d+/}-@{a #/\d+/}-` "123-1234-" a) nil) + (test (build (each-match (`(@a) @b-@c` '("x" |