| 1 |
/-- These tests are for the Perl 5.10 features that PCRE supports. --/ |
/-- These tests are for the Perl >= 5.10 features that PCRE supports. --/ |
| 2 |
|
|
| 3 |
/\H\h\V\v/ |
/\H\h\V\v/ |
| 4 |
X X\x0a |
X X\x0a |
| 864 |
AAAC |
AAAC |
| 865 |
0: AC |
0: AC |
| 866 |
|
|
| 867 |
|
/--- Don't loop! ---/ |
| 868 |
|
|
| 869 |
|
/(*:A)A+(*SKIP:A)(B|Z)/K |
| 870 |
|
AAAC |
| 871 |
|
No match, mark = A |
| 872 |
|
|
| 873 |
/--- This should succeed, as a non-existent skip name disables the skip ---/ |
/--- This should succeed, as a non-existent skip name disables the skip ---/ |
| 874 |
|
|
| 875 |
/A(*MARK:A)A+(*SKIP:B)(B|Z) | AC/xK |
/A(*MARK:A)A+(*SKIP:B)(B|Z) | AC/xK |
| 936 |
abbb |
abbb |
| 937 |
No match |
No match |
| 938 |
|
|
| 939 |
|
/--- Check opening parens in comment when seeking forward reference. ---/ |
| 940 |
|
|
| 941 |
|
/(?&t)(?#()(?(DEFINE)(?<t>a))/ |
| 942 |
|
bac |
| 943 |
|
0: a |
| 944 |
|
|
| 945 |
|
/--- COMMIT should override THEN ---/ |
| 946 |
|
|
| 947 |
|
/(?>(*COMMIT)(?>yes|no)(*THEN)(*F))?/ |
| 948 |
|
yes |
| 949 |
|
No match |
| 950 |
|
|
| 951 |
|
/(?>(*COMMIT)(yes|no)(*THEN)(*F))?/ |
| 952 |
|
yes |
| 953 |
|
No match |
| 954 |
|
|
| 955 |
|
/^((yes|no)(*THEN)(*F))?/ |
| 956 |
|
yes |
| 957 |
|
0: |
| 958 |
|
|
| 959 |
|
/b?(*SKIP)c/ |
| 960 |
|
bc |
| 961 |
|
0: bc |
| 962 |
|
abc |
| 963 |
|
0: bc |
| 964 |
|
|
| 965 |
|
/(*SKIP)bc/ |
| 966 |
|
a |
| 967 |
|
No match |
| 968 |
|
|
| 969 |
|
/(*SKIP)b/ |
| 970 |
|
a |
| 971 |
|
No match |
| 972 |
|
|
| 973 |
|
/(?P<abn>(?P=abn)xxx|)+/ |
| 974 |
|
xxx |
| 975 |
|
0: |
| 976 |
|
1: |
| 977 |
|
|
| 978 |
/-- End of testinput11 --/ |
/-- End of testinput11 --/ |