1 2BEGIN { 3 unless ("A" eq pack('U', 0x41)) { 4 print "1..0 # Unicode::Collate " . 5 "cannot stringify a Unicode code point\n"; 6 exit 0; 7 } 8 if ($ENV{PERL_CORE}) { 9 chdir('t') if -d 't'; 10 @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib); 11 } 12} 13 14use Test; 15BEGIN { plan tests => 17 }; 16 17use strict; 18use warnings; 19 20ok(1); 21 22# 23# No test for Unicode::Collate is included in this .t file. 24# 25# UCA conformance test requires completely ignorable characters 26# (including noncharacters) must be able to be sorted in code point order. 27# If not so, Unicode::Collate must not be compliant with UCA. 28# 29# ~~~ CollationTest_SHIFTED.txt in CollationTest-4.0.0 30# 31# 206F 0021; # ! NOMINAL DIGIT SHAPES [| | | 0251] 32# D800 0021; # ! <surrogate-D800> [| | | 0251] 33# DFFF 0021; # ! <surrogate-DFFF> [| | | 0251] 34# FDD0 0021; # ! <noncharacter-FDD0> [| | | 0251] 35# FFFB 0021; # ! INTERLINEAR ANNOTATION TERMINATOR [| | | 0251] 36# FFFE 0021; # ! <noncharacter-FFFE> [| | | 0251] 37# FFFF 0021; # ! <noncharacter-FFFF> [| | | 0251] 38# 1D165 0021; # ! MS. Cm. STEM [| | | 0251] 39# 40# ~~~ CollationTest_NON_IGNORABLE.txt in CollationTest-4.0.0 41# 42# 206F 0021; # ! NOMINAL DIGIT SHAPES [0251 | 0020 | 0002 |] 43# D800 0021; # ! <surrogate-D800> [0251 | 0020 | 0002 |] 44# DFFF 0021; # ! <surrogate-DFFF> [0251 | 0020 | 0002 |] 45# FDD0 0021; # ! <noncharacter-FDD0> [0251 | 0020 | 0002 |] 46# FFFB 0021; # ! INTERLINEAR ANNOTATION TERMINATOR [0251 | 0020 | 0002 |] 47# FFFE 0021; # ! <noncharacter-FFFE> [0251 | 0020 | 0002 |] 48# FFFF 0021; # ! <noncharacter-FFFF> [0251 | 0020 | 0002 |] 49# 1D165 0021; # ! MS. Cm. STEM [0251 | 0020 | 0002 |] 50# 51 52no warnings 'utf8'; 53 54ok("\x{206F}!" lt "\x{D800}!"); 55ok(pack('U*', 0x206F, 0x21) lt pack('U*', 0xD800, 0x21)); 56 57ok("\x{D800}!" lt "\x{DFFF}!"); 58ok(pack('U*', 0xD800, 0x21) lt pack('U*', 0xDFFF, 0x21)); 59 60ok("\x{DFFF}!" lt "\x{FDD0}!"); 61ok(pack('U*', 0xDFFF, 0x21) lt pack('U*', 0xFDD0, 0x21) ); 62 63ok("\x{FDD0}!" lt "\x{FFFB}!"); 64ok(pack('U*', 0xFDD0, 0x21) lt pack('U*', 0xFFFB, 0x21)); 65 66ok("\x{FFFB}!" lt "\x{FFFE}!"); 67ok(pack('U*', 0xFFFB, 0x21) lt pack('U*', 0xFFFE, 0x21)); 68 69ok("\x{FFFE}!" lt "\x{FFFF}!"); 70ok(pack('U*', 0xFFFE, 0x21) lt pack('U*', 0xFFFF, 0x21)); 71 72ok("\x{FFFF}!" lt "\x{1D165}!"); 73ok(pack('U*', 0xFFFF, 0x21) lt pack('U*', 0x1D165, 0x21)); 74 75ok("\000!" lt "\x{FFFF}!"); 76ok(pack('U*', 0, 0x21) lt pack('U*', 0xFFFF, 0x21)); 77 78