t/op/pat.t

1382 	     "\N{CYRILLIC SMALL LETTER A}"	=> 'Ll',
1384 	     "\N{GREEK CAPITAL LETTER ALPHA}"	=> 'Lu',
1385 	     "\N{HIRAGANA LETTER SMALL A}"	=> 'Lo',
1797     print "not " unless "\N{LATIN CAPITAL LETTER A}" =~ /\p{InBasicLatin}/;
1800     print "not " unless "\N{LATIN CAPITAL LETTER A WITH GRAVE}" =~ /\p{InLatin1Supplement}/;
1803     print "not " unless "\N{LATIN CAPITAL LETTER A WITH MACRON}" =~ /\p{InLatinExtendedA}/;
1806     print "not " unless "\N{LATIN SMALL LETTER B WITH STROKE}" =~ /\p{InLatinExtendedB}/;
1809     print "not " unless "\N{KATAKANA LETTER SMALL A}" =~ /\p{InKatakana}/;
2277     # 0100;LATIN CAPITAL LETTER A WITH MACRON;Lu;0;L;0041 0304;;;;N;LATIN CAPITAL LETTER A MACRON;;;0101;
2358     print "# LATIN LETTER A WITH GRAVE\n";
2359     my $lower = "\N{LATIN SMALL LETTER A WITH GRAVE}";
2360     my $UPPER = "\N{LATIN CAPITAL LETTER A WITH GRAVE}";
2367     print "# GREEK LETTER ALPHA WITH VRACHY\n";
2369     $lower = "\N{GREEK CAPITAL LETTER ALPHA WITH VRACHY}";
2370     $UPPER = "\N{GREEK SMALL LETTER ALPHA WITH VRACHY}";
2377     print "# LATIN LETTER Y WITH DIAERESIS\n";
2379     $lower = "\N{LATIN CAPITAL LETTER Y WITH DIAERESIS}";
2380     $UPPER = "\N{LATIN SMALL LETTER Y WITH DIAERESIS}";
2391     print "# GREEK CAPITAL LETTER SIGMA vs COMBINING GREEK PERISPOMENI\n";
2393     my $SIGMA = "\N{GREEK CAPITAL LETTER SIGMA}";
2413     print "\N{LATIN CAPITAL LETTER E}!" =~ /^(\X)!/ &&
2414 	$1 eq "\N{LATIN CAPITAL LETTER E}" ?
2416     print "\N{LATIN CAPITAL LETTER E}\N{COMBINING GRAVE ACCENT}!" =~
2418 	$1 eq "\N{LATIN CAPITAL LETTER E}\N{COMBINING GRAVE ACCENT}" ?
2466     print "fran\N{LATIN SMALL LETTER C}ais" =~
2471     print "fran\N{LATIN SMALL LETTER C WITH CEDILLA}ais" =~
2473 	$& eq "fran\N{LATIN SMALL LETTER C WITH CEDILLA}ais" ?
2476     print "fran\N{LATIN SMALL LETTER C}ais" =~
2485     print "fran\N{LATIN SMALL LETTER C}ais" =~
2490     print "fran\N{LATIN SMALL LETTER C WITH CEDILLA}ais" =~
2492         $& eq "fran\N{LATIN SMALL LETTER C WITH CEDILLA}ais" ?
2500     print "fran\N{LATIN SMALL LETTER C WITH CEDILLA}ais" =~
2501 	  /fran\N{LATIN SMALL LETTER C WITH CEDILLA}ais/  &&
2502         $& eq "fran\N{LATIN SMALL LETTER C WITH CEDILLA}ais" ?
2510     print "fran\N{LATIN SMALL LETTER C}ais" =~
2511 	  /fran(?:c\N{COMBINING CEDILLA}?|\N{LATIN SMALL LETTER C WITH CEDILLA})ais/ &&
2515     print "fran\N{LATIN SMALL LETTER C}ais" =~
2516 	  /fran(?:c\N{COMBINING CEDILLA}?|\N{LATIN SMALL LETTER C WITH CEDILLA})ais/ &&
2520     print "fran\N{LATIN SMALL LETTER C WITH CEDILLA}ais" =~
2521 	  /fran(?:c\N{COMBINING CEDILLA}?|\N{LATIN SMALL LETTER C WITH CEDILLA})ais/ &&
2522 	$& eq "fran\N{LATIN SMALL LETTER C WITH CEDILLA}ais" ?
2526 	  /fran(?:c\N{COMBINING CEDILLA}?|\N{LATIN SMALL LETTER C WITH CEDILLA})ais/ &&
2594     print "# LATIN SMALL LETTER SHARP S\n";
2598     print "\N{LATIN SMALL LETTER SHARP S}" =~
2599 	/\N{LATIN SMALL LETTER SHARP S}/    ? "ok 835\n" : "not ok 835\n";
2601     print "\N{LATIN SMALL LETTER SHARP S}" =~
2602 	/\N{LATIN SMALL LETTER SHARP S}/i   ? "ok 836\n" : "not ok 836\n";
2604     print "\N{LATIN SMALL LETTER SHARP S}" =~
2605 	/[\N{LATIN SMALL LETTER SHARP S}]/  ? "ok 837\n" : "not ok 837\n";
2607     print "\N{LATIN SMALL LETTER SHARP S}" =~
2608 	/[\N{LATIN SMALL LETTER SHARP S}]/i ? "ok 838\n" : "not ok 838\n";
2611 	/\N{LATIN SMALL LETTER SHARP S}/i   ? "ok 839\n" : "not ok 839\n";
2614 	/\N{LATIN SMALL LETTER SHARP S}/i   ? "ok 840\n" : "not ok 840\n";
2617 	/[\N{LATIN SMALL LETTER SHARP S}]/i ? "ok 841\n" : "not ok 841\n";
2620 	/[\N{LATIN SMALL LETTER SHARP S}]/i ? "ok 842\n" : "not ok 842\n";
2622     print "\N{LATIN SMALL LETTER SHARP S}" =~ /ss/i ?
2625     print "\N{LATIN SMALL LETTER SHARP S}" =~ /SS/i ?
3195 # LATIN SMALL/CAPITAL LETTER A WITH MACRON
3199 # LATIN SMALL/CAPITAL LETTER A WITH RING BELOW
3203 # DESERET SMALL/CAPITAL LETTER LONG I
3207 # LATIN SMALL/CAPITAL LETTER A WITH RING BELOW + 'X'