This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[PATCH] Todo test for [perl #38133] (was: [regex] backref problem with quantified...
authorBram via RT <perlbug-comment@perl.org>
Sun, 1 Nov 2009 00:33:04 +0000 (19:33 -0500)
committerSteve Peters <steve@fisharerojo.org>
Sun, 1 Nov 2009 00:33:04 +0000 (19:33 -0500)
This patch was modified to work with the updated file locations.

t/re/pat_rt_report.t

index 92f4acc..efbbe8f 100644 (file)
@@ -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;