diff options
Diffstat (limited to 't/linkify.t')
-rw-r--r-- | t/linkify.t | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/t/linkify.t b/t/linkify.t index bef4ffd6..fe218b91 100644 --- a/t/linkify.t +++ b/t/linkify.t @@ -50,6 +50,11 @@ use PublicInbox::Linkify; $s = $l->linkify_2($s); is($s, qq(hello <a\nhref="$u">$u</a> world), 'URL preserved'); + $s = "$u. hi"; + $s = $l->linkify_1($s); + $s = $l->linkify_2($s); + is($s, qq(<a\nhref="$u">$u</a>. hi), 'paired () in URL OK'); + $u .= "?query=a"; $s = "hello $u world"; $s = $l->linkify_1($s); @@ -117,4 +122,14 @@ use PublicInbox::Linkify; } } +# dangling ')' cf. see MaintNotes in git.git todo branch +{ + my $l = PublicInbox::Linkify->new; + my $s = '(see http://example.com/).'; + $s = $l->linkify_1($s); + $s = $l->linkify_2($s); + like($s, qr!\(see <a[^>]+>http://example\.com/</a>\)\.!s, + 'punctuation with unpaired ) OK') +} + done_testing(); |