1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
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);
}
}
BEGIN {
unless (5.006001 <= $]) {
print "1..0 # skipped: Perl 5.6.1 or later".
" needed for this test\n";
exit;
}
}
#########################
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;
}
}
use Test;
use strict;
use warnings;
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}");
|
