1 2BEGIN { 3 if ($ENV{PERL_CORE}) { 4 chdir('t') if -d 't'; 5 @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib); 6 } 7} 8 9######################### 10 11use strict; 12use warnings; 13BEGIN { $| = 1; print "1..48\n"; } 14my $count = 0; 15sub ok { Unicode::Normalize::ok(\$count, @_) } 16 17use Unicode::Normalize qw(:all); 18 19ok(1); 20 21######################### 22 23# unary op. RING-CEDILLA 24ok( "\x{30A}\x{327}" ne "\x{327}\x{30A}"); 25ok(NFD "\x{30A}\x{327}" eq "\x{327}\x{30A}"); 26ok(NFC "\x{30A}\x{327}" eq "\x{327}\x{30A}"); 27ok(NFKD "\x{30A}\x{327}" eq "\x{327}\x{30A}"); 28ok(NFKC "\x{30A}\x{327}" eq "\x{327}\x{30A}"); 29ok(FCD "\x{30A}\x{327}" eq "\x{327}\x{30A}"); 30ok(FCC "\x{30A}\x{327}" eq "\x{327}\x{30A}"); 31ok(reorder "\x{30A}\x{327}" eq "\x{327}\x{30A}"); 32 33# 9 34 35ok(prototype \&normalize,'$$'); 36ok(prototype \&NFD, '$'); 37ok(prototype \&NFC, '$'); 38ok(prototype \&NFKD, '$'); 39ok(prototype \&NFKC, '$'); 40ok(prototype \&FCD, '$'); 41ok(prototype \&FCC, '$'); 42 43ok(prototype \&check, '$$'); 44ok(prototype \&checkNFD, '$'); 45ok(prototype \&checkNFC, '$'); 46ok(prototype \&checkNFKD,'$'); 47ok(prototype \&checkNFKC,'$'); 48ok(prototype \&checkFCD, '$'); 49ok(prototype \&checkFCC, '$'); 50 51ok(prototype \&decompose, '$;$'); 52ok(prototype \&reorder, '$'); 53ok(prototype \&compose, '$'); 54ok(prototype \&composeContiguous, '$'); 55 56# 27 57 58ok(prototype \&getCanon, '$'); 59ok(prototype \&getCompat, '$'); 60ok(prototype \&getComposite, '$$'); 61ok(prototype \&getCombinClass,'$'); 62ok(prototype \&isExclusion, '$'); 63ok(prototype \&isSingleton, '$'); 64ok(prototype \&isNonStDecomp, '$'); 65ok(prototype \&isComp2nd, '$'); 66ok(prototype \&isComp_Ex, '$'); 67ok(prototype \&isNFD_NO, '$'); 68ok(prototype \&isNFC_NO, '$'); 69ok(prototype \&isNFC_MAYBE, '$'); 70ok(prototype \&isNFKD_NO, '$'); 71ok(prototype \&isNFKC_NO, '$'); 72ok(prototype \&isNFKC_MAYBE, '$'); 73ok(prototype \&splitOnLastStarter, undef); 74ok(prototype \&normalize_partial, '$$'); 75ok(prototype \&NFD_partial, '$'); 76ok(prototype \&NFC_partial, '$'); 77ok(prototype \&NFKD_partial, '$'); 78ok(prototype \&NFKC_partial, '$'); 79 80# 48 81 82