xref: /openbsd-src/gnu/usr.bin/perl/dist/Unicode-Normalize/t/proto.t (revision 256a93a44f36679bee503f12e49566c2183f6181)
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