$| = 1;
-print "1..722\n";
+print "1..747\n";
BEGIN {
chdir 't' if -d 't';
# Dashes, underbars, case.
print "not " unless "\x80" =~ /\p{in-latin1_SUPPLEMENT}/;
print "ok 716\n";
-}
-{
# Complement, leading and trailing whitespace.
print "not " unless "\x80" =~ /\P{ ^ In Latin 1 Supplement }/;
print "ok 717\n";
-}
-{
- # No ^In, dashes, case.
- print "not " unless "\x80" =~ /\p{latin-1-supplement}/;
+ # No ^In, dashes, case, dash, any intervening (word-break) whitespace.
+ # (well, newlines don't work...)
+ print "not " unless "\x80" =~ /\p{latin-1 supplement}/;
print "ok 718\n";
}
{
print "not " unless "a" =~ /\pL/;
print "ok 719\n";
-}
-{
print "not " unless "a" =~ /\p{IsLl}/;
print "ok 720\n";
+
+ print "not " if "a" =~ /\p{IsLu}/;
+ print "ok 721\n";
+
+ print "not " unless "a" =~ /\p{Ll}/;
+ print "ok 722\n";
+
+ print "not " if "a" =~ /\p{Lu}/;
+ print "ok 723\n";
+
+ print "not " unless "A" =~ /\pL/;
+ print "ok 724\n";
+
+ print "not " unless "A" =~ /\p{IsLu}/;
+ print "ok 725\n";
+
+ print "not " if "A" =~ /\p{IsLl}/;
+ print "ok 726\n";
+
+ print "not " unless "A" =~ /\p{Lu}/;
+ print "ok 727\n";
+
+ print "not " if "A" =~ /\p{Ll}/;
+ print "ok 728\n";
+
+ print "not " if "a" =~ /\PL/;
+ print "ok 729\n";
+
+ print "not " if "a" =~ /\P{IsLl}/;
+ print "ok 730\n";
+
+ print "not " unless "a" =~ /\P{IsLu}/;
+ print "ok 731\n";
+
+ print "not " if "a" =~ /\P{Ll}/;
+ print "ok 732\n";
+
+ print "not " unless "a" =~ /\P{Lu}/;
+ print "ok 733\n";
+
+ print "not " if "A" =~ /\PL/;
+ print "ok 734\n";
+
+ print "not " if "A" =~ /\P{IsLu}/;
+ print "ok 735\n";
+
+ print "not " unless "A" =~ /\P{IsLl}/;
+ print "ok 736\n";
+
+ print "not " if "A" =~ /\P{Lu}/;
+ print "ok 737\n";
+
+ print "not " unless "A" =~ /\P{Ll}/;
+ print "ok 738\n";
+
}
{
- print "not " unless "A" =~ /\pL/;
- print "ok 721\n";
+ print "not " if "a" =~ /\p{Common}/;
+ print "ok 739\n";
+
+ print "not " unless "1" =~ /\p{Common}/;
+ print "ok 740\n";
}
{
- print "not " unless "A" =~ /\p{IsLu}/;
- print "ok 722\n";
+ print "not " if "a" =~ /\p{Inherited}/;
+ print "ok 741\n";
+
+ print "not " unless "\x{300}" =~ /\p{Inherited}/;
+ print "ok 742\n";
+}
+
+{
+ print "not " unless "a" =~ /\p{L&}/;
+ print "ok 743\n";
+
+ 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{LowercaseLetter}/;
+ print "ok 746\n";
+}
+
+{
+ print "not " unless "\x{AC00}" =~ /\p{HangulSyllable}/;
+ print "ok 747\n";
}