$| = 1;
-print "1..750\n";
+print "1..757\n";
BEGIN {
chdir 't' if -d 't';
print "not " unless "a" =~ /\p{LowercaseLetter}/;
print "ok 745\n";
- print "not " if "A" =~ /\p{LowercaseLetter}/;
+ print "not " if "A" =~ /\p{
+ Lowercase
+ Letter
+ }/x;
print "ok 746\n";
}
}
{
+ # Script=, Block=, Category=
+
print "not " unless "\x{0100}" =~ /\p{Script=Latin}/;
print "ok 748\n";
print "ok 750\n";
}
+{
+ print "# the basic character classes and Unicode \n";
+
+ # 0100;LATIN CAPITAL LETTER A WITH MACRON;Lu;0;L;0041 0304;;;;N;LATIN CAPITAL LETTER A MACRON;;;0101;
+ print "not " unless "\x{0100}" =~ /\w/;
+ print "ok 751\n";
+
+ # 0660;ARABIC-INDIC DIGIT ZERO;Nd;0;AN;;0;0;0;N;;;;;
+ print "not " unless "\x{0660}" =~ /\d/;
+ print "ok 752\n";
+
+ # 1680;OGHAM SPACE MARK;Zs;0;WS;;;;;N;;;;;
+ print "not " unless "\x{1680}" =~ /\s/;
+ print "ok 753\n";
+}
+
+{
+ print "# folding matches and Unicode\n";
+
+ print "not " unless "a\x{100}" =~ /A/i;
+ print "ok 754\n";
+
+ print "not " unless "A\x{100}" =~ /A/i;
+ print "ok 755\n";
+
+ print "not " unless "a\x{100}" =~ /a/i;
+ print "ok 756\n";
+
+ print "not " unless "A\x{100}" =~ /A/i;
+ print "ok 757\n";
+}