Unicode properties: fix L& (the #12319 didn't allow L&,

only IsL&) and Inherited (negative lookahead good);
add tests for Common, Inherited, and L&.

p4raw-id: //depot/perl@12320

1 files changed, 25 insertions, 1 deletions

diff --git a/t/op/pat.t b/t/op/pat.t
index 63798660c7..63c5ba21fb 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..738\n";
+print "1..744\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -2206,3 +2206,27 @@ print "# some Unicode properties\n";
     print "ok 738\n";
 
 }
+
+{
+    print "not " if     "a" =~ /\p{Common}/;
+    print "ok 739\n";
+
+    print "not " unless "1" =~ /\p{Common}/;
+    print "ok 740\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";
+}