diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-04 12:06:33 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-04 12:06:33 +0000 |
commit | d1256cb1bc05a9b21e5ab396a011ea9c02150dd4 (patch) | |
tree | a8ea0e471b475549fa901f02006df713442cc6d6 /ext/Encode/t/utf8strict.t | |
parent | cb9881c198dd33816640651b1d55f0d1c2125a90 (diff) | |
download | perl-d1256cb1bc05a9b21e5ab396a011ea9c02150dd4.tar.gz |
Upgrade to Encode 2.16
p4raw-id: //depot/perl@28098
Diffstat (limited to 'ext/Encode/t/utf8strict.t')
-rw-r--r-- | ext/Encode/t/utf8strict.t | 64 |
1 files changed, 32 insertions, 32 deletions
diff --git a/ext/Encode/t/utf8strict.t b/ext/Encode/t/utf8strict.t index dac5d6f5ff..b2bf6b39a0 100644 --- a/ext/Encode/t/utf8strict.t +++ b/ext/Encode/t/utf8strict.t @@ -9,45 +9,45 @@ BEGIN { require Config; import Config; if ($Config{'extensions'} !~ /\bEncode\b/) { print "1..0 # Skip: Encode was not built\n"; - exit 0; + exit 0; } if ($] <= 5.008 and !$Config{perl_patchlevel}){ - print "1..0 # Skip: Perl 5.8.1 or later required\n"; - exit 0; + print "1..0 # Skip: Perl 5.8.1 or later required\n"; + exit 0; } # http://smontagu.damowmow.com/utf8test.html %ORD = ( - 0x00000080 => 0, # 2.1.2 - 0x00000800 => 0, # 2.1.3 - 0x00010000 => 0, # 2.1.4 - 0x00200000 => 1, # 2.1.5 - 0x00400000 => 1, # 2.1.6 - 0x0000007F => 0, # 2.2.1 -- unmapped okay - 0x000007FF => 0, # 2.2.2 - 0x0000FFFF => 1, # 2.2.3 - 0x001FFFFF => 1, # 2.2.4 - 0x03FFFFFF => 1, # 2.2.5 - 0x7FFFFFFF => 1, # 2.2.6 - 0x0000D800 => 1, # 5.1.1 - 0x0000DB7F => 1, # 5.1.2 - 0x0000D880 => 1, # 5.1.3 - 0x0000DBFF => 1, # 5.1.4 - 0x0000DC00 => 1, # 5.1.5 - 0x0000DF80 => 1, # 5.1.6 - 0x0000DFFF => 1, # 5.1.7 - # 5.2 "Paird UTF-16 surrogates skipped - # because utf-8-strict raises exception at the first one - 0x0000FFFF => 1, # 5.3.1 - ); + 0x00000080 => 0, # 2.1.2 + 0x00000800 => 0, # 2.1.3 + 0x00010000 => 0, # 2.1.4 + 0x00200000 => 1, # 2.1.5 + 0x00400000 => 1, # 2.1.6 + 0x0000007F => 0, # 2.2.1 -- unmapped okay + 0x000007FF => 0, # 2.2.2 + 0x0000FFFF => 1, # 2.2.3 + 0x001FFFFF => 1, # 2.2.4 + 0x03FFFFFF => 1, # 2.2.5 + 0x7FFFFFFF => 1, # 2.2.6 + 0x0000D800 => 1, # 5.1.1 + 0x0000DB7F => 1, # 5.1.2 + 0x0000D880 => 1, # 5.1.3 + 0x0000DBFF => 1, # 5.1.4 + 0x0000DC00 => 1, # 5.1.5 + 0x0000DF80 => 1, # 5.1.6 + 0x0000DFFF => 1, # 5.1.7 + # 5.2 "Paird UTF-16 surrogates skipped + # because utf-8-strict raises exception at the first one + 0x0000FFFF => 1, # 5.3.1 + ); $NTESTS += scalar keys %ORD; %SEQ = ( - qq/ed 9f bf/ => 0, # 2.3.1 - qq/ee 80 80/ => 0, # 2.3.2 - qq/f4 8f bf bf/ => 0, # 2.3.3 - qq/f4 90 80 80/ => 1, # 2.3.4 -- out of range so NG - # "3 Malformed sequences" are checked by perl. - # "4 Overlong sequences" are checked by perl. - ); + qq/ed 9f bf/ => 0, # 2.3.1 + qq/ee 80 80/ => 0, # 2.3.2 + qq/f4 8f bf bf/ => 0, # 2.3.3 + qq/f4 90 80 80/ => 1, # 2.3.4 -- out of range so NG + # "3 Malformed sequences" are checked by perl. + # "4 Overlong sequences" are checked by perl. + ); $NTESTS += scalar keys %SEQ; } use strict; |