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...
[perl5.git] / 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;