diff options
author | Eric Wong <e@80x24.org> | 2019-06-04 02:04:21 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-06-04 10:04:57 +0000 |
commit | 1735e5c2cf87b28b096ad91008bdb764d853b26d (patch) | |
tree | 9cdf3ae883b9df1309bee4e4cd22cd1d5bdf69d5 /t | |
parent | b77c87a6fce05c4f2048aa0a73fde7b25a2b0002 (diff) | |
download | public-inbox-1735e5c2cf87b28b096ad91008bdb764d853b26d.tar.gz |
The "\w" character class in Perl matches any word characters in the Unicode database, not just ASCII characters. So we must be prepared for that and generate links to IDNs.
Diffstat (limited to 't')
-rw-r--r-- | t/linkify.t | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/t/linkify.t b/t/linkify.t index fe218b91..c4923582 100644 --- a/t/linkify.t +++ b/t/linkify.t @@ -132,4 +132,16 @@ use PublicInbox::Linkify; 'punctuation with unpaired ) OK') } +if ('IDN example: <ACDB98F4-178C-43C3-99C4-A1D03DD6A8F5@sb.org>') { + my $hc = '月'; + my $u = "http://www.\x{6708}.example.com/"; + my $s = $u; + my $l = PublicInbox::Linkify->new; + $s = $l->linkify_1($s); + $s = $l->linkify_2($s); + my $expect = qq{<a +href="http://www.$hc.example.com/">http://www.$hc.example.com/</a>}; + is($s, $expect, 'IDN message escaped properly'); +} + done_testing(); |