This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7de9d14
)
[PATCH] Todo test for [perl #38133] (was: [regex] backref problem with quantified...
author
Bram via RT
<perlbug-comment@perl.org>
Sun, 1 Nov 2009 00:33:04 +0000
(19:33 -0500)
committer
Steve 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
patch
|
blob
|
blame
|
history
diff --git
a/t/re/pat_rt_report.t
b/t/re/pat_rt_report.t
index
92f4acc
..
efbbe8f
100644
(file)
--- a/
t/re/pat_rt_report.t
+++ b/
t/re/pat_rt_report.t
@@
-21,7
+21,7
@@
BEGIN {
}
-plan tests => 251
0
; # Update this when adding/deleting tests.
+plan tests => 251
1
; # 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;