Make the test harder.

p4raw-id: //depot/perl@14273

diff --git a/t/op/pat.t b/t/op/pat.t
index f1448a5..9af9359 100755 (executable)
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -2232,10 +2232,10 @@ print "# some Unicode properties\n";
 }
 
 {
-    print "not " unless "a" =~ /\p{Lowercase}/;
+    print "not " unless "a" =~ /\p{Lowercase Letter}/;
     print "ok 745\n";
 
-    print "not " if     "A" =~ /\p{Lowercase}/;
+    print "not " if     "A" =~ /\p{lowercaseletter}/;
     print "ok 746\n";
 }