Lines Matching refs:lower
252 # next three tests will fail if you should have picked up a lower-than-
2359 my $lower = "\N{LATIN SMALL LETTER A WITH GRAVE}";
2362 print $lower =~ m/$UPPER/i ? "ok 774\n" : "not ok 774\n";
2363 print $UPPER =~ m/$lower/i ? "ok 775\n" : "not ok 775\n";
2364 print $lower =~ m/[$UPPER]/i ? "ok 776\n" : "not ok 776\n";
2365 print $UPPER =~ m/[$lower]/i ? "ok 777\n" : "not ok 777\n";
2369 $lower = "\N{GREEK CAPITAL LETTER ALPHA WITH VRACHY}";
2372 print $lower =~ m/$UPPER/i ? "ok 778\n" : "not ok 778\n";
2373 print $UPPER =~ m/$lower/i ? "ok 779\n" : "not ok 779\n";
2374 print $lower =~ m/[$UPPER]/i ? "ok 780\n" : "not ok 780\n";
2375 print $UPPER =~ m/[$lower]/i ? "ok 781\n" : "not ok 781\n";
2379 $lower = "\N{LATIN CAPITAL LETTER Y WITH DIAERESIS}";
2381 print $lower =~ m/$UPPER/i ? "ok 782\n" : "not ok 782\n";
2382 print $UPPER =~ m/$lower/i ? "ok 783\n" : "not ok 783\n";
2383 print $lower =~ m/[$UPPER]/i ? "ok 784\n" : "not ok 784\n";
2384 print $UPPER =~ m/[$lower]/i ? "ok 785\n" : "not ok 785\n";