Commit | Line | Data |
e524f5b2 |
1 | |
2 | BEGIN { |
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 | |
10 | BEGIN { |
11 | if ($ENV{PERL_CORE}) { |
12 | chdir('t') if -d 't'; |
13 | @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib); |
14 | } |
15 | } |
16 | |
a092bcfd |
17 | BEGIN { |
18 | unless (5.006001 <= $]) { |
19 | print "1..0 # skipped: Perl 5.6.1 or later". |
20 | " needed for this test\n"; |
21 | exit; |
22 | } |
23 | } |
24 | |
e524f5b2 |
25 | ######################### |
26 | |
e524f5b2 |
27 | BEGIN { |
28 | use Unicode::Normalize qw(:all); |
29 | |
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"; |
33 | print $@; |
34 | exit; |
35 | } |
36 | } |
37 | |
39f4556f |
38 | use Test; |
39 | use strict; |
40 | use warnings; |
41 | |
e524f5b2 |
42 | BEGIN { plan tests => 112 }; |
43 | |
44 | ######################### |
45 | |
46 | no warnings qw(utf8); |
47 | # To avoid warning in Test.pm, EXPR in ok(EXPR) must be boolean. |
48 | |
49 | for my $u (0xD800, 0xDFFF, 0xFDD0, 0xFDEF, 0xFEFF, 0xFFFE, 0xFFFF, |
50 | 0x1FFFF, 0x10FFFF, 0x110000, 0x7FFFFFFF) |
51 | { |
52 | my $c = chr $u; |
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 |
63 | } |
64 | |
65 | our $proc; # before the last starter |
66 | our $unproc; # the last starter and after |
67 | |
68 | sub _pack_U { Unicode::Normalize::pack_U(@_) } |
69 | |
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}"); |
73 | |