walkero
/
pcre2
1
0
Fork 0
Code Issues Pull Requests Projects Releases 1 Wiki Activity

Maintenance on tests for Perl compatibility

This commit is contained in:
Philip.Hazel 2015-08-03 17:25:55 +00:00
parent 3e12e15fe1
commit 76a2e62669
9 changed files with 107 additions and 98 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
perltest.sh
View File

@ -204,7 +204,7 @@ for (;;)
printf "data> " if $interact;
last NEXT_RE if ! ($_ = <$infile>);
chomp;
printf $outfile "$_\n" if ! $interact;
printf $outfile "%s", "$_\n" if ! $interact;
s/\s+$//; # Remove trailing space
s/^\s+//; # Remove leading space

35
testdata/testinput1 vendored
View File

@ -1448,18 +1448,6 @@
ABCabc
abcABC
/ab{3cd/
ab{3cd
/ab{3,cd/
ab{3,cd
/ab{3,4a}cd/
ab{3,4a}cd
/{4,5a}bc/
{4,5a}bc
/abc$/
abc
abc\n
@ -1931,9 +1919,6 @@
x\nb\n
a\bx\n
/\x0{ab}/
\0{ab}
/(A|B)*?CD/
CD
@ -4290,12 +4275,6 @@
** Failers
aaaaaa
/ab\Cde/
abXde
/(?<=ab\Cde)X/
abZdeX
/\H\h\V\v/
X X\x0a
X\x09X\x0b
@ -4351,7 +4330,7 @@
** Failers
defabcxyz
/^(a(b))\1\g1\g{1}\g-1\g{-1}\g{-02}Z/
/^(a(b))\1\g1\g{1}\g-1\g{-1}\g{-2}Z/
ababababbbabZXXXX
/(?<A>tom|bon)-\g{A}/
@ -5216,18 +5195,6 @@ name)/mark
/(?:.*?a)(?<=ba)/
aba
/.*?a(*PRUNE)b/
aab
/.*?a(*PRUNE)b/s
aab
/^a(*PRUNE)b/s
aab
/.*?a(*SKIP)b/
aab
/(?>.*?a)b/s
aab

36
testdata/testinput2 vendored
View File

@ -4372,4 +4372,40 @@ a random value. /Ix
/(?|(?'a'aaa)|(?'a'b))(?'a'cccc)\k'a'/I,dupnames
/ab{3cd/
ab{3cd
/ab{3,cd/
ab{3,cd
/ab{3,4a}cd/
ab{3,4a}cd
/{4,5a}bc/
{4,5a}bc
/\x0{ab}/
\0{ab}
/ab\Cde/
abXde
/(?<=ab\Cde)X/
abZdeX
/^(a(b))\1\g1\g{1}\g-1\g{-1}\g{-02}Z/
ababababbbabZXXXX
/.*?a(*PRUNE)b/
aab
/.*?a(*PRUNE)b/s
aab
/^a(*PRUNE)b/s
aab
/.*?a(*SKIP)b/
aab
# End of testinput2

8
testdata/testinput4 vendored
View File

@ -2221,12 +2221,4 @@
"[\S\V\H]"utf
/\C\X*TӅ;
{0,6}\v+ F
/utf
Ӆ\x0a
/\C(\W?ſ)'?{{/utf
\\C(\\W?ſ)'?{{
# End of testinput4

8
testdata/testinput5 vendored
View File

@ -1653,4 +1653,12 @@
"(*UTF)(*UCP)(.UTF).+X(\V+;\^(\D|)!999}(?(?C{7(?C')\H*\S*/^\x5\xa\\xd3\x85n?(;\D*(?m).[^mH+((*UCP)(*U:F)})(?!^)(?'"
/\C\X*TӅ;
{0,6}\v+ F
/utf
Ӆ\x0a
/\C(\W?ſ)'?{{/utf
\\C(\\W?ſ)'?{{
# End of testinput5

46
testdata/testoutput1 vendored
View File

@ -2084,22 +2084,6 @@ No match
0: abcABC
1: abc
/ab{3cd/
ab{3cd
0: ab{3cd
/ab{3,cd/
ab{3,cd
0: ab{3,cd
/ab{3,4a}cd/
ab{3,4a}cd
0: ab{3,4a}cd
/{4,5a}bc/
{4,5a}bc
0: {4,5a}bc
/abc$/
abc
0: abc
@ -2994,10 +2978,6 @@ No match
a\bx\n
0: x
/\x0{ab}/
\0{ab}
0: \x00{ab}
/(A|B)*?CD/
CD
0: CD
@ -7017,14 +6997,6 @@ No match
aaaaaa
No match
/ab\Cde/
abXde
0: abXde
/(?<=ab\Cde)X/
abZdeX
0: X
/\H\h\V\v/
X X\x0a
0: X X\x0a
@ -7125,7 +7097,7 @@ No match
defabcxyz
No match
/^(a(b))\1\g1\g{1}\g-1\g{-1}\g{-02}Z/
/^(a(b))\1\g1\g{1}\g-1\g{-1}\g{-2}Z/
ababababbbabZXXXX
0: ababababbbabZ
1: ab
@ -8675,22 +8647,6 @@ No match
aba
0: aba
/.*?a(*PRUNE)b/
aab
0: ab
/.*?a(*PRUNE)b/s
aab
0: ab
/^a(*PRUNE)b/s
aab
No match
/.*?a(*SKIP)b/
aab
0: ab
/(?>.*?a)b/s
aab
0: ab

50
testdata/testoutput2 vendored
View File

@ -14611,4 +14611,54 @@ Starting code units: a b
Last code unit = 'c'
Subject length lower bound = 0
/ab{3cd/
ab{3cd
0: ab{3cd
/ab{3,cd/
ab{3,cd
0: ab{3,cd
/ab{3,4a}cd/
ab{3,4a}cd
0: ab{3,4a}cd
/{4,5a}bc/
{4,5a}bc
0: {4,5a}bc
/\x0{ab}/
\0{ab}
0: \x00{ab}
/ab\Cde/
abXde
0: abXde
/(?<=ab\Cde)X/
abZdeX
0: X
/^(a(b))\1\g1\g{1}\g-1\g{-1}\g{-02}Z/
ababababbbabZXXXX
0: ababababbbabZ
1: ab
2: b
/.*?a(*PRUNE)b/
aab
0: ab
/.*?a(*PRUNE)b/s
aab
0: ab
/^a(*PRUNE)b/s
aab
No match
/.*?a(*SKIP)b/
aab
0: ab
# End of testinput2

10
testdata/testoutput4 vendored
View File

@ -3741,14 +3741,4 @@ No match
"[\S\V\H]"utf
/\C\X*TӅ;
{0,6}\v+ F
/utf
Ӆ\x0a
No match
/\C(\W?ſ)'?{{/utf
\\C(\\W?ſ)'?{{
No match
# End of testinput4

10
testdata/testoutput5 vendored
View File

@ -4053,4 +4053,14 @@ Failed: error 122 at offset 1227: unmatched closing parenthesis
"(*UTF)(*UCP)(.UTF).+X(\V+;\^(\D|)!999}(?(?C{7(?C')\H*\S*/^\x5\xa\\xd3\x85n?(;\D*(?m).[^mH+((*UCP)(*U:F)})(?!^)(?'"
Failed: error 124 at offset 113: letter or underscore expected after (?< or (?'
/\C\X*TӅ;
{0,6}\v+ F
/utf
Ӆ\x0a
No match
/\C(\W?ſ)'?{{/utf
\\C(\\W?ſ)'?{{
No match
# End of testinput5