3 unless ("A" eq pack('U', 0x41)) {
4 print "1..0 # Unicode::Normalize " .
5 "cannot stringify a Unicode code point\n";
11 if ($ENV{PERL_CORE}) {
13 @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
17 #########################
22 BEGIN { plan tests => 42 };
23 use Unicode::Normalize qw(:all);
24 ok(1); # If we made it this far, we're ok.
26 #########################
28 # unary op. RING-CEDILLA
29 ok( "\x{30A}\x{327}" ne "\x{327}\x{30A}");
30 ok(NFD "\x{30A}\x{327}" eq "\x{327}\x{30A}");
31 ok(NFC "\x{30A}\x{327}" eq "\x{327}\x{30A}");
32 ok(NFKD "\x{30A}\x{327}" eq "\x{327}\x{30A}");
33 ok(NFKC "\x{30A}\x{327}" eq "\x{327}\x{30A}");
34 ok(FCD "\x{30A}\x{327}" eq "\x{327}\x{30A}");
35 ok(FCC "\x{30A}\x{327}" eq "\x{327}\x{30A}");
36 ok(reorder "\x{30A}\x{327}" eq "\x{327}\x{30A}");
38 ok(prototype \&normalize,'$$');
39 ok(prototype \&NFD, '$');
40 ok(prototype \&NFC, '$');
41 ok(prototype \&NFKD, '$');
42 ok(prototype \&NFKC, '$');
43 ok(prototype \&FCD, '$');
44 ok(prototype \&FCC, '$');
46 ok(prototype \&check, '$$');
47 ok(prototype \&checkNFD, '$');
48 ok(prototype \&checkNFC, '$');
49 ok(prototype \&checkNFKD,'$');
50 ok(prototype \&checkNFKC,'$');
51 ok(prototype \&checkFCD, '$');
52 ok(prototype \&checkFCC, '$');
54 ok(prototype \&decompose, '$;$');
55 ok(prototype \&reorder, '$');
56 ok(prototype \&compose, '$');
57 ok(prototype \&composeContiguous, '$');
59 ok(prototype \&getCanon, '$');
60 ok(prototype \&getCompat, '$');
61 ok(prototype \&getComposite, '$$');
62 ok(prototype \&getCombinClass,'$');
63 ok(prototype \&isExclusion, '$');
64 ok(prototype \&isSingleton, '$');
65 ok(prototype \&isNonStDecomp, '$');
66 ok(prototype \&isComp2nd, '$');
67 ok(prototype \&isComp_Ex, '$');
69 ok(prototype \&isNFD_NO, '$');
70 ok(prototype \&isNFC_NO, '$');
71 ok(prototype \&isNFC_MAYBE, '$');
72 ok(prototype \&isNFKD_NO, '$');
73 ok(prototype \&isNFKC_NO, '$');
74 ok(prototype \&isNFKC_MAYBE, '$');