BEGIN {

unless ("A" eq pack('U', 0x41)) {

print "1..0 # Unicode::Normalize " .

"cannot stringify a Unicode code point\n";

exit 0;

}

}

BEGIN {

if ($ENV{PERL_CORE}) {

chdir('t') if -d 't';

@INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);

}

}

#########################

use 5.006001;

use Test;

use strict;

use warnings;

BEGIN {

use Unicode::Normalize qw(:all);

unless (exists &Unicode::Normalize::bootstrap or 5.008 <= $]) {

print "1..0 # skipped: XSUB, or Perl 5.8.0 or later".

" needed for this test\n";

print $@;

exit;

}

}

BEGIN { plan tests => 112 };

#########################

no warnings qw(utf8);

# To avoid warning in Test.pm, EXPR in ok(EXPR) must be boolean.

for my $u (0xD800, 0xDFFF, 0xFDD0, 0xFDEF, 0xFEFF, 0xFFFE, 0xFFFF,

0x1FFFF, 0x10FFFF, 0x110000, 0x7FFFFFFF)

{

my $c = chr $u;

ok($c eq NFD($c)); # 1

ok($c eq NFC($c)); # 2

ok($c eq NFKD($c)); # 3

ok($c eq NFKC($c)); # 4

ok($c eq FCD($c)); # 5

ok($c eq FCC($c)); # 6

ok($c eq decompose($c)); # 7

ok($c eq decompose($c,1)); # 8

ok($c eq reorder($c)); # 9

ok($c eq compose($c)); # 10

}

our $proc; # before the last starter

our $unproc; # the last starter and after

sub _pack_U { Unicode::Normalize::pack_U(@_) }

($proc, $unproc) = splitOnLastStarter(_pack_U(0x41, 0x300, 0x327, 0xFFFF));

ok($proc eq _pack_U(0x41, 0x300, 0x327));

ok($unproc eq "\x{FFFF}");