From: Bram via RT <perlbug-comment@perl.org>
Date: Sun, 1 Nov 2009 00:33:04 +0000 (-0500)
Subject: [PATCH] Todo test for [perl #38133] (was: [regex] backref problem with quantified... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b4da7baecba4c47b718c6a389ee37a234323bc09;p=p5sagit%2Fp5-mst-13.2.git

[PATCH] Todo test for [perl #38133] (was: [regex] backref problem with quantified groups)

This patch was modified to work with the updated file locations.
---

diff --git a/t/re/pat_rt_report.t b/t/re/pat_rt_report.t
index 92f4acc..efbbe8f 100644
--- a/t/re/pat_rt_report.t
+++ b/t/re/pat_rt_report.t
@@ -21,7 +21,7 @@ BEGIN {
 }
 
 
-plan tests => 2510;  # Update this when adding/deleting tests.
+plan tests => 2511;  # Update this when adding/deleting tests.
 
 run_tests() unless caller;
 
@@ -1178,6 +1178,18 @@ sub run_tests {
 	    ok($s =~ $pat, $pat);
 	}
     }
+
+    {
+        local $TODO = "[perl #38133]";
+
+        "A" =~ /(((?:A))?)+/;
+        my $first = $2;
+
+        "A" =~ /(((A))?)+/;
+        my $second = $2;
+
+        iseq($first, $second);
+    }    
 } # End of sub run_tests
 
 1;