3 unless ('A' eq pack('U', 0x41)) {
4 print "1..0 # Unicode::Normalize cannot pack a Unicode code point\n";
7 unless (0x41 == unpack('U', 'A')) {
8 print "1..0 # Unicode::Normalize cannot get a Unicode code point\n";
14 if ($ENV{PERL_CORE}) {
16 @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
21 unless (5.006001 <= $]) {
22 print "1..0 # skipped: Perl 5.6.1 or later".
23 " needed for this test\n";
28 #########################
32 BEGIN { $| = 1; print "1..26\n"; }
35 my $p = my $r = shift;
38 $p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x;
40 print $p ? "ok" : "not ok", ' ', ++$count, "\n";
43 use Unicode::Normalize qw(:all);
47 sub _pack_U { Unicode::Normalize::pack_U(@_) }
48 sub _unpack_U { Unicode::Normalize::unpack_U(@_) }
50 #########################
57 foreach my $str (@string) {
59 $result .= $form eq 'NFC' ? NFC_partial ($unproc) :
60 $form eq 'NFD' ? NFD_partial ($unproc) :
61 $form eq 'NFKC' ? NFKC_partial($unproc) :
62 $form eq 'NFKD' ? NFKD_partial($unproc) :
69 my $strD = "\x{3C9}\x{301}\x{1100}\x{1161}\x{11A8}\x{1100}\x{1161}\x{11AA}";
70 my $strC = "\x{3CE}\x{AC01}\x{AC03}";
71 my @str1 = (substr($strD,0,3), substr($strD,3,4), substr($strD,7));
72 my @str2 = (substr($strD,0,1), substr($strD,1,3), substr($strD,4));
73 ok($strC eq NFC($strD));
74 ok($strD eq join('', @str1));
75 ok($strC eq arraynorm('NFC', @str1));
76 ok($strD eq join('', @str2));
77 ok($strC eq arraynorm('NFC', @str2));
79 my @strX = ("\x{300}\x{AC00}", "\x{11A8}");
80 my $strX = "\x{300}\x{AC01}";
81 ok($strX eq NFC(join('', @strX)));
82 ok($strX eq arraynorm('NFC', @strX));
83 ok($strX eq NFKC(join('', @strX)));
84 ok($strX eq arraynorm('NFKC', @strX));
86 my @strY = ("\x{304B}\x{0308}", "\x{0323}\x{3099}");
87 my $strY = ("\x{304C}\x{0323}\x{0308}");
88 ok($strY eq NFC(join('', @strY)));
89 ok($strY eq arraynorm('NFC', @strY));
90 ok($strY eq NFKC(join('', @strY)));
91 ok($strY eq arraynorm('NFKC', @strY));
93 my @strZ = ("\x{304B}\x{0308}", "\x{0323}", "\x{3099}");
94 my $strZ = ("\x{304B}\x{3099}\x{0323}\x{0308}");
95 ok($strZ eq NFD(join('', @strZ)));
96 ok($strZ eq arraynorm('NFD', @strZ));
97 ok($strZ eq NFKD(join('', @strZ)));
98 ok($strZ eq arraynorm('NFKD', @strZ));
102 # must modify the source
103 my $sNFD = "\x{FA19}";
104 ok(NFD_partial($sNFD), "");
105 ok($sNFD, "\x{795E}");
107 my $sNFC = "\x{FA1B}";
108 ok(NFC_partial($sNFC), "");
109 ok($sNFC, "\x{798F}");
111 my $sNFKD = "\x{FA1E}";
112 ok(NFKD_partial($sNFKD), "");
113 ok($sNFKD, "\x{7FBD}");
115 my $sNFKC = "\x{FA26}";
116 ok(NFKC_partial($sNFKC), "");
117 ok($sNFKC, "\x{90FD}");