diff options
author | ph10 <ph10@6239d852-aaf2-0410-a92c-79f79f948069> | 2018-10-03 15:41:47 +0000 |
---|---|---|
committer | ph10 <ph10@6239d852-aaf2-0410-a92c-79f79f948069> | 2018-10-03 15:41:47 +0000 |
commit | f604951a6b43eed352fbf4a4e2981fca2796c934 (patch) | |
tree | ad222e3e20e995c70e4eff10bd0b235116f47e67 /testdata | |
parent | 3899f6557728000c2cfd428cddc597e377baddc2 (diff) | |
download | pcre2-f604951a6b43eed352fbf4a4e2981fca2796c934.tar.gz |
Fix bugs of omission in new script run code.
git-svn-id: svn://vcs.exim.org/pcre2/code/trunk@1020 6239d852-aaf2-0410-a92c-79f79f948069
Diffstat (limited to 'testdata')
-rw-r--r-- | testdata/testinput4 | 10 | ||||
-rw-r--r-- | testdata/testinput5 | 5 | ||||
-rw-r--r-- | testdata/testoutput4 | 12 | ||||
-rw-r--r-- | testdata/testoutput5 | 33 |
4 files changed, 60 insertions, 0 deletions
diff --git a/testdata/testinput4 b/testdata/testinput4 index eea087d..c2d16d5 100644 --- a/testdata/testinput4 +++ b/testdata/testinput4 @@ -2395,6 +2395,16 @@ \= Expect no match \x{1100}\x{2e80}\x{3041}\x{1101} Hangul Han Hiragana Hangul +/(?<!)(*sr:)/ + +/(?<!X(*sr:B)C)/ + +/(?<=abc(?=X(*sr:BCY)Z)XBCYZ)./ + abcXBCYZ! + +/(?<=abc(?=X(*sr:BXY)CCC)XBXYCCC)./ + abcXBXYCCC! + # Test loop breaking for empty string match /^(*sr:A|)*BCD/utf diff --git a/testdata/testinput5 b/testdata/testinput5 index 9730e0b..d559324 100644 --- a/testdata/testinput5 +++ b/testdata/testinput5 @@ -2116,6 +2116,11 @@ /^(*sr:\x{2e80}*)\x{2e80}/B,utf +/(?<!)(*sr:)/B + +/(?<=abc(?=X(*sr:BXY)CCC)XBXYCCC)./B + abcXBXYCCC! + # Some script run patterns are broken in Perl 5.28.0. These can be moved into # test 4 when a mended version of Perl is released. diff --git a/testdata/testoutput4 b/testdata/testoutput4 index 8a53cf7..3b745e1 100644 --- a/testdata/testoutput4 +++ b/testdata/testoutput4 @@ -3873,6 +3873,18 @@ No match \x{1100}\x{2e80}\x{3041}\x{1101} Hangul Han Hiragana Hangul No match +/(?<!)(*sr:)/ + +/(?<!X(*sr:B)C)/ + +/(?<=abc(?=X(*sr:BCY)Z)XBCYZ)./ + abcXBCYZ! + 0: ! + +/(?<=abc(?=X(*sr:BXY)CCC)XBXYCCC)./ + abcXBXYCCC! + 0: ! + # Test loop breaking for empty string match /^(*sr:A|)*BCD/utf diff --git a/testdata/testoutput5 b/testdata/testoutput5 index 406db22..17fac3a 100644 --- a/testdata/testoutput5 +++ b/testdata/testoutput5 @@ -4814,6 +4814,39 @@ MK: ABC End ------------------------------------------------------------------ +/(?<!)(*sr:)/B +------------------------------------------------------------------ + Bra + AssertB not + Ket + Script run + Ket + Ket + End +------------------------------------------------------------------ + +/(?<=abc(?=X(*sr:BXY)CCC)XBXYCCC)./B +------------------------------------------------------------------ + Bra + AssertB + Reverse + abc + Assert + X + Script run + BXY + Ket + CCC + Ket + XBXYCCC + Ket + Any + Ket + End +------------------------------------------------------------------ + abcXBXYCCC! + 0: ! + # Some script run patterns are broken in Perl 5.28.0. These can be moved into # test 4 when a mended version of Perl is released. |