Re: [PATCH t/op/magic.t] missing tests on Win32

[p5sagit/p5-mst-13.2.git] / t / op / pat.t

diff --git a/t/op/pat.t b/t/op/pat.t
index 63c5ba2..0f978d1 100755 (executable)
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..744\n";
+print "1..747\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -2230,3 +2230,16 @@ print "# some Unicode properties\n";
     print "not " if     "1" =~ /\p{L&}/;
     print "ok 744\n";
 }
+
+{
+    print "not " unless "a" =~ /\p{LowercaseLetter}/;
+    print "ok 745\n";
+
+    print "not " if     "A" =~ /\p{LowercaseLetter}/;
+    print "ok 746\n";
+}
+
+{
+    print "not " unless "\x{AC00}" =~ /\p{HangulSyllable}/;
+    print "ok 747\n";
+}