3 unless ("A" eq pack('U', 0x41)) {
4 print "1..0 # Unicode::Normalize " .
5 "cannot stringify a Unicode code point\n";
11 if ($ENV{PERL_CORE}) {
13 @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
18 unless (5.006001 <= $]) {
19 print "1..0 # skipped: Perl 5.6.1 or later".
20 " needed for this test\n";
25 #########################
28 use Unicode::Normalize qw(:all);
30 unless (exists &Unicode::Normalize::bootstrap or 5.008 <= $]) {
31 print "1..0 # skipped: XSUB, or Perl 5.8.0 or later".
32 " needed for this test\n";
42 BEGIN { plan tests => 112 };
44 #########################
47 # To avoid warning in Test.pm, EXPR in ok(EXPR) must be boolean.
49 for my $u (0xD800, 0xDFFF, 0xFDD0, 0xFDEF, 0xFEFF, 0xFFFE, 0xFFFF,
50 0x1FFFF, 0x10FFFF, 0x110000, 0x7FFFFFFF)
53 ok($c eq NFD($c)); # 1
54 ok($c eq NFC($c)); # 2
55 ok($c eq NFKD($c)); # 3
56 ok($c eq NFKC($c)); # 4
57 ok($c eq FCD($c)); # 5
58 ok($c eq FCC($c)); # 6
59 ok($c eq decompose($c)); # 7
60 ok($c eq decompose($c,1)); # 8
61 ok($c eq reorder($c)); # 9
62 ok($c eq compose($c)); # 10
65 our $proc; # before the last starter
66 our $unproc; # the last starter and after
68 sub _pack_U { Unicode::Normalize::pack_U(@_) }
70 ($proc, $unproc) = splitOnLastStarter(_pack_U(0x41, 0x300, 0x327, 0xFFFF));
71 ok($proc eq _pack_U(0x41, 0x300, 0x327));
72 ok($unproc eq "\x{FFFF}");