15759b3d2Safresh1 25759b3d2Safresh1BEGIN { 35759b3d2Safresh1 if ($ENV{PERL_CORE}) { 45759b3d2Safresh1 chdir('t') if -d 't'; 55759b3d2Safresh1 @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib); 65759b3d2Safresh1 } 75759b3d2Safresh1} 85759b3d2Safresh1 95759b3d2Safresh1######################### 105759b3d2Safresh1 115759b3d2Safresh1use strict; 125759b3d2Safresh1use warnings; 135759b3d2Safresh1BEGIN { $| = 1; print "1..48\n"; } 145759b3d2Safresh1my $count = 0; 15*256a93a4Safresh1sub ok { Unicode::Normalize::ok(\$count, @_) } 165759b3d2Safresh1 175759b3d2Safresh1use Unicode::Normalize qw(:all); 185759b3d2Safresh1 195759b3d2Safresh1ok(1); 205759b3d2Safresh1 215759b3d2Safresh1######################### 225759b3d2Safresh1 235759b3d2Safresh1# unary op. RING-CEDILLA 245759b3d2Safresh1ok( "\x{30A}\x{327}" ne "\x{327}\x{30A}"); 255759b3d2Safresh1ok(NFD "\x{30A}\x{327}" eq "\x{327}\x{30A}"); 265759b3d2Safresh1ok(NFC "\x{30A}\x{327}" eq "\x{327}\x{30A}"); 275759b3d2Safresh1ok(NFKD "\x{30A}\x{327}" eq "\x{327}\x{30A}"); 285759b3d2Safresh1ok(NFKC "\x{30A}\x{327}" eq "\x{327}\x{30A}"); 295759b3d2Safresh1ok(FCD "\x{30A}\x{327}" eq "\x{327}\x{30A}"); 305759b3d2Safresh1ok(FCC "\x{30A}\x{327}" eq "\x{327}\x{30A}"); 315759b3d2Safresh1ok(reorder "\x{30A}\x{327}" eq "\x{327}\x{30A}"); 325759b3d2Safresh1 335759b3d2Safresh1# 9 345759b3d2Safresh1 355759b3d2Safresh1ok(prototype \&normalize,'$$'); 365759b3d2Safresh1ok(prototype \&NFD, '$'); 375759b3d2Safresh1ok(prototype \&NFC, '$'); 385759b3d2Safresh1ok(prototype \&NFKD, '$'); 395759b3d2Safresh1ok(prototype \&NFKC, '$'); 405759b3d2Safresh1ok(prototype \&FCD, '$'); 415759b3d2Safresh1ok(prototype \&FCC, '$'); 425759b3d2Safresh1 435759b3d2Safresh1ok(prototype \&check, '$$'); 445759b3d2Safresh1ok(prototype \&checkNFD, '$'); 455759b3d2Safresh1ok(prototype \&checkNFC, '$'); 465759b3d2Safresh1ok(prototype \&checkNFKD,'$'); 475759b3d2Safresh1ok(prototype \&checkNFKC,'$'); 485759b3d2Safresh1ok(prototype \&checkFCD, '$'); 495759b3d2Safresh1ok(prototype \&checkFCC, '$'); 505759b3d2Safresh1 515759b3d2Safresh1ok(prototype \&decompose, '$;$'); 525759b3d2Safresh1ok(prototype \&reorder, '$'); 535759b3d2Safresh1ok(prototype \&compose, '$'); 545759b3d2Safresh1ok(prototype \&composeContiguous, '$'); 555759b3d2Safresh1 565759b3d2Safresh1# 27 575759b3d2Safresh1 585759b3d2Safresh1ok(prototype \&getCanon, '$'); 595759b3d2Safresh1ok(prototype \&getCompat, '$'); 605759b3d2Safresh1ok(prototype \&getComposite, '$$'); 615759b3d2Safresh1ok(prototype \&getCombinClass,'$'); 625759b3d2Safresh1ok(prototype \&isExclusion, '$'); 635759b3d2Safresh1ok(prototype \&isSingleton, '$'); 645759b3d2Safresh1ok(prototype \&isNonStDecomp, '$'); 655759b3d2Safresh1ok(prototype \&isComp2nd, '$'); 665759b3d2Safresh1ok(prototype \&isComp_Ex, '$'); 675759b3d2Safresh1ok(prototype \&isNFD_NO, '$'); 685759b3d2Safresh1ok(prototype \&isNFC_NO, '$'); 695759b3d2Safresh1ok(prototype \&isNFC_MAYBE, '$'); 705759b3d2Safresh1ok(prototype \&isNFKD_NO, '$'); 715759b3d2Safresh1ok(prototype \&isNFKC_NO, '$'); 725759b3d2Safresh1ok(prototype \&isNFKC_MAYBE, '$'); 735759b3d2Safresh1ok(prototype \&splitOnLastStarter, undef); 745759b3d2Safresh1ok(prototype \&normalize_partial, '$$'); 755759b3d2Safresh1ok(prototype \&NFD_partial, '$'); 765759b3d2Safresh1ok(prototype \&NFC_partial, '$'); 775759b3d2Safresh1ok(prototype \&NFKD_partial, '$'); 785759b3d2Safresh1ok(prototype \&NFKC_partial, '$'); 795759b3d2Safresh1 805759b3d2Safresh1# 48 815759b3d2Safresh1 82