diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-11-15 13:29:39 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-15 12:41:24 +0000 |
| commit | c74340f9cdee6010339b6bfd0e8b0dc8bc875344 (patch) | |
| tree | 461d7dee65931c649dec8616b2a6547652ba3777 /t | |
| parent | f81333e0586497e8dadbe01b840e0be9ee8313ee (diff) | |
| download | perl-c74340f9cdee6010339b6bfd0e8b0dc8bc875344.tar.gz | |
Re: [PATCH] Fix RT#19049 and add relative backreferences
Message-ID: <9b18b3110611150329l206e4552w887ae5f0a3f7ca80@mail.gmail.com>
p4raw-id: //depot/perl@29279
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 24 | ||||
| -rw-r--r-- | t/op/re_tests | 5 |
2 files changed, 25 insertions, 4 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 333165d185..358fbb08bc 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -3216,10 +3216,10 @@ $_ = "x"; s/x/func "in multiline subst"/em; #$_ = "x"; /x(?{func "in regexp"})/; #$_ = "x"; /x(?{func "in multiline regexp"})/m; -# bug #19049 +# bug RT#19049 $_="abcdef\n"; @x = m/./g; -ok("abcde" eq "$`", '# TODO #19049 - global match not setting $`'); +ok("abcde" eq "$`", 'RT#19049 - global match not setting $`'); ok("123\x{100}" =~ /^.*1.*23\x{100}$/, 'uft8 + multiple floating substr'); @@ -4011,6 +4011,24 @@ for my $c ("z", "\0", "!", chr(254), chr(256)) { #------------------------------------------------------------------- # Keep the following tests last -- they may crash perl +{ + # RT#19049 / RT#38869 + my @list = ( + 'ab cdef', # matches regex + ( 'e' x 40000 ) .'ab c' # matches not, but 'ab c' matches part of it + ); + my $y; + my $x; + foreach (@list) { + m/ab(.+)cd/i; # the ignore-case seems to be important + $y = $1; # use $1, which might not be from the last match! + $x = substr($list[0],$-[0],$+[0]-$-[0]); + } + iseq($y,' ', + 'pattern in a loop, failure should not affect previous success'); + iseq($x,'ab cd', + 'pattern in a loop, failure should not affect previous success'); +} ok(("a" x (2**15 - 10)) =~ /^()(a|bb)*$/, "Recursive stack cracker: #24274") or print "# Unexpected outcome: should pass or crash perl\n"; @@ -4034,4 +4052,4 @@ ok((q(a)x 100) =~ /^(??{'(.)'x 100})/, # Put new tests above the line, not here. # Don't forget to update this! -BEGIN { print "1..1345\n" }; +BEGIN { print "1..1347\n" }; diff --git a/t/op/re_tests b/t/op/re_tests index 078caa94be..4279dd6843 100644 --- a/t/op/re_tests +++ b/t/op/re_tests @@ -1187,5 +1187,8 @@ a*(*F) aaaab n - - (A(A|B(*ACCEPT)|C)D)(E) ACDE y $1$2$3 ACDCE (a)(?:(?-1)|(?+1))(b) aab y $&-$1-$2 aab-a-b -(a)(?:(?-1)|(?+1))(b) abb y $&-$1-$2 abb-a-b +(a)(?:(?-1)|(?+1))(b) abb y $1-$2 a-b (a)(?:(?-1)|(?+1))(b) acb n - - + +(foo)(\R1) foofoo y $1-$2 foo-foo +(foo)(\R1)(foo)(\R1) foofoofoofoo y $1-$2-$3-$4 foo-foo-foo-foo |