From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 15 Jan 2002 13:53:01 +0000 (+0000)
Subject: Make the test harder.
X-Git-Tag: accepted/trunk/20130322.191538~28366
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=904bc114c6e0f18433dd33849b2b8a790a460583;p=platform%2Fupstream%2Fperl.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";
 }