1 |
|
/-- This set of tests is for features that are compatible with all versions of |
2 |
|
Perl 5, in non-UTF-8 mode. --/ |
3 |
|
|
4 |
/the quick brown fox/ |
/the quick brown fox/ |
5 |
the quick brown fox |
the quick brown fox |
6 |
The quick brown FOX |
The quick brown FOX |
2332 |
baz |
baz |
2333 |
foobarbaz |
foobarbaz |
2334 |
|
|
2335 |
/The case of aaaaaa is missed out below because I think Perl 5.005_02 gets/ |
/The cases of aaaa and aaaaaa are missed out below because Perl does things/ |
2336 |
/it wrong; it sets $1 to aaa rather than aa. Compare the following test,/ |
/differently. We know that odd, and maybe incorrect, things happen with/ |
2337 |
/where it does set $1 to aa when matching aaaaaa./ |
/recursive references in Perl, as far as 5.11.3 - see some stuff in test #2./ |
2338 |
|
|
2339 |
/^(a\1?){4}$/ |
/^(a\1?){4}$/ |
2340 |
a |
a |
2341 |
aa |
aa |
2342 |
aaa |
aaa |
|
aaaa |
|
2343 |
aaaaa |
aaaaa |
2344 |
aaaaaaa |
aaaaaaa |
2345 |
aaaaaaaa |
aaaaaaaa |
4063 |
/(?(?=.*b).*b|^d)/ |
/(?(?=.*b).*b|^d)/ |
4064 |
abc |
abc |
4065 |
|
|
4066 |
/ End of testinput1 / |
/^%((?(?=[a])[^%])|b)*%$/ |
4067 |
|
%ab% |
4068 |
|
|
4069 |
|
/(?i)a(?-i)b|c/ |
4070 |
|
XabX |
4071 |
|
XAbX |
4072 |
|
CcC |
4073 |
|
** Failers |
4074 |
|
XABX |
4075 |
|
|
4076 |
|
/[\x00-\xff\s]+/ |
4077 |
|
\x0a\x0b\x0c\x0d |
4078 |
|
|
4079 |
|
/^\c/ |
4080 |
|
? |
4081 |
|
|
4082 |
|
/-- End of testinput1 --/ |