$| = 1;
-print "1..744\n";
+print "1..757\n";
BEGIN {
chdir 't' if -d 't';
print "not " if "1" =~ /\p{L&}/;
print "ok 744\n";
}
+
+{
+ print "not " unless "a" =~ /\p{LowercaseLetter}/;
+ print "ok 745\n";
+
+ print "not " if "A" =~ /\p{
+ Lowercase
+ Letter
+ }/x;
+ print "ok 746\n";
+}
+
+{
+ print "not " unless "\x{AC00}" =~ /\p{HangulSyllable}/;
+ print "ok 747\n";
+}
+
+{
+ # Script=, Block=, Category=
+
+ print "not " unless "\x{0100}" =~ /\p{Script=Latin}/;
+ print "ok 748\n";
+
+ print "not " unless "\x{0100}" =~ /\p{Block=LatinExtendedA}/;
+ print "ok 749\n";
+
+ print "not " unless "\x{0100}" =~ /\p{Category=UppercaseLetter}/;
+ 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";
+}