Hello community,
here is the log from the commit of package perl-Net-IDN-Encode for
openSUSE:Factory checked in at 2014-09-17 17:25:57
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Net-IDN-Encode (Old)
and /work/SRC/openSUSE:Factory/.perl-Net-IDN-Encode.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Net-IDN-Encode"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Net-IDN-Encode/perl-Net-IDN-Encode.changes
2014-07-24 01:04:53.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Net-IDN-Encode.new/perl-Net-IDN-Encode.changes
2014-09-17 17:26:18.000000000 +0200
@@ -1,0 +2,9 @@
+Mon Sep 15 15:44:52 UTC 2014 - [email protected]
+
+- updated to 2.201
+ - correct handling of uppercase a-labels in
+ domain_to_{ascii,unicode}
+ - FIXES: #98354: Capitalized ACE prefix does not work (reported
+ by victor@*****.ru)
+
+-------------------------------------------------------------------
Old:
----
Net-IDN-Encode-2.200.tar.gz
New:
----
Net-IDN-Encode-2.201.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Net-IDN-Encode.spec ++++++
--- /var/tmp/diff_new_pack.MLJqcs/_old 2014-09-17 17:26:19.000000000 +0200
+++ /var/tmp/diff_new_pack.MLJqcs/_new 2014-09-17 17:26:19.000000000 +0200
@@ -17,7 +17,7 @@
Name: perl-Net-IDN-Encode
-Version: 2.200
+Version: 2.201
Release: 0
%define cpan_name Net-IDN-Encode
Summary: Internationalizing Domain Names in Applications (IDNA)
@@ -25,7 +25,7 @@
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/Net-IDN-Encode/
Source:
http://www.cpan.org/authors/id/C/CF/CFAERBER/%{cpan_name}-%{version}.tar.gz
-Patch: encodeoffbyone.diff
+Patch0: encodeoffbyone.diff
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
@@ -48,7 +48,7 @@
%prep
%setup -q -n %{cpan_name}-%{version}
-%patch
+%patch0
find . -type f -print0 | xargs -0 chmod 644
%build
++++++ Net-IDN-Encode-2.200.tar.gz -> Net-IDN-Encode-2.201.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-IDN-Encode-2.200/Build.PL
new/Net-IDN-Encode-2.201/Build.PL
--- old/Net-IDN-Encode-2.200/Build.PL 2014-06-21 13:28:45.000000000 +0200
+++ new/Net-IDN-Encode-2.201/Build.PL 2014-08-30 17:45:43.000000000 +0200
@@ -28,7 +28,7 @@
'PL_Files' => {
'lib/Unicode/UTS46/_Mapping.PL' => [
- 'lib/Unicode/UTS46/_Mapping.pm',
+ 'lib/Net/IDN/UTS46/_Mapping.pm',
],
'lib/Unicode/UTS46/GenTests.PL' => [
't/uts46_to_ascii.t',
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-IDN-Encode-2.200/Changes
new/Net-IDN-Encode-2.201/Changes
--- old/Net-IDN-Encode-2.200/Changes 2014-06-21 13:28:45.000000000 +0200
+++ new/Net-IDN-Encode-2.201/Changes 2014-08-30 17:45:43.000000000 +0200
@@ -1,5 +1,11 @@
Revision history for Perl extension Net::IDN::Encode
+2.201 (2014-08-30)
+ - correct handling of uppercase a-labels in
+ domain_to_{ascii,unicode}
+ - FIXES: #98354: Capitalized ACE prefix does not work (reported
+ by victor@*****.ru)
+
2.200 (2014-06-21)
- Net::IDN::UTS46: update to Unicode® 7.0.0 and UTS #46 r13
- typo and metadata fixes from dstreinbrunner
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-IDN-Encode-2.200/LICENSE
new/Net-IDN-Encode-2.201/LICENSE
--- old/Net-IDN-Encode-2.200/LICENSE 2014-06-21 13:28:45.000000000 +0200
+++ new/Net-IDN-Encode-2.201/LICENSE 2014-08-30 17:45:43.000000000 +0200
@@ -22,7 +22,7 @@
Version 1, February 1989
Copyright (C) 1989 Free Software Foundation, Inc.
- 51 Franklin St, Suite 500, Boston, MA 02110-1335 USA
+ 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-IDN-Encode-2.200/META.json
new/Net-IDN-Encode-2.201/META.json
--- old/Net-IDN-Encode-2.200/META.json 2014-06-21 13:28:45.000000000 +0200
+++ new/Net-IDN-Encode-2.201/META.json 2014-08-30 17:45:43.000000000 +0200
@@ -4,7 +4,7 @@
"Claus Färber <[email protected]>"
],
"dynamic_config" : 1,
- "generated_by" : "Module::Build version 0.4203",
+ "generated_by" : "Module::Build version 0.4208",
"license" : [
"perl_5"
],
@@ -45,5 +45,5 @@
"http://dev.perl.org/licenses/";
]
},
- "version" : "2.200"
+ "version" : "2.201"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-IDN-Encode-2.200/META.yml
new/Net-IDN-Encode-2.201/META.yml
--- old/Net-IDN-Encode-2.200/META.yml 2014-06-21 13:28:45.000000000 +0200
+++ new/Net-IDN-Encode-2.201/META.yml 2014-08-30 17:45:43.000000000 +0200
@@ -9,7 +9,7 @@
configure_requires:
Module::Build: 0.42
dynamic_config: 1
-generated_by: 'Module::Build version 0.4203, CPAN::Meta::Converter version
2.133380'
+generated_by: 'Module::Build version 0.4208, CPAN::Meta::Converter version
2.120630'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -24,4 +24,4 @@
perl: 5.008005
resources:
license: http://dev.perl.org/licenses/
-version: 2.200
+version: 2.201
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-IDN-Encode-2.200/Makefile.PL
new/Net-IDN-Encode-2.201/Makefile.PL
--- old/Net-IDN-Encode-2.200/Makefile.PL 2014-06-21 13:28:45.000000000
+0200
+++ new/Net-IDN-Encode-2.201/Makefile.PL 2014-08-30 17:45:43.000000000
+0200
@@ -1,18 +1,18 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.4203
+# Note: this file was auto-generated by Module::Build::Compat version 0.4208
require 5.008005;
use ExtUtils::MakeMaker;
WriteMakefile
(
- 'VERSION_FROM' => 'lib/Net/IDN/Encode.pm',
'PL_FILES' => {},
'INSTALLDIRS' => 'site',
'NAME' => 'Net::IDN::Encode',
+ 'EXE_FILES' => [],
+ 'VERSION_FROM' => 'lib/Net/IDN/Encode.pm',
'PREREQ_PM' => {
+ 'Test::More' => 0,
'Test::NoWarnings' => 0,
'Unicode::Normalize' => 0,
- 'Test::More' => 0,
'ExtUtils::CBuilder' => 0
- },
- 'EXE_FILES' => []
+ }
)
;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-IDN-Encode-2.200/SIGNATURE
new/Net-IDN-Encode-2.201/SIGNATURE
--- old/Net-IDN-Encode-2.200/SIGNATURE 2014-06-21 13:28:48.000000000 +0200
+++ new/Net-IDN-Encode-2.201/SIGNATURE 2014-08-30 17:45:46.000000000 +0200
@@ -14,17 +14,17 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA256
-SHA1 04a13098c55c43968a5e156a521f92dbade4c0bb Build.PL
-SHA1 a2d9a1b80a22ebae319d18b9998ae2eaf25bc595 Changes
-SHA1 8a45f1f10033f17c227c83e9309df8e1c51e495d LICENSE
+SHA1 349441099c4ef03e28711e0a940feffb35943473 Build.PL
+SHA1 30ac98c695fc45f9141c523c6cb0655e19d1edd6 Changes
+SHA1 e8b06840514b1b463c34911c54d7fa77dfdcf5e6 LICENSE
SHA1 b947efa2ea37142ead6dfab2e1bc3ef6ccf2666b MANIFEST
-SHA1 8b56d002a9443b0d66fbbfbd34de4fa1ac4a7a7c META.json
-SHA1 d59d35cb644dd287a76a46684c202df5d7285434 META.yml
-SHA1 ba80a90efe048742641b278b0c5a4f544cd9515c Makefile.PL
+SHA1 3763dcf09f315fee2dc5947b85021d8d3373a291 META.json
+SHA1 7eb2f4aff0001e7ff27886abb8e62ab6e0fb97e7 META.yml
+SHA1 0a7b795f394894d88ce73fd646ce4db404d8b7a7 Makefile.PL
SHA1 3807b576f4488318a73d35db802b2609e2560070 README
SHA1 c7825316b854216c50a88b5750c3a08a91e56695 eg/hello_idn.pl
SHA1 da626e4a67218dc2ed50b4a5b45b258078db0681 eg/hello_idn_email.pl
-SHA1 7e73a36e433edc30e3835d5ac7116e06381d0895 lib/Net/IDN/Encode.pm
+SHA1 f15ac6a16fb6bfde7d1489f0d51a967fa23ede86 lib/Net/IDN/Encode.pm
SHA1 06fb96d373d1c8e35252a0d591fc63f2614b58f6 lib/Net/IDN/Overview.pod
SHA1 f0f3fce7868cf66d8ac09ab577c3bc2fade4f927 lib/Net/IDN/Punycode.pm
SHA1 6be71e4aef31bb784c7d4b819297b1150bb458b6 lib/Net/IDN/Punycode.xs
@@ -35,8 +35,8 @@
SHA1 aee3164d2582e59a5cacc389f455a54d5a3e42e5 t/00use.t
SHA1 4bf2ce7aa9320362cccabd1e8a1b623192584890 t/10pod.t
SHA1 7b363ec736008d60ede786cd9e62ae8db99e7628 t/11pod_cover.t
-SHA1 42c6a0a5c049f8e43ee1197a3f25600527d9a58c t/domain_to_ascii.t
-SHA1 4984ddb57d80f5514c6362fc72b63381fc2dc078 t/domain_to_unicode.t
+SHA1 67367aeaed29db4eb2c54d532a54834d18bef4b7 t/domain_to_ascii.t
+SHA1 fee27b5edc1b16a7ea215b4cf06e0d2835f762fd t/domain_to_unicode.t
SHA1 659313cde51535a32053b02c07991da57725c214 t/encode_bytes.t
SHA1 9cc5d106c594c43370fc135adf44d2f61372cfa7 t/encode_utf8.t
SHA1 11738a334df75b930f65a8b771e8dd10f99c2e5a t/punycode_vec-pp.t
@@ -46,15 +46,15 @@
SHA1 832f448cbe5b33956124c91a1e6b93d3e7e690ef t/uts46_encode_utf8.t
SHA1 c7b6e1c3d540048019e2f0579aa8124c9431417c t/uts46_to_ascii-trans.t
SHA1 51f195194efe38597f2644df21354d7d032ed87d t/uts46_to_ascii.t
-SHA1 67867f28858fee1ec8687799ad72fbfb93b732a5 t/uts46_to_unicode.t
+SHA1 d12f676174707bae224c27dddc9dd7d92ec217a5 t/uts46_to_unicode.t
SHA1 245b13d82d5ab98b510dc4b0221cab1ffd347237 t/xtra_pp.t
-----BEGIN PGP SIGNATURE-----
-iQEcBAEBCAAGBQJTpWxuAAoJEIS+srvgrWBmGZIH/iZNZT0bWVSYlvFW977TIKVr
-POSemeQg9x9GAwQcqA3zk2Wpya/pkUYhw99HB0d6WOxrYV1mxLh/X0u9A9DV8fQI
-oW2hT3vJKoSD8KbBXLs7BdrrqqDoFNEaOJ2UBlLOouJUOBjqFXn0ZCO0RCM8tvD4
-0ow/UXlwlFkUY/F+3zp5yiN21Kk2bSERiQYMMJB5asOXX+TyLJnPGsQw4sLQi3xh
-nubL80oi+8pR1pXxBej07o/ML4PK4evClVWn3zpG2AcVpJ0CieStaoajEegJsVys
-oS2KgTt6kma6zk4fNaqsh/clkV/7kN+S0+Xqkraf6YJ3EE9G+PNfLErMZ3ldaBU=
-=OcF2
+iQEcBAEBCAAGBQJUAfGnAAoJEIS+srvgrWBmcX0IAJW9E0aJ+gfhxphtQGtLDnT7
+BVB7twa1EZJawQLjWG3d7UKnK+vc2upN8KIKgbzMfG/ATP7I2H5X5U+2emtHzwmJ
+MD6IUiWzEKO+I5qm/M5ja6cb4/2hQUI5VC5re5Z1mpwAf6meTb7DxN3BIeR0NSJe
+DfiowqOw70OQUiTpAsAyOkBKYTV0VH9zxx91k3OZywCCdlhnq50PZK3ZYHOXDag5
+gF0d/qHsk6ikp2gRNRIbkPYToohAsG4Cmq3+ToP1rAXKvj3cNNK3RbWiyFBhx5u4
+W8k0Y7R6KTvbE54D+APXaU91elNfcQj8C3ddWeykaUaHnfM9AGXE5SZh1JYzwwQ=
+=Hnm5
-----END PGP SIGNATURE-----
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-IDN-Encode-2.200/lib/Net/IDN/Encode.pm
new/Net-IDN-Encode-2.201/lib/Net/IDN/Encode.pm
--- old/Net-IDN-Encode-2.200/lib/Net/IDN/Encode.pm 2014-06-21
13:28:45.000000000 +0200
+++ new/Net-IDN-Encode-2.201/lib/Net/IDN/Encode.pm 2014-08-30
17:45:43.000000000 +0200
@@ -6,7 +6,7 @@
use utf8;
use warnings;
-our $VERSION = "2.200";
+our $VERSION = "2.201";
$VERSION = eval $VERSION;
use Carp;
@@ -56,7 +56,7 @@
my($label,%param) = @_;
croak 'Invalid label' if $label =~ m/\p{IsIDNADot}/o;
- if($label =~ m/\P{ASCII}|^$IDNA_PREFIX/o) {
+ if($label =~ m/\P{ASCII}|^$IDNA_PREFIX/oi) {
$label = Net::IDN::UTS46::to_unicode(@_);
}
return $label;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-IDN-Encode-2.200/t/domain_to_ascii.t
new/Net-IDN-Encode-2.201/t/domain_to_ascii.t
--- old/Net-IDN-Encode-2.200/t/domain_to_ascii.t 2014-06-21
13:28:45.000000000 +0200
+++ new/Net-IDN-Encode-2.201/t/domain_to_ascii.t 2014-08-30
17:45:43.000000000 +0200
@@ -5,12 +5,14 @@
use Net::IDN::Encode qw(:all);
-use Test::More tests => 1 + 11;
+use Test::More tests => 1 + 12;
use Test::NoWarnings;
use Net::IDN::Encode qw(:all);
-is(eval{domain_to_ascii('müller')} || $@, 'xn--mller-kva', 'single label');
+is(eval{domain_to_ascii('müller')} || $@, 'xn--mller-kva', 'single label
(to_ascii)');
+is(eval{domain_to_ascii('XN--MLLER-KVA')} || $@, 'XN--MLLER-KVA', 'single
uppercase label (to_ascii)');
+
is(eval{domain_to_ascii('www.jürg.xn--mller-kva.com', )} || $@,
'www.xn--jrg-hoa.xn--mller-kva.com', 'mixed utf8/ace/ascii');
is(eval{domain_to_ascii('www.a.b。c．d｡com', )} || $@, 'www.a.b.c.d.com', 'mixed
dots');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-IDN-Encode-2.200/t/domain_to_unicode.t
new/Net-IDN-Encode-2.201/t/domain_to_unicode.t
--- old/Net-IDN-Encode-2.200/t/domain_to_unicode.t 2014-06-21
13:28:45.000000000 +0200
+++ new/Net-IDN-Encode-2.201/t/domain_to_unicode.t 2014-08-30
17:45:43.000000000 +0200
@@ -3,12 +3,14 @@
BEGIN { binmode STDOUT, ':utf8'; binmode STDERR, ':utf8'; }
-use Test::More tests => 1 + 10;
+use Test::More tests => 1 + 13;
use Test::NoWarnings;
use Net::IDN::Encode qw(:all);
is(eval{domain_to_unicode('xn--mller-kva')} || $@, 'müller', 'single label
(to_unicode)');
+is(eval{domain_to_unicode('XN--MLLER-KVA')} || $@, 'müller', 'single uppercase
label (to_unicode)');
+
is(eval{domain_to_unicode('www.jürg.xn--mller-kva.com', )} || $@,
'www.jürg.müller.com', 'mixed utf8/ace/ascii (to_unicode)');
is(eval{domain_to_unicode('www.a.b。c．d｡com', )} || $@, 'www.a.b。c．d｡com',
'mixed dots (to_unicode)');
@@ -17,6 +19,9 @@
is(eval{domain_to_unicode('www.xn-- -7kav3ivb.example', 'UseSTD3ASCIIRules'
=> 0)}, 'www.ä ö ü ß.example', 'blank (with STD3 rules) (to_unicode)') or diag
$@;
is(eval{domain_to_unicode('www.xn-- -7kav3ivb.example', 'UseSTD3ASCIIRules'
=> 1)}, undef, 'blank (with STD3 rules) (to_unicode pass-through)') or diag $@;
+is(eval{domain_to_unicode("EXAMPLE.XN--11B5BS3A9AJ6G")}, 'EXAMPLE.परीक्षा',
'lowercase IDNA prefix') or diag $@;
+is(eval{domain_to_unicode("EXAMPLE.xn--11B5BS3A9AJ6G")}, 'EXAMPLE.परीक्षा',
'uppercase IDNA prefix') or diag $@;
+
is(eval{domain_to_unicode("I.\x{2665}.Perl.invalid")},
"I.\x{2665}.Perl.invalid", 'mixed case');
is(eval{domain_to_unicode('I.xn--g6h.Perl.invalid')},
"I.\x{2665}.Perl.invalid", 'mixed case');
is(eval{domain_to_unicode('_test._srv.xn--mller-kva.example.com')},
'_test._srv.müller.example.com', 'SRV record');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Net-IDN-Encode-2.200/t/uts46_to_unicode.t
new/Net-IDN-Encode-2.201/t/uts46_to_unicode.t
--- old/Net-IDN-Encode-2.200/t/uts46_to_unicode.t 2014-06-21
13:28:45.000000000 +0200
+++ new/Net-IDN-Encode-2.201/t/uts46_to_unicode.t 2014-08-30
17:45:43.000000000 +0200
@@ -4791,14 +4791,14 @@
is(eval{uts46_to_unicode("\x{10B89}\x{064C}。-Ssꡮ\x{200C}", %p)}, undef,
"to_unicode\(\'\\uD802\\uDF89\\u064C\。\-Ssꡮ\\u200C\'\)\ throws\ error\ P1\ V6\
V3\ C1\ \[data\/IdnaTest\.txt\:4836\]") or ($@ and diag($@));
is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．;🔔Ⴡ", %p)}, undef,
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．;🔔Ⴡ\'\)\ throws\ error\ P1\ V5\
V6\ C2\ \[data\/IdnaTest\.txt\:4837\]") or ($@ and diag($@));
is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．;🔔Ⴡ", %p)}, undef,
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．;🔔Ⴡ\'\)\ throws\ error\ P1\ V5\
V6\ C2\ \[data\/IdnaTest\.txt\:4838\]") or ($@ and diag($@));
-TODO: { local $TODO = "test file was generated on perl 5.019007, which is too
old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．", %p)}, "🔔Ⴡ",
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．\'\)\
\[data\/IdnaTest\.txt\:4839\]") or ($@ and diag($@)); }
-TODO: { local $TODO = "test file was generated on perl 5.019007, which is too
old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．", %p)}, "🔔Ⴡ",
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．\'\)\
\[data\/IdnaTest\.txt\:4840\]") or ($@ and diag($@)); }
-TODO: { local $TODO = "test file was generated on perl 5.019007, which is too
old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}.", %p)}, "🔔Ⴡ",
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF\.\'\)\
\[data\/IdnaTest\.txt\:4841\]") or ($@ and diag($@)); }
-TODO: { local $TODO = "test file was generated on perl 5.019007, which is too
old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}.", %p)}, "🔔Ⴡ",
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF\.\'\)\
\[data\/IdnaTest\.txt\:4842\]") or ($@ and diag($@)); }
-TODO: { local $TODO = "test file was generated on perl 5.019007, which is too
old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}.", %p)}, "🔔ⴡ",
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF\.\'\)\
\[data\/IdnaTest\.txt\:4843\]") or ($@ and diag($@)); }
-TODO: { local $TODO = "test file was generated on perl 5.019007, which is too
old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}.", %p)}, "🔔ⴡ",
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF\.\'\)\
\[data\/IdnaTest\.txt\:4844\]") or ($@ and diag($@)); }
-TODO: { local $TODO = "test file was generated on perl 5.019007, which is too
old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．", %p)}, "🔔ⴡ",
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．\'\)\
\[data\/IdnaTest\.txt\:4845\]") or ($@ and diag($@)); }
-TODO: { local $TODO = "test file was generated on perl 5.019007, which is too
old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．", %p)}, "🔔ⴡ",
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．\'\)\
\[data\/IdnaTest\.txt\:4846\]") or ($@ and diag($@)); }
+TODO: { local $TODO = "test file was generated on perl 5.016003, which is too
old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．", %p)}, "🔔Ⴡ",
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．\'\)\
\[data\/IdnaTest\.txt\:4839\]") or ($@ and diag($@)); }
+TODO: { local $TODO = "test file was generated on perl 5.016003, which is too
old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．", %p)}, "🔔Ⴡ",
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．\'\)\
\[data\/IdnaTest\.txt\:4840\]") or ($@ and diag($@)); }
+TODO: { local $TODO = "test file was generated on perl 5.016003, which is too
old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}.", %p)}, "🔔Ⴡ",
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF\.\'\)\
\[data\/IdnaTest\.txt\:4841\]") or ($@ and diag($@)); }
+TODO: { local $TODO = "test file was generated on perl 5.016003, which is too
old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}.", %p)}, "🔔Ⴡ",
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF\.\'\)\
\[data\/IdnaTest\.txt\:4842\]") or ($@ and diag($@)); }
+TODO: { local $TODO = "test file was generated on perl 5.016003, which is too
old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}.", %p)}, "🔔ⴡ",
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF\.\'\)\
\[data\/IdnaTest\.txt\:4843\]") or ($@ and diag($@)); }
+TODO: { local $TODO = "test file was generated on perl 5.016003, which is too
old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}.", %p)}, "🔔ⴡ",
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF\.\'\)\
\[data\/IdnaTest\.txt\:4844\]") or ($@ and diag($@)); }
+TODO: { local $TODO = "test file was generated on perl 5.016003, which is too
old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．", %p)}, "🔔ⴡ",
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．\'\)\
\[data\/IdnaTest\.txt\:4845\]") or ($@ and diag($@)); }
+TODO: { local $TODO = "test file was generated on perl 5.016003, which is too
old"; is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．", %p)}, "🔔ⴡ",
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．\'\)\
\[data\/IdnaTest\.txt\:4846\]") or ($@ and diag($@)); }
is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．;🔔ⴡ", %p)}, undef,
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．;🔔ⴡ\'\)\ throws\ error\ P1\ V5\
V6\ C2\ \[data\/IdnaTest\.txt\:4847\]") or ($@ and diag($@));
is(eval{uts46_to_unicode("\x{A94C}\x{200D}ᡠ\x{549EF}．;🔔ⴡ", %p)}, undef,
"to_unicode\(\'\\uA94C\\u200Dᡠ\\uD912\\uDDEF．;🔔ⴡ\'\)\ throws\ error\ P1\ V5\
V6\ C2\ \[data\/IdnaTest\.txt\:4848\]") or ($@ and diag($@));
is(eval{uts46_to_unicode("\x{2DBF}.ß\x{200D}", %p)}, undef,
"to_unicode\(\'\\u2DBF\.ß\\u200D\'\)\ throws\ error\ P1\ V6\ C2\
\[data\/IdnaTest\.txt\:4849\]") or ($@ and diag($@));
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
