Change 14273: Make the test harder.

[Jarkko Hietaniemi]

Change 14273 by jhi@alpha on 2002/01/15 13:53:01

        Make the test harder.

Affected files ...

.... //depot/perl/t/op/pat.t#157 edit

Differences ...

==== //depot/perl/t/op/pat.t#157 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t.~1~ Tue Jan 15 07:00:05 2002
+++ perl/t/op/pat.t     Tue Jan 15 07:00:05 2002
@@ -2232,10 +2232,10 @@
 }
 
 {
-    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";
 }
 
End of Patch.