diff options
author | Bram via RT <perlbug-comment@perl.org> | 2009-10-31 19:33:04 -0500 |
---|---|---|
committer | Steve Peters <steve@fisharerojo.org> | 2009-10-31 19:33:04 -0500 |
commit | b4da7baecba4c47b718c6a389ee37a234323bc09 (patch) | |
tree | 8e0efe7e64070b9e5ca62d269181fd08eb9d83c5 /t | |
parent | 7de9d14ea5825e7555ec8154a1b3731aa00948b6 (diff) | |
download | perl-b4da7baecba4c47b718c6a389ee37a234323bc09.tar.gz |
[PATCH] Todo test for [perl #38133] (was: [regex] backref problem with quantified groups)
This patch was modified to work with the updated file locations.
Diffstat (limited to 't')
-rw-r--r-- | t/re/pat_rt_report.t | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/t/re/pat_rt_report.t b/t/re/pat_rt_report.t index 92f4acc8a4..efbbe8f2fd 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; |