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
74
75
76
77
78
79
80
81
|
BEGIN {
if ($ENV{PERL_CORE}) {
chdir('t') if -d 't';
@INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
}
}
#########################
use strict;
use warnings;
BEGIN { $| = 1; print "1..48\n"; }
my $count = 0;
sub ok { Unicode::Normalize::ok(\$count, @_) }
use Unicode::Normalize qw(:all);
ok(1);
#########################
# unary op. RING-CEDILLA
ok( "\x{30A}\x{327}" ne "\x{327}\x{30A}");
ok(NFD "\x{30A}\x{327}" eq "\x{327}\x{30A}");
ok(NFC "\x{30A}\x{327}" eq "\x{327}\x{30A}");
ok(NFKD "\x{30A}\x{327}" eq "\x{327}\x{30A}");
ok(NFKC "\x{30A}\x{327}" eq "\x{327}\x{30A}");
ok(FCD "\x{30A}\x{327}" eq "\x{327}\x{30A}");
ok(FCC "\x{30A}\x{327}" eq "\x{327}\x{30A}");
ok(reorder "\x{30A}\x{327}" eq "\x{327}\x{30A}");
# 9
ok(prototype \&normalize,'$$');
ok(prototype \&NFD, '$');
ok(prototype \&NFC, '$');
ok(prototype \&NFKD, '$');
ok(prototype \&NFKC, '$');
ok(prototype \&FCD, '$');
ok(prototype \&FCC, '$');
ok(prototype \&check, '$$');
ok(prototype \&checkNFD, '$');
ok(prototype \&checkNFC, '$');
ok(prototype \&checkNFKD,'$');
ok(prototype \&checkNFKC,'$');
ok(prototype \&checkFCD, '$');
ok(prototype \&checkFCC, '$');
ok(prototype \&decompose, '$;$');
ok(prototype \&reorder, '$');
ok(prototype \&compose, '$');
ok(prototype \&composeContiguous, '$');
# 27
ok(prototype \&getCanon, '$');
ok(prototype \&getCompat, '$');
ok(prototype \&getComposite, '$$');
ok(prototype \&getCombinClass,'$');
ok(prototype \&isExclusion, '$');
ok(prototype \&isSingleton, '$');
ok(prototype \&isNonStDecomp, '$');
ok(prototype \&isComp2nd, '$');
ok(prototype \&isComp_Ex, '$');
ok(prototype \&isNFD_NO, '$');
ok(prototype \&isNFC_NO, '$');
ok(prototype \&isNFC_MAYBE, '$');
ok(prototype \&isNFKD_NO, '$');
ok(prototype \&isNFKC_NO, '$');
ok(prototype \&isNFKC_MAYBE, '$');
ok(prototype \&splitOnLastStarter, undef);
ok(prototype \&normalize_partial, '$$');
ok(prototype \&NFD_partial, '$');
ok(prototype \&NFC_partial, '$');
ok(prototype \&NFKD_partial, '$');
ok(prototype \&NFKC_partial, '$');
# 48
|
