1
2BEGIN {
3    unless ("A" eq pack('U', 0x41)) {
4	print "1..0 # Unicode::Normalize " .
5	    "cannot stringify a Unicode code point\n";
6	exit 0;
7    }
8}
9
10BEGIN {
11    if ($ENV{PERL_CORE}) {
12        chdir('t') if -d 't';
13        @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
14    }
15}
16
17#########################
18
19use 5.006001;
20use Test;
21use strict;
22use warnings;
23
24BEGIN {
25    use Unicode::Normalize qw(:all);
26
27    unless (exists &Unicode::Normalize::bootstrap or 5.008 <= $]) {
28	print "1..0 # skipped: XSUB, or Perl 5.8.0 or later".
29		" needed for this test\n";
30	print $@;
31	exit;
32    }
33}
34
35BEGIN { plan tests => 112 };
36
37#########################
38
39no warnings qw(utf8);
40# To avoid warning in Test.pm, EXPR in ok(EXPR) must be boolean.
41
42for my $u (0xD800, 0xDFFF, 0xFDD0, 0xFDEF, 0xFEFF, 0xFFFE, 0xFFFF,
43	   0x1FFFF, 0x10FFFF, 0x110000, 0x7FFFFFFF)
44{
45    my $c = chr $u;
46    ok($c eq NFD($c));  # 1
47    ok($c eq NFC($c));  # 2
48    ok($c eq NFKD($c)); # 3
49    ok($c eq NFKC($c)); # 4
50    ok($c eq FCD($c));  # 5
51    ok($c eq FCC($c));  # 6
52    ok($c eq decompose($c));   # 7
53    ok($c eq decompose($c,1)); # 8
54    ok($c eq reorder($c));     # 9
55    ok($c eq compose($c));     # 10
56}
57
58our $proc;    # before the last starter
59our $unproc;  # the last starter and after
60
61sub _pack_U   { Unicode::Normalize::pack_U(@_) }
62
63($proc, $unproc) = splitOnLastStarter(_pack_U(0x41, 0x300, 0x327, 0xFFFF));
64ok($proc   eq _pack_U(0x41, 0x300, 0x327));
65ok($unproc eq "\x{FFFF}");
66
67