diff options
| author | Bram <perl-rt@wizbit.be> | 2008-08-03 18:35:29 +0200 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2008-08-12 12:40:04 +0000 |
| commit | 2811b8367c43e9764f1551138ba9713a2c0f557a (patch) | |
| tree | c9e2aaedb4bc521e662f9f71d145980c2a1e467b /t | |
| parent | a201cd3127f9b9f33e303a02801ba45e9a44a91a (diff) | |
| download | perl-2811b8367c43e9764f1551138ba9713a2c0f557a.tar.gz | |
RE: [perl #35877] Strange regex failure?
Message-ID: <20080803163529.bd73ojeg2s4ow0w4@horde.wizbit.be>
(Adds tests for perl #35877, which was fixed by change 29441)
p4raw-id: //depot/perl@34202
Diffstat (limited to 't')
| -rw-r--r-- | t/op/re_tests | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/t/op/re_tests b/t/op/re_tests index 4013ab6356..ddeb55cdbb 100644 --- a/t/op/re_tests +++ b/t/op/re_tests @@ -1344,7 +1344,10 @@ foo(\h)bar foo\tbar y $1 \t .*?(?:(\w)|(\w))x abx y $1-$2 b- 0{50} 000000000000000000000000000000000000000000000000000 y - - -# Bug #56690 -^a?(?=b)b ab B $& ab -^a*(?=b)b ab B $& ab - +^a?(?=b)b ab B $& ab # Bug #56690 +^a*(?=b)b ab B $& ab # Bug #56690 +/>\d+$ \n/ix >10\n y $& >10 +/>\d+$ \n/ix >1\n y $& >1 +/\d+$ \n/ix >10\n y $& 10 +/>\d\d$ \n/ix >10\n y $& >10 +/>\d+$ \n/x >10\n y $& >10 |