From: Abigail <abigail@abigail.be>
Date: Wed, 25 Aug 2010 15:36:45 +0000 (+0200)
Subject: Tests for bug 77414
X-Git-Tag: v5.13.5~260^2~17
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/c920e01829265990eb68b8bd0d14811ffbb42650?hp=693853b133edc1e3f92d144d587179879b3c6d43

Tests for bug 77414
---

diff --git a/t/re/pat.t b/t/re/pat.t
index 8220bae..447ac8f 100644
--- a/t/re/pat.t
+++ b/t/re/pat.t
@@ -23,7 +23,7 @@ BEGIN {
 }
 
 
-plan tests => 360;  # Update this when adding/deleting tests.
+plan tests => 366;  # Update this when adding/deleting tests.
 
 run_tests() unless caller;
 
@@ -1024,6 +1024,26 @@ sub run_tests {
         ok($e !~ m/.*?[xyz]$/,"latin string against /.*?[xyz]\$/ - rt75680");
         ok($e !~ m/(.*?)[,\p{isSpace}]+((?:\p{isAlpha}[\p{isSpace}\.]{1,2})+)\p{isSpace}*$/,"latin string against big pattern - rt75680");
     }
+
+    {
+        #
+        # Tests for bug 77414.
+        #
+
+        local $Message = '\p property after empty * match';
+        {
+            local $TODO = "Bug 77414";
+            ok "1" =~ /\s*\pN/;
+            ok "-" =~ /\s*\p{Dash}/;
+            ok " " =~ /\w*\p{Blank}/;
+        }
+
+        ok "1" =~ /\s*\pN+/;
+        ok "-" =~ /\s*\p{Dash}{1}/;
+        ok " " =~ /\w*\p{Blank}{1,4}/;
+
+    }
+
 } # End of sub run_tests
 
 1;