diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-10-26 16:59:11 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-26 15:58:18 +0000 |
| commit | 7f69552c33ff9bd1eb6665f732d0f22956ac2f30 (patch) | |
| tree | 347e535bd40a59d18a31921fa858fa5f56e0145b /t | |
| parent | 258133d1989d727199a2ae29d4f498d5d7e9a2f9 (diff) | |
| download | perl-7f69552c33ff9bd1eb6665f732d0f22956ac2f30.tar.gz | |
Fix a problem with jump-tries, add (?FAIL) pattern.
Message-ID: <9b18b3110610260559k3efa98barc28987e88c581a8a@mail.gmail.com>
p4raw-id: //depot/perl@29118
Diffstat (limited to 't')
| -rw-r--r-- | t/op/re_tests | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/t/op/re_tests b/t/op/re_tests index dbbe993073..9b9e5f8056 100644 --- a/t/op/re_tests +++ b/t/op/re_tests @@ -1147,3 +1147,36 @@ foo(?:aA|bB)?+b foobBb y $& foobBb ([^()]++|\([^()]*\))+ ((abc(ade)ufh()()x y $& abc(ade)ufh()()x round\(([^()]++)\) _I(round(xs * sz),1) y $1 xs * sz +(foo[1x]|bar[2x]|baz[3x])+y foo1bar2baz3y y $1 baz3 +(foo[1x]|bar[2x]|baz[3x])+y foo1bar2baz3y y $& foo1bar2baz3y +(foo[1x]|bar[2x]|baz[3x])*y foo1bar2baz3y y $1 baz3 +(foo[1x]|bar[2x]|baz[3x])*y foo1bar2baz3y y $& foo1bar2baz3y + +([yX].|WORDS|[yX].|WORD)S WORDS y $1 WORD +(WORDS|WORLD|WORD)S WORDS y $1 WORD +([yX].|WORDS|WORD|[xY].)S WORDS y $1 WORD +(foo|fool|[zx].|money|parted)$ fool y $1 fool +([zx].|foo|fool|[zq].|money|parted|[yx].)$ fool y $1 fool +(foo|fool|[zx].|money|parted)$ fools n - - +([zx].|foo|fool|[qx].|money|parted|[py].)$ fools n - - + +([yX].|WORDS|[yX].|WORD)+S WORDS y $1 WORD +(WORDS|WORLD|WORD)+S WORDS y $1 WORD +([yX].|WORDS|WORD|[xY].)+S WORDS y $1 WORD +(foo|fool|[zx].|money|parted)+$ fool y $1 fool +([zx].|foo|fool|[zq].|money|parted|[yx].)+$ fool y $1 fool +(foo|fool|[zx].|money|parted)+$ fools n - - +([zx].|foo|fool|[qx].|money|parted|[py].)+$ fools n - - + +(x|y|z[QW])+(longish|loquatious|excessive|overblown[QW])+ xyzQzWlongishoverblownW y $1-$2 zW-overblownW +(x|y|z[QW])*(longish|loquatious|excessive|overblown[QW])* xyzQzWlongishoverblownW y $1-$2 zW-overblownW +(x|y|z[QW]){1,5}(longish|loquatious|excessive|overblown[QW]){1,5} xyzQzWlongishoverblownW y $1-$2 zW-overblownW + +(x|y|z[QW])++(longish|loquatious|excessive|overblown[QW])++ xyzQzWlongishoverblownW y $1-$2 zW-overblownW +(x|y|z[QW])*+(longish|loquatious|excessive|overblown[QW])*+ xyzQzWlongishoverblownW y $1-$2 zW-overblownW +(x|y|z[QW]){1,5}+(longish|loquatious|excessive|overblown[QW]){1,5}+ xyzQzWlongishoverblownW y $1-$2 zW-overblownW + + +a*(?!) aaaab n - - +a*(?FAIL) aaaab n - - +a*(?F) aaaab n - - |