From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 15 Jan 2002 13:53:01 +0000 (+0000)
Subject: Make the test harder.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=904bc114c6e0f18433dd33849b2b8a790a460583;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";
 }