1 # This stops me getting screenfulls of syntax errors every time I accidentally
2 # run this file via a shell glob. The full format of this file is given
4 # Prior to the implementation of autoloading of \N{}, tests that used \N{name}
5 # could not go in this file, and were farmed out to other .t's, where they
8 # pat string y/n/etc expr expected-expr skip-reason comment
31 ab*bc abbbbc y $& abbbbc
32 ab*bc abbbbc y $-[0] 0
33 ab*bc abbbbc y $+[0] 6
37 .{3,4} abbbbc y $& abbb
38 .{3,4} abbbbc y $-[0] 0
39 .{3,4} abbbbc y $+[0] 4
41 \N{1} abbbbc y $-[0] 0
42 \N{1} abbbbc y $+[0] 1
43 /\N {1}/x abbbbc y $& a
44 /\N {1}/x abbbbc y $-[0] 0
45 /\N {1}/x abbbbc y $+[0] 1
46 \N{3,4} abbbbc y $& abbb
47 \N{3,4} abbbbc y $-[0] 0
48 \N{3,4} abbbbc y $+[0] 4
49 /\N {3,4}/x abbbbc y $& abbb
50 /\N {3,4}/x abbbbc y $-[0] 0
51 /\N {3,4}/x abbbbc y $+[0] 4
52 ab{0,}bc abbbbc y $& abbbbc
53 ab{0,}bc abbbbc y $-[0] 0
54 ab{0,}bc abbbbc y $+[0] 6
61 ab+bc abbbbc y $& abbbbc
62 ab+bc abbbbc y $-[0] 0
63 ab+bc abbbbc y $+[0] 6
64 ab{1,}bc abbbbc y $& abbbbc
65 ab{1,}bc abbbbc y $-[0] 0
66 ab{1,}bc abbbbc y $+[0] 6
67 ab{1,3}bc abbbbc y $& abbbbc
68 ab{1,3}bc abbbbc y $-[0] 0
69 ab{1,3}bc abbbbc y $+[0] 6
70 ab{3,4}bc abbbbc y $& abbbbc
71 ab{3,4}bc abbbbc y $-[0] 0
72 ab{3,4}bc abbbbc y $+[0] 6
73 ab{4,5}bc abbbbc n - -
76 ab{0,1}bc abc y $& abc
93 a\N*c axyzc y $& axyzc
94 /a\N *c/x axyzc y $& axyzc
101 [a][b][d] abd y $& abd
104 (?i:.[b].) abd y $& abd
105 (?i:\N[b]\N) abd y $& abd
111 a[b-a] - c - Invalid [] range
112 a[]b - c - Unmatched [
176 ()\x{100}\x{1000} d\x{100}\x{1000} y $+[0] 3
179 *a - c - Quantifier follows nothing
180 (|*)b - c - Quantifier follows nothing
181 (*)b - c - Unknown verb
183 a\ - c - Search pattern not terminated
184 a\(b a(b y $&-$1 a(b-
188 abc) - c - Unmatched )
189 (abc - c - Unmatched (
190 ((a)) abc y $&-$1-$2 a-a-a
191 ((a)) abc y $-[0]-$-[1]-$-[2] 0-0-0
192 ((a)) abc y $+[0]-$+[1]-$+[2] 1-1-1
195 (a)b(c) abc y $&-$1-$2 abc-a-c
196 (a)b(c) abc y $-[0]-$-[1]-$-[2] 0-0-2
197 (a)b(c) abc y $+[0]-$+[1]-$+[2] 3-1-3
198 a+b+c aabbabc y $& abc
199 a{1,}b{1,}c aabbabc y $& abc
200 a** - c - Nested quantifiers
201 a.+?c abcabc y $& abc
202 (a+|b)* ab y $&-$1 ab-b
207 (a+|b){0,} ab y $&-$1 ab-b
208 (a+|b)+ ab y $&-$1 ab-b
209 (a+|b){1,} ab y $&-$1 ab-b
210 (a+|b)? ab y $&-$1 a-a
211 (a+|b){0,1} ab y $&-$1 a-a
216 ([abc])*d abbbcd y $&-$1 abbbcd-c
217 ([abc])*bcd abcd y $&-$1 abcd-a
219 (a|b|c|d|e)f ef y $&-$1 ef-e
220 (a|b|c|d|e)f ef y $-[0] 0
221 (a|b|c|d|e)f ef y $+[0] 2
222 (a|b|c|d|e)f ef y $-[1] 0
223 (a|b|c|d|e)f ef y $+[1] 1
224 abcd*efg abcdefg y $& abcdefg
225 ab* xabyabbbz y $& ab
227 (ab|cd)e abcde y $&-$1 cde-cd
228 [abhgefdc]ij hij y $& hij
229 ^(ab|cd)e abcde n x$1y xy
230 (abc|)ef abcdef y $&-$1 ef-
231 (a|b)c*d abcd y $&-$1 bcd-b
232 (ab|ab*)bc abc y $&-$1 abc-a
233 a([bc]*)c* abc y $&-$1 abc-bc
234 a([bc]*)(c*d) abcd y $&-$1-$2 abcd-bc-d
235 a([bc]*)(c*d) abcd y $-[0] 0
236 a([bc]*)(c*d) abcd y $+[0] 4
237 a([bc]*)(c*d) abcd y $-[1] 1
238 a([bc]*)(c*d) abcd y $+[1] 3
239 a([bc]*)(c*d) abcd y $-[2] 3
240 a([bc]*)(c*d) abcd y $+[2] 4
241 a([bc]+)(c*d) abcd y $&-$1-$2 abcd-bc-d
242 a([bc]*)(c+d) abcd y $&-$1-$2 abcd-b-cd
243 a([bc]*)(c+d) abcd y $-[0] 0
244 a([bc]*)(c+d) abcd y $+[0] 4
245 a([bc]*)(c+d) abcd y $-[1] 1
246 a([bc]*)(c+d) abcd y $+[1] 2
247 a([bc]*)(c+d) abcd y $-[2] 2
248 a([bc]*)(c+d) abcd y $+[2] 4
249 a[bcd]*dcdcde adcdcde y $& adcdcde
250 a[bcd]+dcdcde adcdcde n - -
251 (ab|a)b*c abc y $&-$1 abc-ab
252 (ab|a)b*c abc y $-[0] 0
253 (ab|a)b*c abc y $+[0] 3
254 (ab|a)b*c abc y $-[1] 0
255 (ab|a)b*c abc y $+[1] 2
256 ((a)(b)c)(d) abcd y $1-$2-$3-$4 abc-a-b-d
257 ((a)(b)c)(d) abcd y $-[0] 0
258 ((a)(b)c)(d) abcd y $+[0] 4
259 ((a)(b)c)(d) abcd y $-[1] 0
260 ((a)(b)c)(d) abcd y $+[1] 3
261 ((a)(b)c)(d) abcd y $-[2] 0
262 ((a)(b)c)(d) abcd y $+[2] 1
263 ((a)(b)c)(d) abcd y $-[3] 1
264 ((a)(b)c)(d) abcd y $+[3] 2
265 ((a)(b)c)(d) abcd y $-[4] 3
266 ((a)(b)c)(d) abcd y $+[4] 4
267 [a-zA-Z_][a-zA-Z0-9_]* alpha y $& alpha
268 [_A-Z] } n - - # This could match on EBCDIC if A-Z not excluding things in middle
269 ^a(bc+|b[eh])g|.h$ abh y $&-$1 bh-
270 (bc+d$|ef*g.|h?i(j|k)) effgz y $&-$1-$2 effgz-effgz-
271 (bc+d$|ef*g.|h?i(j|k)) ij y $&-$1-$2 ij-ij-j
272 (bc+d$|ef*g.|h?i(j|k)) effg n - -
273 (bc+d$|ef*g.|h?i(j|k)) bcdd n - -
274 (bc+d$|ef*g.|h?i(j|k)) reffgz y $&-$1-$2 effgz-effgz-
275 ((((((((((a)))))))))) a y $10 a
276 ((((((((((a)))))))))) a y $-[0] 0
277 ((((((((((a)))))))))) a y $+[0] 1
278 ((((((((((a)))))))))) a y $-[10] 0
279 ((((((((((a)))))))))) a y $+[10] 1
280 ((((((((((a))))))))))\10 aa y $& aa
281 ((((((((((a))))))))))${bang} aa n - -
282 ((((((((((a))))))))))${bang} a! y $& a!
283 (((((((((a))))))))) a y $& a
284 multiple words of text uh-uh n - -
285 multiple words multiple words, yeah y $& multiple words
286 (.*)c(.*) abcde y $&-$1-$2 abcde-ab-de
287 \((.*), (.*)\) (a, b) y ($2, $1) (b, a)
289 abcd abcd y $&-\$&-\\$& abcd-\$&-\\abcd
290 a(bc)d abcd y $1-\$1-\\$1 bc-\$1-\\bc
292 (abc)\1 abcabc y $1 abc
293 ([a-c]*)\1 abcabc y $1 abc
294 \1 - c - Reference to nonexistent group
295 \2 - c - Reference to nonexistent group
296 \g1 - c - Reference to nonexistent group
297 \g-1 - c - Reference to nonexistent or unclosed group
298 \g{1} - c - Reference to nonexistent group
299 \g{-1} - c - Reference to nonexistent or unclosed group
300 \g0 - c - Reference to invalid group 0
301 \g-0 - c - Reference to invalid group 0
302 \g{0} - c - Reference to invalid group 0
303 \g{-0} - c - Reference to invalid group 0
305 (a)|\1 x n - Reference to group in different branch
306 (?:(b)?a)\1 a n - Reference to group that did not match
307 (a)|\2 - c - Reference to nonexistent group
308 (([a-c])b*?\2)* ababbbcbc y $&-$1-$2 ababb-bb-b
309 (([a-c])b*?\2){3} ababbbcbc y $&-$1-$2 ababbbcbc-cbc-c
310 ((\3|b)\2(a)x)+ aaxabxbaxbbx n - -
311 ((\3|b)\2(a)x)+ aaaxabaxbaaxbbax y $&-$1-$2-$3 bbax-bbax-b-a
312 ((\3|b)\2(a)){2,} bbaababbabaaaaabbaaaabba y $&-$1-$2-$3 bbaaaabba-bba-b-a
313 #Bug #3589 - up to perl-5.6.0 matches incorrectly, from 5.6.1 not anymore
314 ^((.)?a\2)+$ babadad n - -
325 'abc'i XABCY y $& ABC
326 'abc'i ABABC y $& ABC
328 'ab*bc'i ABC y $& ABC
329 'ab*bc'i ABBC y $& ABBC
330 'ab*?bc'i ABBBBC y $& ABBBBC
331 'ab{0,}?bc'i ABBBBC y $& ABBBBC
332 'ab+?bc'i ABBC y $& ABBC
335 'ab{1,}bc'i ABQ n - -
336 'ab+bc'i ABBBBC y $& ABBBBC
337 'ab{1,}?bc'i ABBBBC y $& ABBBBC
338 'ab{1,3}?bc'i ABBBBC y $& ABBBBC
339 'ab{3,4}?bc'i ABBBBC y $& ABBBBC
340 'ab{4,5}?bc'i ABBBBC n - -
341 'ab??bc'i ABBC y $& ABBC
342 'ab??bc'i ABC y $& ABC
343 'ab{0,1}?bc'i ABC y $& ABC
344 'ab??bc'i ABBBBC n - -
345 'ab??c'i ABC y $& ABC
346 'ab{0,1}?c'i ABC y $& ABC
347 '^abc$'i ABC y $& ABC
349 '^abc'i ABCC y $& ABC
351 'abc$'i AABC y $& ABC
357 'a.*?c'i AXYZC y $& AXYZC
360 'a[bc]d'i ABD y $& ABD
362 'a[b-d]e'i ACE y $& ACE
363 'a[b-d]'i AAC y $& AC
366 'a[b-a]'i - c - Invalid [] range
367 'a[]b'i - c - Unmatched [
368 'a['i - c - Unmatched [
370 'a[]]b'i A]B y $& A]B
371 'a[^bc]d'i AED y $& AED
373 'a[^-b]c'i ADC y $& ADC
376 'a[^]b]c'i ADC y $& ADC
378 'ab|cd'i ABCD y $& AB
379 '()ef'i DEF y $&-$1 EF-
380 '*a'i - c - Quantifier follows nothing
381 '(|*)b'i - c - Quantifier follows nothing
382 '(*)b'i - c - Unknown verb
384 'a\'i - c - Search pattern not terminated
385 'a\(b'i A(B y $&-$1 A(B-
387 'a\(*b'i A((B y $& A((B
388 'a\\b'i A\\B y $& A\\B
389 'abc)'i - c - Unmatched )
390 '(abc'i - c - Unmatched (
391 '((a))'i ABC y $&-$1-$2 A-A-A
392 '(a)b(c)'i ABC y $&-$1-$2 ABC-A-C
393 'a+b+c'i AABBABC y $& ABC
394 'a{1,}b{1,}c'i AABBABC y $& ABC
395 'a**'i - c - Nested quantifiers
396 'a.+?c'i ABCABC y $& ABC
397 'a.*?c'i ABCABC y $& ABC
398 'a.{0,5}?c'i ABCABC y $& ABC
399 '(a+|b)*'i AB y $&-$1 AB-B
400 '(a+|b){0,}'i AB y $&-$1 AB-B
401 '(a+|b)+'i AB y $&-$1 AB-B
402 '(a+|b){1,}'i AB y $&-$1 AB-B
403 '(a+|b)?'i AB y $&-$1 A-A
404 '(a+|b){0,1}'i AB y $&-$1 A-A
405 '(a+|b){0,1}?'i AB y $&-$1 -
406 ')('i - c - Unmatched )
407 '[^ab]*'i CDE y $& CDE
410 '([abc])*d'i ABBBCD y $&-$1 ABBBCD-C
411 '([abc])*bcd'i ABCD y $&-$1 ABCD-A
412 'a|b|c|d|e'i E y $& E
413 '(a|b|c|d|e)f'i EF y $&-$1 EF-E
414 'abcd*efg'i ABCDEFG y $& ABCDEFG
415 'ab*'i XABYABBBZ y $& AB
416 'ab*'i XAYABBBZ y $& A
417 '(ab|cd)e'i ABCDE y $&-$1 CDE-CD
418 '[abhgefdc]ij'i HIJ y $& HIJ
419 '^(ab|cd)e'i ABCDE n x$1y XY
420 '(abc|)ef'i ABCDEF y $&-$1 EF-
421 '(a|b)c*d'i ABCD y $&-$1 BCD-B
422 '(ab|ab*)bc'i ABC y $&-$1 ABC-A
423 'a([bc]*)c*'i ABC y $&-$1 ABC-BC
424 'a([bc]*)(c*d)'i ABCD y $&-$1-$2 ABCD-BC-D
425 'a([bc]+)(c*d)'i ABCD y $&-$1-$2 ABCD-BC-D
426 'a([bc]*)(c+d)'i ABCD y $&-$1-$2 ABCD-B-CD
427 'a[bcd]*dcdcde'i ADCDCDE y $& ADCDCDE
428 'a[bcd]+dcdcde'i ADCDCDE n - -
429 '(ab|a)b*c'i ABC y $&-$1 ABC-AB
430 '((a)(b)c)(d)'i ABCD y $1-$2-$3-$4 ABC-A-B-D
431 '[a-zA-Z_][a-zA-Z0-9_]*'i ALPHA y $& ALPHA
432 '^a(bc+|b[eh])g|.h$'i ABH y $&-$1 BH-
433 '(bc+d$|ef*g.|h?i(j|k))'i EFFGZ y $&-$1-$2 EFFGZ-EFFGZ-
434 '(bc+d$|ef*g.|h?i(j|k))'i IJ y $&-$1-$2 IJ-IJ-J
435 '(bc+d$|ef*g.|h?i(j|k))'i EFFG n - -
436 '(bc+d$|ef*g.|h?i(j|k))'i BCDD n - -
437 '(bc+d$|ef*g.|h?i(j|k))'i REFFGZ y $&-$1-$2 EFFGZ-EFFGZ-
438 '((((((((((a))))))))))'i A y $10 A
439 '((((((((((a))))))))))\10'i AA y $& AA
440 '((((((((((a))))))))))${bang}'i AA n - -
441 '((((((((((a))))))))))${bang}'i A! y $& A!
442 '(((((((((a)))))))))'i A y $& A
443 '(?:(?:(?:(?:(?:(?:(?:(?:(?:(a))))))))))'i A y $1 A
444 '(?:(?:(?:(?:(?:(?:(?:(?:(?:(a|b|c))))))))))'i C y $1 C
445 'multiple words of text'i UH-UH n - -
446 'multiple words'i MULTIPLE WORDS, YEAH y $& MULTIPLE WORDS
447 '(.*)c(.*)'i ABCDE y $&-$1-$2 ABCDE-AB-DE
448 '\((.*), (.*)\)'i (A, B) y ($2, $1) (B, A)
450 'abcd'i ABCD y $&-\$&-\\$& ABCD-\$&-\\ABCD
451 'a(bc)d'i ABCD y $1-\$1-\\$1 BC-\$1-\\BC
453 '(abc)\1'i ABCABC y $1 ABC
454 '([a-c]*)\1'i ABCABC y $1 ABC
458 a(?=c|d). abad y $& ad
459 a(?:b|c|d)(.) ace y $1 e
460 a(?:b|c|d)*(.) ace y $1 e
461 a(?:b|c|d)+?(.) ace y $1 e
462 a(?:b|c|d)+?(.) acdbcdbe y $1 d
463 a(?:b|c|d)+(.) acdbcdbe y $1 e
464 a(?:b|c|d){2}(.) acdbcdbe y $1 b
465 a(?:b|c|d){4,5}(.) acdbcdbe y $1 b
466 a(?:b|c|d){4,5}?(.) acdbcdbe y $1 d
467 ((foo)|(bar))* foobar y $1-$2-$3 bar-foo-bar
468 :(?: - c - Sequence (? incomplete
469 a(?:b|c|d){6,7}(.) acdbcdbe y $1 e
470 a(?:b|c|d){6,7}?(.) acdbcdbe y $1 e
471 a(?:b|c|d){5,6}(.) acdbcdbe y $1 e
472 a(?:b|c|d){5,6}?(.) acdbcdbe y $1 b
473 a(?:b|c|d){5,7}(.) acdbcdbe y $1 e
474 a(?:b|c|d){5,7}?(.) acdbcdbe y $1 b
475 a(?:b|(c|e){1,2}?|d)+?(.) ace y $1$2 ce
477 ^([^a-z])|(\^)$ . y $1 .
479 ^(a\1?){4}$ aaaaaaaaaa y $1 aaaa
480 ^(a\1?){4}$ aaaaaaaaa n - -
481 ^(a\1?){4}$ aaaaaaaaaaa n - -
482 ^(a(?(1)\1)){4}$ aaaaaaaaaa y $1 aaaa
483 ^(a(?(1)\1)){4}$ aaaaaaaaa n - -
484 ^(a(?(1)\1)){4}$ aaaaaaaaaaa n - -
485 ((a{4})+) aaaaaaaaa y $1 aaaaaaaa
486 (((aa){2})+) aaaaaaaaaa y $1 aaaaaaaa
487 (((a{2}){2})+) aaaaaaaaaa y $1 aaaaaaaa
488 (?:(f)(o)(o)|(b)(a)(r))* foobar y $1:$2:$3:$4:$5:$6 f:o:o:b:a:r
496 (?<%)b - c - Group name must start with a non-digit word character
497 (?:..)*a aba y $& aba
499 ^(?:b|a(?=(.)))*\1 abc y $& ab
502 ^((a|b)+)*ax aax y $1 a
503 ^((a|bc)+)*ax aax y $1 a
506 (?:(?i)a)b ab y $& ab
507 ((?i)a)b ab y $&:$1 ab:a
508 (?:(?i)a)b Ab y $& Ab
509 ((?i)a)b Ab y $&:$1 Ab:A
513 ((?i:a))b ab y $&:$1 ab:a
515 ((?i:a))b Ab y $&:$1 Ab:A
518 '(?:(?-i)a)b'i ab y $& ab
519 '((?-i)a)b'i ab y $&:$1 ab:a
520 '(?:(?-i)a)b'i aB y $& aB
521 '((?-i)a)b'i aB y $&:$1 aB:a
522 '(?:(?-i)a)b'i Ab n - -
523 '((?-i)a)b'i Ab n - -
524 '(?:(?-i)a)b'i aB y $& aB
525 '((?-i)a)b'i aB y $1 a
526 '(?:(?-i)a)b'i AB n - -
527 '((?-i)a)b'i AB n - -
528 '(?-i:a)b'i ab y $& ab
529 '((?-i:a))b'i ab y $&:$1 ab:a
530 '(?-i:a)b'i aB y $& aB
531 '((?-i:a))b'i aB y $&:$1 aB:a
533 '((?-i:a))b'i Ab n - -
534 '(?-i:a)b'i aB y $& aB
535 '((?-i:a))b'i aB y $1 a
537 '((?-i:a))b'i AB n - -
538 '((?-i:a.))b'i a\nB n - -
539 '((?-i:a\N))b'i a\nB n - -
540 '((?s-i:a.))b'i a\nB y $1 a\n
541 '((?s-i:a\N))b'i a\nB n - -
542 '((?s-i:a.))b'i B\nB n - -
543 '((?s-i:a\N))b'i B\nB n - -
544 (?:c|d)(?:)(?:a(?:)(?:b)(?:b(?:))(?:b(?:)(?:b))) cabbbb y $& cabbbb
545 (?:c|d)(?:)(?:aaaaaaaa(?:)(?:bbbbbbbb)(?:bbbbbbbb(?:))(?:bbbbbbbb(?:)(?:bbbbbbbb))) caaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb y $& caaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
546 '(ab)\d\1'i Ab4ab y $1 Ab
547 '(ab)\d\1'i ab4Ab y $1 ab
548 foo\w*\d{4}baz foobar1234baz y $& foobar1234baz
550 a(?{f()+ - c - Missing right curly or square bracket
551 a(?{{1}+ - c - Missing right curly or square bracket
552 (?{(^{}) - c - syntax error
555 a(?{"\{"})b cabd y $& ab
556 a(?{"{"}})b - c - Sequence (?{...}) not terminated with ')'
557 a(?{$::bl="\{"}).b caxbd y $::bl {
558 x(~~)*(?:(?:F)?)? x~~ y - -
559 ^a(?#xxx){3}c aaac y $& aaac
560 '^a (?#xxx) (?#yyy) {3}c'x aaac y $& aaac
561 (?<![cd])b dbcb n - -
562 (?<![cd])[ab] dbaacb y $& a
563 (?<!(c|d))b dbcb n - -
564 (?<!(c|d))[ab] dbaacb y $& a
565 (?<!cd)[ab] cdaccb y $& b
566 ^(?:a?b?)*$ a-- n - -
567 ((?s)^a(.))((?m)^b$) a\nb\nc\n y $1;$2;$3 a\n;\n;b
568 ((?m)^b$) a\nb\nc\n y $1 b
570 (?m)^(b) a\nb\n y $1 b
571 ((?m)^b) a\nb\n y $1 b
572 \n((?m)^b) a\nb\n y $1 b
573 ((?s).)c(?!.) a\nb\nc\n y $1 \n
574 ((?s).)c(?!.) a\nb\nc\n y $1:$& \n:\nc
575 ((?s)b.)c(?!.) a\nb\nc\n y $1 b\n
576 ((?s)b.)c(?!.) a\nb\nc\n y $1:$& b\n:b\nc
577 ((?s)b.)c(?!\N) a\nb\nc\n y $1:$& b\n:b\nc
578 '(b.)c(?!\N)'s a\nb\nc\n y $1:$& b\n:b\nc
581 ((?m)^b) a\nb\nc\n y $1 b
584 (x)?(?(1)a|b) a n - -
585 (x)?(?(1)b|a) a y $& a
586 ()?(?(1)b|a) a y $& a
588 ()?(?(1)a|b) a y $& a
589 ^(\()?blah(?(1)(\)))$ (blah) y $2 )
590 ^(\()?blah(?(1)(\)))$ blah y ($2) ()
591 ^(\()?blah(?(1)(\)))$ blah) n - -
592 ^(\()?blah(?(1)(\)))$ (blah n - -
593 ^(\(+)?blah(?(1)(\)))$ (blah) y $2 )
594 ^(\(+)?blah(?(1)(\)))$ blah y ($2) ()
595 ^(\(+)?blah(?(1)(\)))$ blah) n - -
596 ^(\(+)?blah(?(1)(\)))$ (blah n - -
597 (?(1?)a|b) - c - Switch condition not recognized
598 (?(1)a|b|c) - c - Switch (?(condition)... contains too many branches
600 (?(?{0})b|a) a y $& a
602 (?(?{1})a|b) a y $& a
607 (?(?!\x{100})\x{100}|b) \x{100} n - -
608 (?(?!\x{100})b|\x{100}) \x{100} y $& \x{100}
609 (?(?=\x{100})b|\x{100}) \x{100} n - -
610 (?(?=\x{100})\x{100}|b) \x{100} y $& \x{100}
611 (?=(a+?))(\1ab) aaab y $2 aab
612 ^(?=(a+?))\1ab aaab n - -
613 (\w+:)+ one: y $1 one:
615 (?=(a+?))(\1ab) aaab y $2 aab
616 ^(?=(a+?))\1ab aaab n - -
617 ([\w:]+::)?(\w+)$ abcd: n - -
618 ([\w:]+::)?(\w+)$ abcd y $1-$2 -abcd
619 ([\w:]+::)?(\w+)$ xy:z:::abcd y $1-$2 xy:z:::-abcd
620 ^[^bcd]*(c+) aexycd y $1 c
622 ([\w:]+::)?(\w+)$ abcd: n - -
623 ([\w:]+::)?(\w+)$ abcd y $1-$2 -abcd
624 ([\w:]+::)?(\w+)$ xy:z:::abcd y $1-$2 xy:z:::-abcd
625 ^[^bcd]*(c+) aexycd y $1 c
626 (?{$a=2})a*aa(?{local$a=$a+1})k*c(?{$b=$a}) yaaxxaaaacd y $b 3
627 (?{$a=2})(a(?{local$a=$a+1}))*aak*c(?{$b=$a}) yaaxxaaaacd y $b 4
629 ^(a(?{ "x" =~ m{x}})b)(??{ $1 }) abab y $& abab
632 ([[:]+) a:[b]: y $1 :[
633 ([[=]+) a=[b]= y $1 =[
634 ([[.]+) a.[b]. y $1 .[
635 [a[:xyz: - c - Unmatched [
636 [a[:xyz:] - c - POSIX class [:xyz:] unknown
637 [a[:]b[:c] abc y $& abc
638 ([a[:xyz:]b]+) - c - POSIX class [:xyz:] unknown
639 ([[:alpha:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd
640 ([[:alnum:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy
641 ([[:ascii:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__-- ${nulnul}
642 ([[:cntrl:]]+) ABcd01Xy__-- ${nulnul}${ffff} ya $1 ${nulnul} ff is a control on EBCDIC (non-POSIX-BC), so this fails under /u rules
643 ([[:digit:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 01
644 ([[:graph:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__--
645 ([[:lower:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 cd
646 ([[:print:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__--
647 ([[:punct:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 __--
648 ([[:space:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1
649 ([[:word:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__
650 ([[:upper:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 AB
651 ([[:xdigit:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01
652 ([[:^alpha:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 01
653 ((?a)[[:^alnum:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 __-- ${nulnul}${ffff}
654 ([[:^ascii:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ${ffff}
655 ([:[:^ascii:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ${ffff} RT #120799
656 ([[:^cntrl:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__--
657 ([[:^digit:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd
658 ([[:^lower:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 AB
659 ((?a)[[:^print:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ${nulnul}${ffff}
660 ([[:^punct:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy
661 ([[:^space:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__--
662 ((?a)[[:^word:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 -- ${nulnul}${ffff}
663 ([[:^upper:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 cd01
664 ([[:^xdigit:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 Xy__-- ${nulnul}${ffff}
665 [[:foo:]] - c - POSIX class [:foo:] unknown
666 [[:^foo:]] - c - POSIX class [:^foo:] unknown
667 '[[:^cntrl:]]+'u a\x80 y $& a \x80 was matching on EBCDIC platforms
668 ((?>a+)b) aaab y $1 aaab
669 (?>(a+))b aaab y $1 aaa
670 ((?>[^()]+)|\([^()]*\))+ ((abc(ade)ufh()()x y $& abc(ade)ufh()()x
671 (?<=x+)y - c - Variable length lookbehind not implemented
672 ((def){37,17})?ABC ABC y $& ABC
682 '\Z'm a\nb\n y $-[0] 3
683 '\z'm a\nb\n y $-[0] 4
684 '$'m a\nb\n y $-[0] 1
685 '\Z'm b\na\n y $-[0] 3
686 '\z'm b\na\n y $-[0] 4
687 '$'m b\na\n y $-[0] 1
702 'a$'m a\nb\n y $-[0] 0
703 'a\Z'm b\na\n y $-[0] 2
705 'a$'m b\na\n y $-[0] 2
706 'a\Z'm b\na y $-[0] 2
707 'a\z'm b\na y $-[0] 2
712 aa\Z b\naa\n y $-[0] 2
714 aa$ b\naa\n y $-[0] 2
718 'aa\Z'm aa\nb\n n - -
719 'aa\z'm aa\nb\n n - -
720 'aa$'m aa\nb\n y $-[0] 0
721 'aa\Z'm b\naa\n y $-[0] 2
722 'aa\z'm b\naa\n n - -
723 'aa$'m b\naa\n y $-[0] 2
724 'aa\Z'm b\naa y $-[0] 2
725 'aa\z'm b\naa y $-[0] 2
726 'aa$'m b\naa y $-[0] 2
736 'aa\Z'm ac\nb\n n - -
737 'aa\z'm ac\nb\n n - -
739 'aa\Z'm b\nac\n n - -
740 'aa\z'm b\nac\n n - -
754 'aa\Z'm ca\nb\n n - -
755 'aa\z'm ca\nb\n n - -
757 'aa\Z'm b\nca\n n - -
758 'aa\z'm b\nca\n n - -
766 ab\Z b\nab\n y $-[0] 2
768 ab$ b\nab\n y $-[0] 2
772 'ab\Z'm ab\nb\n n - -
773 'ab\z'm ab\nb\n n - -
774 'ab$'m ab\nb\n y $-[0] 0
775 'ab\Z'm b\nab\n y $-[0] 2
776 'ab\z'm b\nab\n n - -
777 'ab$'m b\nab\n y $-[0] 2
778 'ab\Z'm b\nab y $-[0] 2
779 'ab\z'm b\nab y $-[0] 2
780 'ab$'m b\nab y $-[0] 2
790 'ab\Z'm ac\nb\n n - -
791 'ab\z'm ac\nb\n n - -
793 'ab\Z'm b\nac\n n - -
794 'ab\z'm b\nac\n n - -
808 'ab\Z'm ca\nb\n n - -
809 'ab\z'm ca\nb\n n - -
811 'ab\Z'm b\nca\n n - -
812 'ab\z'm b\nca\n n - -
820 abb\Z b\nabb\n y $-[0] 2
822 abb$ b\nabb\n y $-[0] 2
823 abb\Z b\nabb y $-[0] 2
824 abb\z b\nabb y $-[0] 2
825 abb$ b\nabb y $-[0] 2
826 'abb\Z'm abb\nb\n n - -
827 'abb\z'm abb\nb\n n - -
828 'abb$'m abb\nb\n y $-[0] 0
829 'abb\Z'm b\nabb\n y $-[0] 2
830 'abb\z'm b\nabb\n n - -
831 'abb$'m b\nabb\n y $-[0] 2
832 'abb\Z'm b\nabb y $-[0] 2
833 'abb\z'm b\nabb y $-[0] 2
834 'abb$'m b\nabb y $-[0] 2
844 'abb\Z'm ac\nb\n n - -
845 'abb\z'm ac\nb\n n - -
846 'abb$'m ac\nb\n n - -
847 'abb\Z'm b\nac\n n - -
848 'abb\z'm b\nac\n n - -
849 'abb$'m b\nac\n n - -
862 'abb\Z'm ca\nb\n n - -
863 'abb\z'm ca\nb\n n - -
864 'abb$'m ca\nb\n n - -
865 'abb\Z'm b\nca\n n - -
866 'abb\z'm b\nca\n n - -
867 'abb$'m b\nca\n n - -
873 a*abc?xyz+pqr{3}ab{2,}xy{4,5}pq{0,6}AB{0,}zz x n - -
874 a(?{$a=2;$b=3;($b)=$a})b yabz y $b 2
875 round\(((?>[^()]+))\) _I(round(xs * sz),1) y $1 xs * sz
876 '((?x:.) )' x y $1- x -
877 '((?-x:.) )'x x y $1- x-
878 foo.bart foo.bart y - -
879 '^d[x][x][x]'m abcd\ndxxx y - -
880 .X(.+)+X bbbbXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
881 .X(.+)+XX bbbbXcXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
882 .XX(.+)+X bbbbXXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
883 .X(.+)+X bbbbXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
884 .X(.+)+XX bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
885 .XX(.+)+X bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
886 .X(.+)+[X] bbbbXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
887 .X(.+)+[X][X] bbbbXcXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
888 .XX(.+)+[X] bbbbXXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
889 .X(.+)+[X] bbbbXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
890 .X(.+)+[X][X] bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
891 .XX(.+)+[X] bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
892 .[X](.+)+[X] bbbbXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
893 .[X](.+)+[X][X] bbbbXcXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
894 .[X][X](.+)+[X] bbbbXXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
895 .[X](.+)+[X] bbbbXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
896 .[X](.+)+[X][X] bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
897 .[X][X](.+)+[X] bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
899 ([a-\d]+) za-9z Sy $1 a-9
900 ([a-\d]+) - sc - False [] range
901 ([\d-z]+) a0-za Sy $1 0-z
902 ([\d-z]+) - sc $1 False [] range
903 ([\d-\s]+) a0- z Sy $1 0-
904 ([\d-\s]+) - sc $1 False [] range
905 ([a-[:digit:]]+) za-9z Sy $1 a-9
906 ([a-[:digit:]]+) - sc - False [] range
907 ([[:digit:]-z]+) =0-z= Sy $1 0-z
908 ([[:digit:]-z]+) - sc c False [] range
909 ([[:digit:]-[:alpha:]]+) =0-z= Sy $1 0-z
910 ([[:digit:]-[:alpha:]]+) - sc - False [] range
912 (\d+\.\d+) 3.1415926 y $1 3.1415926
913 (\ba.{0,10}br) have a web browser y $1 a web br
914 '\.c(pp|xx|c)?$'i Changes n - -
915 '\.c(pp|xx|c)?$'i IO.c y - -
916 '(\.c(pp|xx|c)?$)'i IO.c y $1 .c
918 '^\S\s+aa$'m \nx aa y - -
920 ^([ab]*?)(b)?(c)$ abac y -$2- --
921 (\w)?(abc)\1b abcab n - -
922 ^(?:.,){2}c a,b,c y - -
923 ^(.,){2}c a,b,c y $1 b,
924 ^(?:[^,]*,){2}c a,b,c y - -
925 ^([^,]*,){2}c a,b,c y $1 b,
926 ^([^,]*,){3}d aaa,b,c,d y $1 c,
927 ^([^,]*,){3,}d aaa,b,c,d y $1 c,
928 ^([^,]*,){0,3}d aaa,b,c,d y $1 c,
929 ^([^,]{1,3},){3}d aaa,b,c,d y $1 c,
930 ^([^,]{1,3},){3,}d aaa,b,c,d y $1 c,
931 ^([^,]{1,3},){0,3}d aaa,b,c,d y $1 c,
932 ^([^,]{1,},){3}d aaa,b,c,d y $1 c,
933 ^([^,]{1,},){3,}d aaa,b,c,d y $1 c,
934 ^([^,]{1,},){0,3}d aaa,b,c,d y $1 c,
935 ^([^,]{0,3},){3}d aaa,b,c,d y $1 c,
936 ^([^,]{0,3},){3,}d aaa,b,c,d y $1 c,
937 ^([^,]{0,3},){0,3}d aaa,b,c,d y $1 c,
939 (?a:((?u)\w)\W) \xC0\xC0 y $& \xC0\xC0
940 '(?!\A)x'm a\nxb\n y - -
941 ^(a(b)?)+$ aba y -$1-$2- -a--
942 ^(aa(bb)?)+$ aabbaa y -$1-$2- -aa--
943 '^.{9}abc.*\n'm 123\nabcabcabcabc\n y - -
945 ^(a)?(?(1)a|b)+$ a n - -
946 ^(a\1?)(a\1?)(a\2?)(a\3?)$ aaaaaa y $1,$2,$3,$4 a,aa,a,aa
947 ^(a\1?){4}$ aaaaaa y $1 aa
948 ^(0+)?(?:x(1))? x1 y - -
949 ^([0-9a-fA-F]+)(?:x([0-9a-fA-F]+)?)(?:x([0-9a-fA-F]+))? 012cxx0190 y - -
950 ^(b+?|a){1,2}c bbbac y $1 a
951 ^(b+?|a){1,2}c bbbbac y $1 a
952 \((\w\. \w+)\) cd. (A. Tw) y -$1- -A. Tw-
953 ((?:aaaa|bbbb)cccc)? aaaacccc y - -
954 ((?:aaaa|bbbb)cccc)? bbbbcccc y - -
955 (a)?(a)+ a y $1:$2 :a -
956 (ab)?(ab)+ ab y $1:$2 :ab -
957 (abc)?(abc)+ abc y $1:$2 :abc -
960 ^(a(??{"(?!)"})|(a)(?{1}))b ab y $2 a # [ID 20010811.006 (#7512)]
961 ab(?i)cd AbCd n - - # [ID 20010809.023 (#7503)]
963 (A|B)*(?(1)(CD)|(CD)) CD y $2-$3 -CD
964 (A|B)*(?(1)(CD)|(CD)) ABCD y $2-$3 CD-
965 (A|B)*?(?(1)(CD)|(CD)) CD y $2-$3 -CD # [ID 20010803.016 (#7438)]
966 (A|B)*?(?(1)(CD)|(CD)) ABCD y $2-$3 CD-
967 '^(o)(?!.*\1)'i Oo n - -
968 (.*)\d+\1 abc12bc y $1 bc
969 (?m:(foo\s*$)) foo\n bar y $1 foo
971 (.*)(?=c) abcd y $1 ab
972 (.*)(?=c)c abcd yB $1 ab
973 (.*)(?=b|c) abcd y $1 ab
974 (.*)(?=b|c)c abcd y $1 ab
975 (.*)(?=c|b) abcd y $1 ab
976 (.*)(?=c|b)c abcd y $1 ab
977 (.*)(?=[bc]) abcd y $1 ab
978 (.*)(?=[bc])c abcd yB $1 ab
979 (.*)(?<=b) abcd y $1 ab
980 (.*)(?<=b)c abcd y $1 ab
981 (.*)(?<=b|c) abcd y $1 abc
982 (.*)(?<=b|c)c abcd y $1 ab
983 (.*)(?<=c|b) abcd y $1 abc
984 (.*)(?<=c|b)c abcd y $1 ab
985 (.*)(?<=[bc]) abcd y $1 abc
986 (.*)(?<=[bc])c abcd y $1 ab
988 (.*?)(?=c) abcd y $1 ab
989 (.*?)(?=c)c abcd yB $1 ab
990 (.*?)(?=b|c) abcd y $1 a
991 (.*?)(?=b|c)c abcd y $1 ab
992 (.*?)(?=c|b) abcd y $1 a
993 (.*?)(?=c|b)c abcd y $1 ab
994 (.*?)(?=[bc]) abcd y $1 a
995 (.*?)(?=[bc])c abcd yB $1 ab
996 (.*?)(?<=b) abcd y $1 ab
997 (.*?)(?<=b)c abcd y $1 ab
998 (.*?)(?<=b|c) abcd y $1 ab
999 (.*?)(?<=b|c)c abcd y $1 ab
1000 (.*?)(?<=c|b) abcd y $1 ab
1001 (.*?)(?<=c|b)c abcd y $1 ab
1002 (.*?)(?<=[bc]) abcd y $1 ab
1003 (.*?)(?<=[bc])c abcd y $1 ab
1006 a(b)?? abc y <$1> <> # undef [perl #16773]
1007 (\d{1,3}\.){3,} 128.134.142.8 y <$1> <142.> # [perl #18019]
1008 ^.{3,4}(.+)\1\z foobarbar y $1 bar # 16 tests for [perl #23171]
1009 ^(?:f|o|b){3,4}(.+)\1\z foobarbar y $1 bar
1010 ^.{3,4}((?:b|a|r)+)\1\z foobarbar y $1 bar
1011 ^(?:f|o|b){3,4}((?:b|a|r)+)\1\z foobarbar y $1 bar
1012 ^.{3,4}(.+?)\1\z foobarbar y $1 bar
1013 ^(?:f|o|b){3,4}(.+?)\1\z foobarbar y $1 bar
1014 ^.{3,4}((?:b|a|r)+?)\1\z foobarbar y $1 bar
1015 ^(?:f|o|b){3,4}((?:b|a|r)+?)\1\z foobarbar y $1 bar
1016 ^.{2,3}?(.+)\1\z foobarbar y $1 bar
1017 ^(?:f|o|b){2,3}?(.+)\1\z foobarbar y $1 bar
1018 ^.{2,3}?((?:b|a|r)+)\1\z foobarbar y $1 bar
1019 ^(?:f|o|b){2,3}?((?:b|a|r)+)\1\z foobarbar y $1 bar
1020 ^.{2,3}?(.+?)\1\z foobarbar y $1 bar
1021 ^(?:f|o|b){2,3}?(.+?)\1\z foobarbar y $1 bar
1022 ^.{2,3}?((?:b|a|r)+?)\1\z foobarbar y $1 bar
1023 ^(?:f|o|b){2,3}?((?:b|a|r)+?)\1\z foobarbar y $1 bar
1024 .*a(?!(b|cd)*e).*f ......abef n - - # [perl #23030]
1025 x(?# - c - Sequence (?#... not terminated
1026 :x(?#: - c - Sequence (?#... not terminated
1027 (WORDS|WORD)S WORDS y $1 WORD
1028 (X.|WORDS|X.|WORD)S WORDS y $1 WORD
1029 (WORDS|WORLD|WORD)S WORDS y $1 WORD
1030 (X.|WORDS|WORD|Y.)S WORDS y $1 WORD
1031 (foo|fool|x.|money|parted)$ fool y $1 fool
1032 (x.|foo|fool|x.|money|parted|y.)$ fool y $1 fool
1033 (foo|fool|money|parted)$ fool y $1 fool
1034 (foo|fool|x.|money|parted)$ fools n - -
1035 (x.|foo|fool|x.|money|parted|y.)$ fools n - -
1036 (foo|fool|money|parted)$ fools n - -
1037 (a|aa|aaa||aaaa|aaaaa|aaaaaa)(b|c) aaaaaaaaaaaaaaab y $1$2 aaaaaab
1038 (a|aa|aaa||aaaa|aaaaa|aaaaaa)(??{$1&&""})(b|c) aaaaaaaaaaaaaaab y $1$2 aaaaaab
1039 (a|aa|aaa|aaaa|aaaaa|aaaaaa)(??{$1&&"foo"})(b|c) aaaaaaaaaaaaaaab n - -
1040 ^(a*?)(?!(aa|aaaa)*$) aaaaaaaaaaaaaaaaaaaa y $1 a # [perl #34195]
1041 ^(a*?)(?!(aa|aaaa)*$)(?=a\z) aaaaaaaa y $1 aaaaaaa
1042 ^(.)\s+.$(?(1)) A B y $1 A # [perl #37688]
1043 (?:r?)*?r|(.{2,4}) abcde y $1 abcd
1044 (?!)+?|(.{2,4}) abcde y $1 abcd
1045 ^(a*?)(?!(a{6}|a{5})*$) aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y $+[1] 12 # super-linear cache bug may return 18
1046 ^((?>(?:aa)?b)?) aab y $1 aab
1047 ^((?:aa)*)(?:X+((?:\d+|-)(?:X+(.+))?))?$ aaaaX5 y $1 aaaa
1048 X(A|B||C|D)Y XXXYYY y $& XY # Trie w/ NOTHING
1049 (?i:X([A]|[B]|y[Y]y|[D]|)Y) XXXYYYB y $& XY # Trie w/ NOTHING
1050 ^([a]{1})*$ aa y $1 a
1051 a(?!b(?!c))(..) abababc y $1 bc # test nested negatives
1052 a(?!b(?=a))(..) abababc y $1 bc # test nested lookaheads
1053 a(?!b(?!c(?!d(?!e))))...(.) abxabcdxabcde y $1 e
1054 X(?!b+(?!(c+)*(?!(c+)*d))).*X aXbbbbbbbcccccccccccccaaaX y - -
1055 ^(XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P): ZEQQQQQQQQQQQQQQQQQQP: y $1 ZEQQQQQQQQQQQQQQQQQQP
1056 ^(XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P): ZEQQQX: y $1 ZEQQQX
1057 ^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P): ZEQQQQQQQQQQQQQQQQQQP: y $1 ZEQQQQQQQQQQQQQQQQQQP
1058 ^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P): ZEQQQX: y $1 ZEQQQX
1059 ^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P|[MKJ]): ZEQQQQQQQQQQQQQQQQQQP: y $1 ZEQQQQQQQQQQQQQQQQQQP
1060 ^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P|[MKJ]): ZEQQQX: y $1 ZEQQQX
1061 ^(XXX|YYY|Z.Q*X|Z[TE]Q*P): ZEQQQQQQQQQQQQQQQQQQP: y $1 ZEQQQQQQQQQQQQQQQQQQP
1062 ^(XXX|YYY|Z.Q*X|Z[TE]Q*P): ZEQQQX: y $1 ZEQQQX
1063 ^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P): ZEQQQQQQQQQQQQQQQQQQP: y $1 ZEQQQQQQQQQQQQQQQQQQP
1064 ^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P): ZEQQQX: y $1 ZEQQQX
1065 ^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P|[MKJ]): ZEQQQQQQQQQQQQQQQQQQP: y $1 ZEQQQQQQQQQQQQQQQQQQP
1066 ^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P|[MKJ]): ZEQQQX: y $1 ZEQQQX
1067 X(?:ABCF[cC]x*|ABCD|ABCF):(?:DIT|DID|DIM) XABCFCxxxxxxxxxx:DIM y $& XABCFCxxxxxxxxxx:DIM
1068 (((ABCD|ABCE|ABCF)))(A|B|C[xy]*): ABCFCxxxxxxxxxx:DIM y $& ABCFCxxxxxxxxxx:
1070 (?=foo) XfooY y pos 1
1071 .*(?=foo) XfooY y pos 1
1073 (?<=foo) foo y pos 3
1074 (?<=foo) XfooY y pos 4
1075 .*(?<=foo) foo y pos 3
1076 .*(?<=foo) XfooY y pos 4
1077 (?<=foo)Y XfooY y pos 5
1078 o(?<=foo)Y ..XfooY.. y pos 7
1079 X(?=foo)f ..XfooY.. y pos 4
1080 X(?=foo) ..XfooY.. y pos 3
1081 X(?<=foo.)[YZ] ..XfooXY.. y pos 8
1082 (?=XY*foo) Xfoo y pos 0
1083 ^(?=XY*foo) Xfoo y pos 0
1084 ^(??{"a+"})a aa y $& aa
1085 ^(?:(??{"a+"})|b)a aa y $& aa
1086 ^(??{chr 0x100}).$ \x{100}\x{100} y $& \x{100}\x{100}
1087 ^(??{q(\x{100})}). \x{100}\x{100} y $& \x{100}\x{100}
1088 ^(??{q(.+)})\x{100} \x{100}\x{100} y $& \x{100}\x{100}
1089 ^(??{q(.)})\x{100} \x{100}\x{100} y $& \x{100}\x{100}
1090 ^(??{chr 0x100})\xbb \x{100}\x{bb} y $& \x{100}\x{bb}
1091 ^(.)(??{"(.)(.)"})(.)$ abcd y $1-$2 a-d
1092 ^(.)(??{"(bz+|.)(.)"})(.)$ abcd y $1-$2 a-d
1093 ^(.)((??{"(.)(cz+)"})|.) abcd y $1-$2 a-b
1094 ^a(?>(??{q(b)}))(??{q(c)})d abcd y - -
1095 ^x(??{""})+$ x y $& x
1096 ^(<(?:[^<>]+|(?3)|(?1))*>)()(!>!>!>)$ <<!>!>!>><>>!>!>!> y $1 <<!>!>!>><>>
1097 ^(<(?:[^<>]+|(?1))*>)$ <<><<<><>>>> y $1 <<><<<><>>>>
1098 ((?2)*)([fF]o+) fooFoFoo y $1-$2 fooFo-Foo
1099 (<(?:[^<>]+|(?R))*>) <<><<<><>>>> y $1 <<><<<><>>>>
1100 (?<n>foo|bar|baz) snofooewa y $1 foo
1101 (?<n>foo|bar|baz) snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1102 (?<n>foo|bar|baz)(?<m>[ew]+) snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1103 (?<n>foo|bar|baz)(?<m>[ew]+) snofooewa yM $+{m} ew miniperl cannot load Tie::Hash::NamedCapture
1104 (?<n>foo)|(?<n>bar)|(?<n>baz) snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1105 (?<n>foo)(??{ $+{n} }) snofooefoofoowaa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1106 (?P<n>foo|bar|baz) snofooewa y $1 foo
1107 (?P<n>foo|bar|baz) snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1108 (?P<n>foo|bar|baz)(?P<m>[ew]+) snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1109 (?P<n>foo|bar|baz)(?P<m>[ew]+) snofooewa yM $+{m} ew miniperl cannot load Tie::Hash::NamedCapture
1110 (?P<n>foo)|(?P<n>bar)|(?P<n>baz) snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1111 (?P<n>foo)(??{ $+{n} }) snofooefoofoowaa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1112 (?P<=n>foo|bar|baz) - c - Group name must start with a non-digit word character
1113 (?P<!n>foo|bar|baz) - c - Group name must start with a non-digit word character
1114 (?PX<n>foo|bar|baz) - c - Sequence (?PX...) not recognized
1115 /(?'n'foo|bar|baz)/ snofooewa y $1 foo
1116 /(?'n'foo|bar|baz)/ snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1117 /(?'n'foo|bar|baz)(?'m'[ew]+)/ snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1118 /(?'n'foo|bar|baz)(?'m'[ew]+)/ snofooewa yM $+{m} ew miniperl cannot load Tie::Hash::NamedCapture
1119 /(?'n'foo)|(?'n'bar)|(?<n>baz)/ snobazewa yM $+{n} baz miniperl cannot load Tie::Hash::NamedCapture
1120 /(?'n'foo)(??{ $+{n} })/ snofooefoofoowaa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1121 /(?'n'foo)\k<n>/ ..foofoo.. y $1 foo
1122 /(?'n'foo)\k<n>/ ..foofoo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1123 /(?<n>foo)\k'n'/ ..foofoo.. y $1 foo
1124 /(?<n>foo)\k'n'/ ..foofoo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1125 /(?:(?<n>foo)|(?<n>bar))\k<n>/ ..barbar.. yM $+{n} bar miniperl cannot load Tie::Hash::NamedCapture
1126 /^(?'main'<(?:[^<>]+|(?&crap)|(?&main))*>)(?'empty')(?'crap'!>!>!>)$/ <<!>!>!>><>>!>!>!> yM $+{main} <<!>!>!>><>> miniperl cannot load Tie::Hash::NamedCapture
1127 /^(?'main'<(?:[^<>]+|(?&main))*>)$/ <<><<<><>>>> y $1 <<><<<><>>>>
1128 /(?'first'(?&second)*)(?'second'[fF]o+)/ fooFoFoo yM $+{first}-$+{second} fooFo-Foo miniperl cannot load Tie::Hash::NamedCapture
1129 (?<A>foo)?(?(<A>)bar|nada) foobar yM $+{A} foo miniperl cannot load Tie::Hash::NamedCapture
1130 (?<A>foo)?(?(<A>)bar|nada) foo-barnada y $& nada
1131 (?<A>foo)?(?(1)bar|nada) foo-barnada y $& nada
1132 (?<A>foo(?(R)bar))?(?1) foofoobar y $1 foo
1133 (?<A>foo(?(R)bar))?(?1) foofoobar y $& foofoobar
1134 (x)(?<A>foo(?(R&A)bar))?(?&A) xfoofoobar y $2 foo
1135 (x)(?<A>foo(?(R&A)bar))?(?&A) xfoofoobar y $& xfoofoobar
1136 (x)(?<A>foo(?(R2)bar))?(?&A) xfoofoobar y $2 foo
1137 (x)(?<A>foo(?(R2)bar))?(?&A) xfoofoobar y $& xfoofoobar
1138 (?1)(?(DEFINE)(blah)) blah y $& blah
1139 /^(?<PAL>(?<CHAR>.)((?&PAL)|.?)\k<CHAR>)$/ madamimadam y $& madamimadam
1140 /^(?<PAL>(?<CHAR>.)((?&PAL)|.?)\k<CHAR>)$/ madamiamadam n - -
1141 /(a)?((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
1142 /(a)*((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
1143 /(a)+((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
1144 /(a){1,100}((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
1145 /(a){0,100}((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
1146 /(ab)?((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
1147 /(ab)*((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
1148 /(ab)+((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
1149 /(ab){1,100}((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
1150 /(ab){0,100}((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
1151 foo(?0)?bar phoofoofoobarbarbarr y $& foofoobarbar
1152 foo(?R)?bar phoofoofoobarbarbarr y $& foofoobarbar
1153 # possessive captures
1156 a{1,5}+a aaaaa n - -
1158 a++b aaaaab y $& aaaaab
1159 a*+b aaaaab y $& aaaaab
1160 a{1,5}+b aaaaab y $& aaaaab
1162 fooa++a fooaaaaa n - -
1163 fooa*+a fooaaaaa n - -
1164 fooa{1,5}+a fooaaaaa n - -
1166 fooa++b fooaaaaab y $& fooaaaaab
1167 fooa*+b fooaaaaab y $& fooaaaaab
1168 fooa{1,5}+b fooaaaaab y $& fooaaaaab
1169 fooa?+b fooab y $& fooab
1170 (?:aA)++(?:aA) aAaAaAaAaA n - aAaAaAaAaA
1171 (aA)++(aA) aAaAaAaAaA n - aAaAaAaAaA
1172 (aA|bB)++(aA|bB) aAaAbBaAbB n - aAaAbBaAbB
1173 (?:aA|bB)++(?:aA|bB) aAbBbBbBaA n - aAbBbBbBaA
1174 (?:aA)*+(?:aA) aAaAaAaAaA n - aAaAaAaAaA
1175 (aA)*+(aA) aAaAaAaAaA n - aAaAaAaAaA
1176 (aA|bB)*+(aA|bB) aAaAbBaAaA n - aAaAbBaAaA
1177 (?:aA|bB)*+(?:aA|bB) aAaAaAbBaA n - aAaAaAbBaA
1178 (?:aA){1,5}+(?:aA) aAaAaAaAaA n - aAaAaAaAaA
1179 (aA){1,5}+(aA) aAaAaAaAaA n - aAaAaAaAaA
1180 (aA|bB){1,5}+(aA|bB) aAaAbBaAaA n - aAaAbBaAaA
1181 (?:aA|bB){1,5}+(?:aA|bB) bBbBbBbBbB n - bBbBbBbBbB
1182 (?:aA)?+(?:aA) aAb n - aAb
1183 (aA)?+(aA) aAb n - aAb
1184 (aA|bB)?+(aA|bB) bBb n - bBb
1185 (?:aA|bB)?+(?:aA|bB) aAb n - aAb
1186 (?:aA)++b aAaAaAaAaAb y $& aAaAaAaAaAb
1187 (aA)++b aAaAaAaAaAb y $& aAaAaAaAaAb
1188 (aA|bB)++b aAbBaAaAbBb y $& aAbBaAaAbBb
1189 (?:aA|bB)++b aAbBbBaAaAb y $& aAbBbBaAaAb
1190 (?:aA)*+b aAaAaAaAaAb y $& aAaAaAaAaAb
1191 (aA)*+b aAaAaAaAaAb y $& aAaAaAaAaAb
1192 (aA|bB)*+b bBbBbBbBbBb y $& bBbBbBbBbBb
1193 (?:aA|bB)*+b bBaAbBbBaAb y $& bBaAbBbBaAb
1194 (?:aA){1,5}+b aAaAaAaAaAb y $& aAaAaAaAaAb
1195 (aA){1,5}+b aAaAaAaAaAb y $& aAaAaAaAaAb
1196 (aA|bB){1,5}+b bBaAbBaAbBb y $& bBaAbBaAbBb
1197 (?:aA|bB){1,5}+b aAbBaAbBbBb y $& aAbBaAbBbBb
1198 (?:aA)?+b aAb y $& aAb
1199 (aA)?+b aAb y $& aAb
1200 (aA|bB)?+b bBb y $& bBb
1201 (?:aA|bB)?+b bBb y $& bBb
1202 foo(?:aA)++(?:aA) fooaAaAaAaAaA n - fooaAaAaAaAaA
1203 foo(aA)++(aA) fooaAaAaAaAaA n - fooaAaAaAaAaA
1204 foo(aA|bB)++(aA|bB) foobBbBbBaAaA n - foobBbBbBaAaA
1205 foo(?:aA|bB)++(?:aA|bB) fooaAaAaAaAaA n - fooaAaAaAaAaA
1206 foo(?:aA)*+(?:aA) fooaAaAaAaAaA n - fooaAaAaAaAaA
1207 foo(aA)*+(aA) fooaAaAaAaAaA n - fooaAaAaAaAaA
1208 foo(aA|bB)*+(aA|bB) foobBaAbBaAaA n - foobBaAbBaAaA
1209 foo(?:aA|bB)*+(?:aA|bB) fooaAaAbBbBaA n - fooaAaAbBbBaA
1210 foo(?:aA){1,5}+(?:aA) fooaAaAaAaAaA n - fooaAaAaAaAaA
1211 foo(aA){1,5}+(aA) fooaAaAaAaAaA n - fooaAaAaAaAaA
1212 foo(aA|bB){1,5}+(aA|bB) fooaAbBbBaAaA n - fooaAbBbBaAaA
1213 foo(?:aA|bB){1,5}+(?:aA|bB) fooaAbBbBaAbB n - fooaAbBbBaAbB
1214 foo(?:aA)?+(?:aA) fooaAb n - fooaAb
1215 foo(aA)?+(aA) fooaAb n - fooaAb
1216 foo(aA|bB)?+(aA|bB) foobBb n - foobBb
1217 foo(?:aA|bB)?+(?:aA|bB) fooaAb n - fooaAb
1218 foo(?:aA)++b fooaAaAaAaAaAb y $& fooaAaAaAaAaAb
1219 foo(aA)++b fooaAaAaAaAaAb y $& fooaAaAaAaAaAb
1220 foo(aA|bB)++b foobBaAbBaAbBb y $& foobBaAbBaAbBb
1221 foo(?:aA|bB)++b fooaAaAbBaAaAb y $& fooaAaAbBaAaAb
1222 foo(?:aA)*+b fooaAaAaAaAaAb y $& fooaAaAaAaAaAb
1223 foo(aA)*+b fooaAaAaAaAaAb y $& fooaAaAaAaAaAb
1224 foo(aA|bB)*+b foobBbBaAaAaAb y $& foobBbBaAaAaAb
1225 foo(?:aA|bB)*+b foobBaAaAbBaAb y $& foobBaAaAbBaAb
1226 foo(?:aA){1,5}+b fooaAaAaAaAaAb y $& fooaAaAaAaAaAb
1227 foo(aA){1,5}+b fooaAaAaAaAaAb y $& fooaAaAaAaAaAb
1228 foo(aA|bB){1,5}+b foobBaAaAaAaAb y $& foobBaAaAaAaAb
1229 foo(?:aA|bB){1,5}+b fooaAbBaAbBbBb y $& fooaAbBaAbBbBb
1230 foo(?:aA)?+b fooaAb y $& fooaAb
1231 foo(aA)?+b fooaAb y $& fooaAb
1232 foo(aA|bB)?+b foobBb y $& foobBb
1233 foo(?:aA|bB)?+b foobBb y $& foobBb
1235 ([^()]++|\([^()]*\))+ ((abc(ade)ufh()()x y $& abc(ade)ufh()()x
1236 round\(([^()]++)\) _I(round(xs * sz),1) y $1 xs * sz
1238 (foo[1x]|bar[2x]|baz[3x])+y foo1bar2baz3y y $1 baz3
1239 (foo[1x]|bar[2x]|baz[3x])+y foo1bar2baz3y y $& foo1bar2baz3y
1240 (foo[1x]|bar[2x]|baz[3x])*y foo1bar2baz3y y $1 baz3
1241 (foo[1x]|bar[2x]|baz[3x])*y foo1bar2baz3y y $& foo1bar2baz3y
1243 ([yX].|WORDS|[yX].|WORD)S WORDS y $1 WORD
1244 (WORDS|WORLD|WORD)S WORDS y $1 WORD
1245 ([yX].|WORDS|WORD|[xY].)S WORDS y $1 WORD
1246 (foo|fool|[zx].|money|parted)$ fool y $1 fool
1247 ([zx].|foo|fool|[zq].|money|parted|[yx].)$ fool y $1 fool
1248 (foo|fool|[zx].|money|parted)$ fools n - -
1249 ([zx].|foo|fool|[qx].|money|parted|[py].)$ fools n - -
1251 ([yX].|WORDS|[yX].|WORD)+S WORDS y $1 WORD
1252 (WORDS|WORLD|WORD)+S WORDS y $1 WORD
1253 ([yX].|WORDS|WORD|[xY].)+S WORDS y $1 WORD
1254 (foo|fool|[zx].|money|parted)+$ fool y $1 fool
1255 ([zx].|foo|fool|[zq].|money|parted|[yx].)+$ fool y $1 fool
1256 (foo|fool|[zx].|money|parted)+$ fools n - -
1257 ([zx].|foo|fool|[qx].|money|parted|[py].)+$ fools n - -
1259 (x|y|z[QW])+(longish|loquatious|excessive|overblown[QW])+ xyzQzWlongishoverblownW y $1-$2 zW-overblownW
1260 (x|y|z[QW])*(longish|loquatious|excessive|overblown[QW])* xyzQzWlongishoverblownW y $1-$2 zW-overblownW
1261 (x|y|z[QW]){1,5}(longish|loquatious|excessive|overblown[QW]){1,5} xyzQzWlongishoverblownW y $1-$2 zW-overblownW
1263 (x|y|z[QW])++(longish|loquatious|excessive|overblown[QW])++ xyzQzWlongishoverblownW y $1-$2 zW-overblownW
1264 (x|y|z[QW])*+(longish|loquatious|excessive|overblown[QW])*+ xyzQzWlongishoverblownW y $1-$2 zW-overblownW
1265 (x|y|z[QW]){1,5}+(longish|loquatious|excessive|overblown[QW]){1,5}+ xyzQzWlongishoverblownW y $1-$2 zW-overblownW
1268 a*(*FAIL) aaaab n - -
1271 (A(A|B(*ACCEPT)|C)D)(E) AB y $1 AB
1272 (A(A|B(*ACCEPT)|C)D)(E) ACDE y $1$2$3 ACDCE
1274 (a)(?:(?-1)|(?+1))(b) aab y $&-$1-$2 aab-a-b
1275 (a)(?:(?-1)|(?+1))(b) abb y $1-$2 a-b
1276 (a)(?:(?-1)|(?+1))(b) acb n - -
1278 (foo)(\g-2) foofoo y $1-$2 foo-foo
1279 (foo)(\g-2)(foo)(\g-2) foofoofoofoo y $1-$2-$3-$4 foo-foo-foo-foo
1280 (([abc]+) \g-1)(([abc]+) \g{-1}) abc abccba cba y $2-$4 abc-cba
1281 (a)(b)(c)\g1\g2\g3 abcabc y $1$2$3 abc
1283 # \k<n> preceded by a literal
1284 /(?'n'foo) \k<n>/ ..foo foo.. y $1 foo
1285 /(?'n'foo) \k<n>/ ..foo foo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1286 /(?<n>foo) \k'n'/ ..foo foo.. y $1 foo
1287 /(?<n>foo) \k'n'/ ..foo foo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1288 /(?'a1'foo) \k'a1'/ ..foo foo.. yM $+{a1} foo miniperl cannot load Tie::Hash::NamedCapture
1289 /(?<a1>foo) \k<a1>/ ..foo foo.. yM $+{a1} foo miniperl cannot load Tie::Hash::NamedCapture
1290 /(?'_'foo) \k'_'/ ..foo foo.. yM $+{_} foo miniperl cannot load Tie::Hash::NamedCapture
1291 /(?<_>foo) \k<_>/ ..foo foo.. yM $+{_} foo miniperl cannot load Tie::Hash::NamedCapture
1292 /(?'_0_'foo) \k'_0_'/ ..foo foo.. yM $+{_0_} foo miniperl cannot load Tie::Hash::NamedCapture
1293 /(?<_0_>foo) \k<_0_>/ ..foo foo.. yM $+{_0_} foo miniperl cannot load Tie::Hash::NamedCapture
1294 /(?'0'foo) bar/ - c - Group name must start with a non-digit word character
1295 /(?<0>foo) bar/ - c - Group name must start with a non-digit word character
1296 /(?'12'foo) bar/ - c - Group name must start with a non-digit word character
1297 /(?<12>foo) bar/ - c - Group name must start with a non-digit word character
1298 /(?'1a'foo) bar/ - c - Group name must start with a non-digit word character
1299 /(?<1a>foo) bar/ - c - Group name must start with a non-digit word character
1300 /(?''foo) bar/ - c - Group name must start with a non-digit word character
1301 /(?<>foo) bar/ - c - Group name must start with a non-digit word character
1302 /foo \k'n'/ - c - Reference to nonexistent named group
1303 /foo \k<n>/ - c - Reference to nonexistent named group
1304 /foo \k'a1'/ - c - Reference to nonexistent named group
1305 /foo \k<a1>/ - c - Reference to nonexistent named group
1306 /foo \k'_'/ - c - Reference to nonexistent named group
1307 /foo \k<_>/ - c - Reference to nonexistent named group
1308 /foo \k'_0_'/ - c - Reference to nonexistent named group
1309 /foo \k<_0_>/ - c - Reference to nonexistent named group
1310 /foo \k'0'/ - c - Group name must start with a non-digit word character
1311 /foo \k<0>/ - c - Group name must start with a non-digit word character
1312 /foo \k'12'/ - c - Group name must start with a non-digit word character
1313 /foo \k<12>/ - c - Group name must start with a non-digit word character
1314 /foo \k'1a'/ - c - Group name must start with a non-digit word character
1315 /foo \k<1a>/ - c - Group name must start with a non-digit word character
1316 /foo \k''/ - c - Group name must start with a non-digit word character
1317 /foo \k<>/ - c - Group name must start with a non-digit word character
1318 /(?<as>as) (\w+) \k<as> (\w+)/ as easy as pie y $1-$2-$3 as-easy-pie
1320 # \g{...} with a name as the argument
1321 /(?'n'foo) \g{n}/ ..foo foo.. y $1 foo
1322 /(?'n'foo) \g{n}/ ..foo foo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1323 /(?<n>foo) \g{n}/ ..foo foo.. y $1 foo
1324 /(?<n>foo) \g{n}/ ..foo foo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1325 /(?<as>as) (\w+) \g{as} (\w+)/ as easy as pie y $1-$2-$3 as-easy-pie
1327 # Python style named capture buffer stuff
1328 /(?P<n>foo)(?P=n)/ ..foofoo.. y $1 foo
1329 /(?P<n>foo)(?P=n)/ ..foofoo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1330 /(?:(?P<n>foo)|(?P<n>bar))(?P=n)/ ..barbar.. yM $+{n} bar miniperl cannot load Tie::Hash::NamedCapture
1331 /^(?P<PAL>(?P<CHAR>.)((?P>PAL)|.?)(?P=CHAR))$/ madamimadam y $& madamimadam
1332 /^(?P<PAL>(?P<CHAR>.)((?P>PAL)|.?)(?P=CHAR))$/ madamiamadam n - -
1333 /(?P<n>foo) (?P=n)/ ..foo foo.. y $1 foo
1334 /(?P<n>foo) (?P=n)/ ..foo foo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1335 /(?P<as>as) (\w+) (?P=as) (\w+)/ as easy as pie y $1-$2-$3 as-easy-pie
1337 #check that non identifiers as names are treated as the appropriate lookaround
1338 (?<=bar>)foo bar>foo y $& foo
1339 (?<!bar>)foo bar>foo n - -
1340 (?<=bar>ABC)foo bar>ABCfoo y $& foo
1341 (?<!bar>ABC)foo bar>ABCfoo n - -
1342 (?<bar>)foo bar>ABCfoo y $& foo
1343 (?<bar>ABC)foo bar>ABCfoo y $& ABCfoo
1345 (?<=abcd(?<=(aaaabcd))) ..aaaabcd.. y $1 aaaabcd
1346 (?=xy(?<=(aaxy))) ..aaxy.. y $1 aaxy
1348 X(\w+)(?=\s)|X(\w+) Xab y [$1-$2] [-ab]
1350 #check that branch reset works ok.
1351 (?|(a)) a y $1-$+-$^N a-a-a
1352 (?|a(.)b|d(.(o).)d|i(.)(.)j)(.) d!o!da y $1-$2-$3 !o!-o-a
1353 (?|a(.)b|d(.(o).)d|i(.)(.)j)(.) aabc y $1-$2-$3 a--c
1354 (?|a(.)b|d(.(o).)d|i(.)(.)j)(.) ixyjp y $1-$2-$3 x-y-p
1355 (?|(?|(a)|(b))|(?|(c)|(d))) a y $1 a
1356 (?|(?|(a)|(b))|(?|(c)|(d))) b y $1 b
1357 (?|(?|(a)|(b))|(?|(c)|(d))) c y $1 c
1358 (?|(?|(a)|(b))|(?|(c)|(d))) d y $1 d
1359 (.)(?|(.)(.)x|(.)d)(.) abcde y $1-$2-$3-$4-$5- b-c--e--
1360 (\N)(?|(\N)(\N)x|(\N)d)(\N) abcde y $1-$2-$3-$4-$5- b-c--e--
1361 (?|(?<foo>x)) x yM $+{foo} x miniperl cannot load Tie::Hash::NamedCapture
1362 (?|(?<foo>x)|(?<bar>y)) x yM $+{foo} x miniperl cannot load Tie::Hash::NamedCapture
1363 (?|(?<bar>y)|(?<foo>x)) x yM $+{foo} x miniperl cannot load Tie::Hash::NamedCapture
1364 (?<bar>)(?|(?<foo>x)) x yM $+{foo} x miniperl cannot load Tie::Hash::NamedCapture
1365 # Used to crash, because the last branch was ignored when the parens
1367 (?|(b)|()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()(a)) a y $& a
1370 (?(DEFINE)(?<A>(?&B)+)(?<B>a))(?&A) a y $& a
1371 (?(DEFINE)(?<A>(?&B)+)(?<B>a))(?&A) aa y $& aa
1372 \x{100}?(??{""})xxx xxx y $& xxx
1374 foo(\R)bar foo\r\nbar y $1 \r\n
1375 foo(\R)bar foo\nbar y $1 \n
1376 foo(\R)bar foo\rbar y $1 \r
1378 foo(\R+)bar foo\r\n\x{85}\r\n\nbar y $1 \r\n\x{85}\r\n\n
1379 (\V+)(\R) foo\r\n\x{85}\r\n\nbar y $1-$2 foo-\r\n
1380 (\R+)(\V) foo\r\n\x{85}\r\n\nbar y $1-$2 \r\n\x{85}\r\n\n-b
1381 foo(\R)bar foo\x{85}bar y $1 \x{85}
1382 (\V)(\R) foo\x{85}bar y $1-$2 o-\x{85}
1383 (\R)(\V) foo\x{85}bar y $1-$2 \x{85}-b
1384 foo(\R)bar foo\r\nbar y $1 \r\n
1385 (\V)(\R) foo\r\nbar y $1-$2 o-\r\n
1386 (\R)(\V) foo\r\nbar y $1-$2 \r\n-b
1387 foo(\R)bar foo\r\nbar y $1 \r\n
1388 (\V)(\R) foo\r\nbar y $1-$2 o-\r\n
1389 (\R)(\V) foo\r\nbar y $1-$2 \r\n-b
1390 foo(\R)bar foo\rbar y $1 \r
1391 (\V)(\R) foo\rbar y $1-$2 o-\r
1392 (\R)(\V) foo\rbar y $1-$2 \r-b
1394 foo(\v+)bar foo\r\n\x{85}\r\n\nbar y $1 \r\n\x{85}\r\n\n
1395 (\V+)(\v) foo\r\n\x{85}\r\n\nbar y $1-$2 foo-\r
1396 (\v+)(\V) foo\r\n\x{85}\r\n\nbar y $1-$2 \r\n\x{85}\r\n\n-b
1397 foo(\v)bar foo\x{85}bar y $1 \x{85}
1398 (\V)(\v) foo\x{85}bar y $1-$2 o-\x{85}
1399 (\v)(\V) foo\x{85}bar y $1-$2 \x{85}-b
1400 foo(\v)bar foo\rbar y $1 \r
1401 (\V)(\v) foo\rbar y $1-$2 o-\r
1402 (\v)(\V) foo\rbar y $1-$2 \r-b
1405 foo(\h+)bar foo\t\x{A0}bar y $1 \t\x{A0}
1406 (\H+)(\h) foo\t\x{A0}bar y $1-$2 foo-\t
1407 (\h+)(\H) foo\t\x{A0}bar y $1-$2 \t\x{A0}-b
1408 foo(\h)bar foo\x{A0}bar y $1 \x{A0}
1409 (\H)(\h) foo\x{A0}bar y $1-$2 o-\x{A0}
1410 (\h)(\H) foo\x{A0}bar y $1-$2 \x{A0}-b
1411 foo(\h)bar foo\tbar y $1 \t
1412 (\H)(\h) foo\tbar y $1-$2 o-\t
1413 (\h)(\H) foo\tbar y $1-$2 \t-b
1415 .*\z foo\n y -$&- --
1416 \N*\z foo\n y -$&- --
1417 .*\Z foo\n y -$&- -foo-
1418 \N*\Z foo\n y -$&- -foo-
1419 ^(?:(\d)x)?\d$ 1 y ${\(defined($1)?1:0)} 0
1420 .*?(?:(\w)|(\w))x abx y $1-$2 b-
1422 0{50} 000000000000000000000000000000000000000000000000000 y - -
1423 ^a?(?=b)b ab y $& ab # Bug #56690
1424 ^a*(?=b)b ab y $& ab # Bug #56690
1425 />\d+$ \n/ix >10\n y $& >10
1426 />\d+$ \n/ix >1\n y $& >1
1427 /\d+$ \n/ix >10\n y $& 10
1428 />\d\d$ \n/ix >10\n y $& >10
1429 />\d+$ \n/x >10\n y $& >10
1431 # Two regressions in 5.8.x (only) introduced by change 30638
1432 # Simplification of the test failure in XML::LibXML::Simple:
1433 /^\s*i.*?o\s*$/s io\n io y - -
1434 # As reported in #59168 by Father Chrysostomos:
1435 /(.*?)a(?!(a+)b\2c)/ baaabaac y $&-$1 baa-ba
1436 # [perl #60344] Regex lookbehind failure after an (if)then|else in perl 5.10
1437 /\A(?(?=db2)db2|\D+)(?<!processed)\.csv\z/xms sql_processed.csv n - -
1438 /\N{U+0100}/ \x{100} y $& \x{100} # Bug #59328
1439 /[a\N{U+0100}]/ \x{100} y $& \x{100}
1440 /[a\N{U+0100}]/ a y $& a
1442 # Verify that \N{U+...} forces Unicode rules
1443 /\N{U+41}\x{c1}/i a\x{e1} y $& a\x{e1}
1444 /[\N{U+41}\x{c1}]/i \x{e1} y $& \x{e1}
1445 '\N{U+41}' A y $& A # Even for single quoted patterns
1446 /\N{}\xe4/i \xc4 y $& \xc4 # Empty \N{} should change /d to /u
1448 [\s][\S] \x{a0}\x{a0} n - - # Unicode complements should not match same character
1450 # was generating malformed utf8
1451 '[\x{100}\xff]'i \x{ff} y $& \x{ff}
1453 ((??{ "(?:|)" }))\s C\x20 y - -
1455 # Verify that \ escapes the { after \N, and causes \N to match non-newline
1456 abc\N\{U+BEEF} abc\n{UBEEF} n
1457 abc\N\{U+BEEF} abc.{UBEEF} y $& abc.{UBEEF}
1458 [abc\N\{U+BEEF}] - c - \\N in a character class must be a named character
1460 # Verify that \N can be trailing and causes \N to match non-newline
1461 abc\N abcd y $& abcd
1464 # Verify get errors. For these, we need // or else puts it in single quotes,
1465 # and bypasses the lexer.
1466 /\N{U+}/ - c - Invalid hexadecimal number
1467 # Below currently gives a misleading message
1468 /[\N{U+}]/ - Sc - Unmatched
1469 /[\N{U+}]/ - sc - Syntax error in (?[...])
1470 /abc\N{def/ - c - Missing right brace
1471 /\N{U+4AG3}/ - c - Invalid hexadecimal number
1472 /[\N{U+4AG3}]/ - Sc - Unmatched
1473 /[\N{U+4AG3}]/ - sc - Syntax error in (?[...])
1475 # And verify that in single quotes which bypasses the lexer, the regex compiler
1477 \N{U+} - c - Invalid hexadecimal number
1478 [\N{U+}] - c - Invalid hexadecimal number
1479 \N{U+4AG3} - c - Invalid hexadecimal number
1480 [\N{U+4AG3}] - c - Invalid hexadecimal number
1481 abc\N{def - c - \\N{NAME} must be resolved by the lexer
1483 # Verify that under /x that still cant have space before left brace
1484 /abc\N {U+41}/x - c - Missing braces
1485 /abc\N {SPACE}/x - c - Missing braces
1487 # Verifies catches hex errors
1488 /\N{U+0xBEEF}/ - c - Invalid hexadecimal number
1489 # Used to be an error, but not any more:
1490 /\N{U+BEEF.BEAD}/ - c -
1492 # Verify works in single quotish context; regex compiler delivers slightly different msg
1493 # \N{U+BEEF.BEAD} succeeds here, because can't completely hide it from the outside.
1494 \N{U+0xBEEF} - c - Invalid hexadecimal number
1495 \c` - ac - \"\\c`\" is more clearly written simply as \"\\ \"
1496 \c1 - ac - \"\\c1\" is more clearly written simply as \"q\"
1509 \c\X \034X y $& \034X
1514 \c? \x9F ey $& \x9F \c? is APC on EBCDIC
1515 \400 \x{100} y $& \x{100}
1516 \600 \x{180} y $& \x{180}
1517 \777 \x{1FF} y $& \x{1FF}
1518 [a\400] \x{100} y $& \x{100}
1519 [b\600] \x{180} y $& \x{180}
1520 [c\777] \x{1FF} y $& \x{1FF}
1521 \o{120} \x{50} y $& \x{50}
1522 \o{400} \x{100} y $& \x{100}
1523 \o{1000} \x{200} y $& \x{200}
1524 [a\o{120}] \x{50} y $& \x{50}
1525 [a\o{400}] \x{100} y $& \x{100}
1526 [a\o{1000}] \x{200} y $& \x{200}
1528 # The below were inserting a NULL
1529 \87 87 c - Reference to nonexistent group in regex
1530 a\87 a87 c - Reference to nonexistent group in regex
1531 a\97 a97 c - Reference to nonexistent group in regex
1533 # avoid problems with 32-bit signed integer overflow
1535 (.)\g2147483648} x c - Reference to nonexistent group in regex
1536 (.)\g2147483649} x c - Reference to nonexistent group in regex
1537 (.)\g2147483650} x c - Reference to nonexistent group in regex
1538 (.)\g4294967296} x c - Reference to nonexistent group in regex
1539 (.)\g4294967297} x c - Reference to nonexistent group in regex
1540 (.)\g4294967298} x c - Reference to nonexistent group in regex
1541 a(.)\g2147483648} x c - Reference to nonexistent group in regex
1542 a(.)\g2147483649} x c - Reference to nonexistent group in regex
1543 a(.)\g2147483650} x c - Reference to nonexistent group in regex
1544 a(.)\g4294967296} x c - Reference to nonexistent group in regex
1545 a(.)\g4294967297} x c - Reference to nonexistent group in regex
1546 a(.)\g4294967298} x c - Reference to nonexistent group in regex
1548 (.)\g{2147483648} x c - Reference to nonexistent group in regex
1549 (.)\g{2147483649} x c - Reference to nonexistent group in regex
1550 (.)\g{2147483650} x c - Reference to nonexistent group in regex
1551 (.)\g{4294967296} x c - Reference to nonexistent group in regex
1552 (.)\g{4294967297} x c - Reference to nonexistent group in regex
1553 (.)\g{4294967298} x c - Reference to nonexistent group in regex
1554 a(.)\g{2147483648} x c - Reference to nonexistent group in regex
1555 a(.)\g{2147483649} x c - Reference to nonexistent group in regex
1556 a(.)\g{2147483650} x c - Reference to nonexistent group in regex
1557 a(.)\g{4294967296} x c - Reference to nonexistent group in regex
1558 a(.)\g{4294967297} x c - Reference to nonexistent group in regex
1559 a(.)\g{4294967298} x c - Reference to nonexistent group in regex
1561 (.)\2147483648 b\o{214}7483648 ya $1 b \d not converted to native; \o{} is
1562 (.)\2147483649 b\o{214}7483649 ya $1 b \d not converted to native; \o{} is
1563 (.)\2147483650 b\o{214}7483650 ya $1 b \d not converted to native; \o{} is
1564 (.)\4294967296 b\o{42}94967296 ya $1 b \d not converted to native; \o{} is
1565 (.)\4294967297 b\o{42}94967297 ya $1 b \d not converted to native; \o{} is
1566 (.)\4294967298 b\o{42}94967298 ya $1 b \d not converted to native; \o{} is
1567 a(.)\2147483648 ab\o{214}7483648 ya $1 b \d not converted to native; \o{} is
1568 a(.)\2147483649 ab\o{214}7483649 ya $1 b \d not converted to native; \o{} is
1569 a(.)\2147483650 ab\o{214}7483650 ya $1 b \d not converted to native; \o{} is
1570 a(.)\4294967296 ab\o{42}94967296 ya $1 b \d not converted to native; \o{} is
1571 a(.)\4294967297 ab\o{42}94967297 ya $1 b \d not converted to native; \o{} is
1572 a(.)\4294967298 ab\o{42}94967298 ya $1 b \d not converted to native; \o{} is
1574 # The below was inserting a NULL into the character class.
1576 [\8\9] - sc $& Unrecognized escape \\8 in character class
1580 # Verify that reads 1-3 octal digits, and that \_ works in char class
1581 [\0] \000 Sy $& \000
1582 [\0] - sc - Need exactly 3 octal digits
1583 [\07] \007 Sy $& \007
1584 [\07] - sc - Need exactly 3 octal digits
1586 [\07] - sc - Need exactly 3 octal digits
1587 [\006] \006 y $& \006
1589 [\0005] \0005 y $& \000
1590 [\0005] 5\000 y $& 5
1594 (q1|.)*(q2|.)*(x(a|bc)*y){2,} xayxay y $& xayxay
1595 (q1|.)*(q2|.)*(x(a|bc)*y){2,3} xayxay y $& xayxay
1596 (q1|z)*(q2|z)*z{15}-.*?(x(a|bc)*y){2,3}Z zzzzzzzzzzzzzzzz-xayxayxayxayZ y $& zzzzzzzzzzzzzzzz-xayxayxayxayZ
1598 (?:(?:)foo|bar|zot|rt78356) foo y $& foo
1599 /\xe0\pL/i \xc0a y $& \xc0a
1602 (?{})[\x{100}] \x{100} y $& \x{100}
1605 ^m?(\S)(.*)\1$ aba y $1 a
1606 ^m?(\S)(.*)\1$ \tb\t n - -
1607 ^m?(\s)(.*)\1$ \tb\t y $1 \t
1608 ^m?(\s)(.*)\1$ aba n - -
1609 ^m?(\W)(.*)\1$ :b: y $1 :
1610 ^m?(\W)(.*)\1$ aba n - -
1611 ^m?(\w)(.*)\1$ aba y $1 a
1612 ^m?(\w)(.*)\1$ :b: n - -
1613 ^m?(\D)(.*)\1$ aba y $1 a
1614 ^m?(\D)(.*)\1$ 5b5 n - -
1615 ^m?(\d)(.*)\1$ 5b5 y $1 5
1616 ^m?(\d)(.*)\1$ aba n - -
1618 ^_?[^\W_0-9]\w\z \xAA\x{100} y $& \xAA\x{100} [perl #127537]
1620 # 17F is 'Long s'; This makes sure the a's in /aa can be separate
1621 /s/ai \x{17F} y $& \x{17F}
1622 /s/aia \x{17F} n - -
1624 /(?aia:s)/ \x{17F} n - -
1627 # Normally 1E9E generates a multi-char fold, but not in inverted class;
1628 # See [perl #89750]. This makes sure that the simple fold gets generated
1629 # in that case, to DF.
1630 /[^\x{1E9E}]/i \x{DF} Sn - -
1636 # \p{L_} was being misinterpreted as \p{L}. L_ matches cased letters, which
1637 # the ideograph below isn't, whereas it does match L
1638 /^\p{L_}/ \x{3400} n - -
1639 /^\p{L}/ \x{3400} y $& \x{3400}
1642 /[s\xDF]a/ui ssa Sy $& ssa
1643 /[s\xDF]a/ui sa y $& sa
1646 /^\R\x0A$/ \x0D\x0A n - -
1648 /ff/i \x{FB00}\x{FB01} y $& \x{FB00}
1649 /ff/i \x{FB01}\x{FB00} y $& \x{FB00}
1650 /fi/i \x{FB01}\x{FB00} y $& \x{FB01}
1651 /fi/i \x{FB00}\x{FB01} y $& \x{FB01}
1653 # Make sure we don't see code blocks where there aren't, and vice-versa
1654 (?#( (?{1+)a a y - -
1657 ab[(?{1\](?{2] ab2 y - -
1658 ab(?{"["})cd abcd y - -
1659 ab(??{"[x]"})cd abxcd y - -
1660 ab\[(??{1})c ab[1c y - -
1661 ab\\[(??{1;})]c ab\\;c y - -
1662 ab\\\[(??{1})c ab\\[1c y - -
1663 ab[c\](??{"]d abcd y - -
1664 ab[c\\](??{"[x]"})d ab\\xd y - -
1665 ab[c\\\](??{"x"})]{3}d ab\\](d y - -
1667 # These test that doesn't cut-off matching too soon in the string for
1669 /ffiffl/i abcdef\x{FB03}\x{FB04} y $& \x{FB03}\x{FB04}
1670 /\xdf\xdf/ui abcdefssss y $& ssss
1672 /st/i \x{DF}\x{FB05} y $& \x{FB05}
1673 /ssst/i \x{DF}\x{FB05} y $& \x{DF}\x{FB05}
1674 /[s]s/i \x{DF} n - -
1675 /s[s]/i \x{DF} n - -
1678 /[[:lower:]]/i \x{100} y $& \x{100}
1679 /[[:upper:]]/i \x{101} y $& \x{101}
1681 # Was matching 'ss' only and failing the entire match, not seeing the
1682 # alternative that would succeed
1683 /s\xDF/ui \xDFs y $& \xDFs
1684 /sst/ui s\N{LATIN SMALL LIGATURE ST} y $& s\N{LATIN SMALL LIGATURE ST}
1685 /sst/ui s\N{LATIN SMALL LIGATURE LONG S T} y $& s\N{LATIN SMALL LIGATURE LONG S T}
1687 # /i properties shouldn't match more than the property itself
1688 /[[:ascii:]]/i \N{KELVIN SIGN} n - -
1690 # [[:lower:]]/i and [[:upper:]]/i should match what \p{Lower} and \p{Upper} do.
1691 # which is \p{Cased}, not \p{Alpha},
1692 /[[:lower:]]/i \N{U+3400} n - -
1693 /[[:upper:]]/i \N{U+01BB} n - -
1696 [^\p{Alphabetic}] \x{100} n - -
1698 # [perl #111400]. Tests the first Y/N boundary above 255 for each of these.
1699 /[[:alnum:]]/ \x{2c1} y - -
1700 /[[:alnum:]]/ \x{2c2} n - -
1701 /[[:alpha:]]/ \x{2c1} y - -
1702 /[[:alpha:]]/ \x{2c2} n - -
1703 /[[:graph:]]/ \x{377} y - -
1704 /[[:graph:]]/ \x{378} n - -
1705 /[[:lower:]]/ \x{100} n - -
1706 /[[:lower:]]/ \x{101} y - -
1707 /[[:lower:]]/ \x{102} n - -
1708 /[[:print:]]/ \x{377} y - -
1709 /[[:print:]]/ \x{378} n - -
1710 /[[:punct:]]/ \x{37D} n - -
1711 /[[:punct:]]/ \x{37E} y - -
1712 /[[:punct:]]/ \x{388} n - -
1713 /[[:upper:]]/ \x{100} y - -
1714 /[[:upper:]]/ \x{101} n - -
1715 /[[:word:]]/ \x{2c1} y - -
1716 /[[:word:]]/ \x{2c2} n - -
1719 /syntax OK\s+\z/si t/bin/good.pl syntax OK\n y - -
1721 /^(.*?)\s*\|\s*(?:\/\s*|)'(.+)'$/ text|'sec' y <$1><$2> <text><sec>
1722 /^(foo|)bar$/ bar y <$&> <bar>
1723 /^(foo||baz)bar$/ bar y <$&> <bar>
1724 /^(foo||baz)bar$/ bazbar y <$1> <baz>
1725 /^(foo||baz)bar$/ foobar y <$1> <foo>
1727 /^(?:foo|)bar$/ bar y <$&> <bar>
1728 /^(?:foo||baz)bar$/ bar y <$&> <bar>
1729 /^(?:foo||baz)bar$/ bazbar y <$&> <bazbar>
1730 /^(?:foo||baz)bar$/ foobar y <$&> <foobar>
1732 /^(?i:foo|)bar$/ bar y <$&> <bar>
1733 /^(?i:foo||baz)bar$/ bar y <$&> <bar>
1734 /^(?i:foo||baz)bar$/ bazbar y <$&> <bazbar>
1735 /^(?i:foo||baz)bar$/ foobar y <$&> <foobar>
1737 # $^N, $+ on backtrackracking
1739 ^(.)(?:(..)|B)[CX] ABCDE y $^N-$+ A-A -
1741 ^(.)(?:BC(.)|B)[CX] ABCDE y $^N-$+ A-A -
1743 ^(.)(?:(.)+)*[BX] ABCDE y $^N-$+ A-A -
1745 ^(.)(BC)* ABCDE y $^N-$+ BC-BC -
1746 ^(.)(BC)*[BX] ABCDE y $^N-$+ A-A -
1748 ^(.)(B)*.[DX] ABCDE y $^N-$+ B-B -
1749 ^(.)(B)*.[CX] ABCDE y $^N-$+ A-A -
1751 # using 'return' in code blocks
1752 ^(A)(?{"xyz"})B$ AB y $1-$^R A-xyz -
1753 ^(A)(?{return "xyz"})B$ AB y $1-$^R A-xyz -
1754 ^(A)((??{"xyz"}))$ Axyz y $1-$2 A-xyz -
1755 ^(A)((??{return "xyz"}))$ Axyz y $1-$2 A-xyz -
1756 ^(A)((?(?{1})abc|xyz))$ Aabc y $1-$2 A-abc -
1757 ^(A)((?(?{0})abc|xyz))$ Axyz y $1-$2 A-xyz -
1758 ^(A)((?(?{return 1})abc|xyz))$ Aabc y $1-$2 A-abc -
1759 ^(A)((?(?{return 0})abc|xyz))$ Axyz y $1-$2 A-xyz -
1761 # using 'return' in code blocks with additional scopes to pop
1762 ^(A)(?{ { 1; return "xyz"} })B$ AB y $1-$^R A-xyz -
1763 ^(A)((??{ { 1; return "xyz" } }))$ Axyz y $1-$2 A-xyz -
1764 ^(A)((?(?{ { 1; return 1 } })abc|xyz))$ Aabc y $1-$2 A-abc -
1765 ^(A)((?(?{ { 1; return 0 } })abc|xyz))$ Axyz y $1-$2 A-xyz -
1767 # pattern modifier flags should propagate into returned (??{}) pattern
1770 /^(a)((??{"b"}))$/i AB y $1-$2 A-B -
1771 /^(A)((??{'B$'}))(\nC)$/m AB\nC y $1-$2-$3 A-B-\nC -
1772 /^(A)((??{'.'}))(B)$/s A\nB y $1-$2-$3 A-\n-B -
1773 /^(A) ((??{' .'}))(B)$/x A B y $1-$2-$3 A- -B -
1774 /^((??{'\d'}))$/a \x{660} n - -
1775 /^(??{"s"})$/i \x{17F} y - -
1776 /^(??{"s"})$/ia \x{17F} y - -
1777 /^(??{"s"})$/iaa \x{17F} n - -
1778 /^(??{'\w'})$/u \x{AA} y - -
1780 # #113670 ensure any captures to the right are invalidated when CURLY
1781 # and CURLYM backtrack
1783 ^(?:(X)?(\d)|(X)?(\d\d))$ X12 y $1-$2-$3-$4 --X-12
1784 ^(?:(XX)?(\d)|(XX)?(\d\d))$ XX12 y $1-$2-$3-$4 --XX-12
1787 \A(?>\[(?:(?:)(?:R){1}|T|V?|A)\])\z [A] y $& [A]
1789 /( [^z] $ [^z]+)/xm aa\nbb\ncc\n y $1 a\nbb\ncc\n
1792 /[\h]/ \x{A0} y $& \xA0
1793 /[\H]/ \x{BF} y $& \xBF
1795 /[\H]/ \x{A1} y $& \xA1
1800 # /a has no effect on properties
1801 (?a:\p{Any}) \x{100} y $& \x{100}
1802 (?aa:\p{Any}) \x{100} y $& \x{100}
1804 \w \x{200C} y $& \x{200C}
1806 \w \x{200D} y $& \x{200D}
1809 /^(?d:\xdf|_)*_/i \x{17f}\x{17f}_ y $& \x{17f}\x{17f}_
1811 # check that @-, @+ count chars, not bytes; especially if beginning of
1812 # string is not copied
1814 (\x{100}) \x{2000}\x{2000}\x{2000}\x{100} y $-[0]:$-[1]:$+[0]:$+[1] 3:3:4:4
1816 ^\R{2}$ \r\n\r\n y $& \r\n\r\n
1818 /^\D{11}/a \x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF} n - -
1819 /^\S{11}/a \x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF} n - -
1820 /^\W{11}/a \x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF} n - -
1823 \Vn \xFFn/ y $& \xFFn
1825 # These mostly exercize various paths in the optimizer
1826 /(?l:a?\w)/ b y $& b
1827 /(?l:a?\D)/ b y $& b
1828 ^_?[^\S_0-9]\w*\z \t y $& \t
1829 m?^xy\?$? xy? y $& xy?
1830 a?\X a\x{100} y $& a\x{100}
1838 # check we have the right utf8ness as we switch back and forth between
1840 ^(\x{100}|a)(??{ qr/.?\xF7/d}) a_\xF7 y - -
1843 /(a|(bc)){0,0}?xyz/ xyz y $& xyz
1844 /( a | ( bc ) ) {0,0} ? xyz/x xyz y $& xyz
1846 /(a|(bc)){0,0}+xyz/ xyz y $& xyz
1847 /( a | ( bc ) ) {0,0} + xyz/x xyz y $& xyz
1849 (A(*PRUNE)B|A(*PRUNE)C) AC n - -
1850 (A(*PRUNE)B|A(*PRUNE)D|A(*PRUNE)C) AC n - -
1851 (A(*PRUNE)B|A(*PRUNE)C|A(*PRUNE)D) AC n - -
1852 ((A(*PRUNE)B|A(*PRUNE)C)) AC n - -
1853 ((A(*PRUNE)B|A(*PRUNE)D|A(*PRUNE)C)) AC n - -
1854 ((A(*PRUNE)B|A(*PRUNE)C|A(*PRUNE)D)) AC n - -
1856 A+?(*THEN)BC AAABC y $& ABC
1857 A+?(*PRUNE)BC AAABC y $& ABC
1858 A+(*THEN)BC AAABC y $& AAABC
1859 A+(*PRUNE)BC AAABC y $& AAABC
1860 A+?(*THEN)BC(?{}) AAABC y $& ABC
1861 A+?(*PRUNE)BC(?{}) AAABC y $& ABC
1862 A+(*THEN)BC(?{}) AAABC y $& AAABC
1863 A+(*PRUNE)BC(?{}) AAABC y $& AAABC
1868 /[#](?{})/x a#b y $& #
1869 /[#](??{'b'})/x a#b y $& #b
1870 /(?#)(?{})b/ a#b y $& b
1871 /(?#)(??{'b'})/ a#b y $& b
1872 /[(?#](?{})b/ a#b y $& #b
1873 /[(?#](??{'b'})/ a#b y $& #b
1874 /(?#)(?{})b/x a#b y $& b
1875 /(?#)(??{'b'})/x a#b y $& b
1877 # RT #119069: PCRE regression test: no segfault
1878 ^(?=(a)){0}b(?1) back y $& ba
1879 # RT #119071: PCRE regression test: No warning of infinite regression
1880 (?:(a(*SKIP)b)){0}(?:(?1)|ac) x n - -
1881 # RT #119073: PCRE regression test: {0} => NOTHING optimization
1882 (?1)(?:(b)){0} b y $& b
1885 /\N* /x ab y $& ab # Under /x was ignoring the '*'
1886 /\N (?#comment) * /x ab y $& ab # likewise
1888 # RT #120600: Variable length lookbehind is not variable
1889 (?<W>a)(?<BB>(?=(?&W))(?<=(?&W)))(?&BB) aa y $& a # test repeated recursive patterns
1891 # This group is from RT #121144
1892 /^\S+=/d \x{3a3}=\x{3a0} y $& \x{3a3}=
1893 /^\S+=/u \x{3a3}=\x{3a0} y $& \x{3a3}=
1895 # utf8 cache length panics
1896 \x{100}[xy]\x{100}{2} \x{100}y\x{100}\x{100} y $& \x{100}y\x{100}\x{100}
1897 \x{100}a{2,3} \x{100}aaa y $& \x{100}aaa
1898 ^x?abc?de abcde y $& abcde
1900 '(?-m:^abc)'m abcde y $& abc
1901 '(?-m:^abc)'m x\nabcde n - -
1903 # RT #121248 - segfault
1904 /^[+]([^(]+)$/mi li n - -
1906 # RT #121299 - Inconsistent behavior with backreferences nested inside subpattern references
1907 /(.)((o)\1)(?2)/ fofof y $2 of
1908 /(.)(?2)((\1)(?4)(\1))/ fffffff y $1 f
1909 /(.)(?2)((.)(?4)(\1))/ foffoff y $2 off
1910 /^(.\2?)(.)(?1)$/ abcb y $2 b
1911 /^(.\1?)(?1)$/ aba y $1 a
1912 /^ (\3(?2)\3)? ((.)) (?1) $/x aaba y $2 a
1913 /^ (a|\3(?1)\2|(?2)) ((b|c)(?4)?) (?1) (d(?1)) $/x abbcdcabbda y $2 b
1915 # RT #121321 - perl 5.19.10 infinite loops on backrefs > number of capture buffers (npar) where npar>9
1916 /(a)\2/ a\2 c - Reference to nonexistent group in regex
1917 /(a)(b)\3/ ab\3 c - Reference to nonexistent group in regex
1918 /(a)(b)(c)\4/ abc\4 c - Reference to nonexistent group in regex
1919 /(a)(b)(c)(d)\5/ abcd\5 c - Reference to nonexistent group in regex
1920 /(a)(b)(c)(d)(e)\6/ abcde\6 c - Reference to nonexistent group in regex
1921 /(a)(b)(c)(d)(e)(f)\7/ abcdef\7 c - Reference to nonexistent group in regex
1922 /(a)(b)(c)(d)(e)(f)(g)(h)(i)\10/ abcdefghi\10 y $& abcdefghi\10
1923 /(a)(b)(c)(d)(e)(f)(g)(h)(i)(j)\11/ abcdefghij\11 y $& abcdefghij\11
1924 /(a)(b)(c)(d)(e)(f)(g)(h)(i)(j)(k)\12/ abcdefghijk\12 y $& abcdefghijk\12
1925 /(a)(b)(c)(d)(e)(f)(g)(h)(i)(j)(k)\12\13\14/ abcdefghijk\12\13\14 y $& abcdefghijk\12\13\14
1928 [bcd].{2,3}aaaa XbXaaaaa y - -
1929 [bcd].{2,3}aaaa Xb\x{100}aaaaa y - -
1930 '\Awibble\z'm wibble y - -
1931 /(alias|status)es$/i Statuses y $1 Status # [perl #121778]
1932 /( (?&solution) | % ) \Z (?(DEFINE) (?<solution>7\%\ solution) )/x 7% solution y $1 7% solution # [perl #122890]
1933 (.)(?{$~=$^N}) \x{100} y $~ \x{100} # [perl #123135]
1935 /[a-z]/i \N{KELVIN SIGN} y $& \N{KELVIN SIGN}
1936 /[A-Z]/ia \N{KELVIN SIGN} y $& \N{KELVIN SIGN}
1937 /[A-Z]/iaa \N{KELVIN SIGN} n - -
1938 /[A-Z]/i \N{LATIN SMALL LETTER LONG S} y $& \N{LATIN SMALL LETTER LONG S}
1940 # RT #123840: these used to hang in re_intuit_start
1941 /w\zxy?\z/i \x{100}a\x{80}a n - -
1942 /w\z\R\z/i \x{100}a\x{80}a n - -
1944 /(a+){1}+a/ aaa n - - # [perl #125825]
1946 ^((?(?=x)xb|ya)z) xbz y $1 xbz
1947 ^((?(?=x)xb|ya)z) yaz y $1 yaz
1948 ^((?(?!y)xb|ya)z) xbz y $1 xbz
1949 ^((?(?!y)xb|ya)z) yaz y $1 yaz
1950 ^((?(?!)xb|ya)z) xbz n - -
1951 ^((?(?!)xb|ya)z) yaz y $1 yaz # [perl-126222]
1953 foo(*ACCEPT:foo) foo y $::REGMARK foo
1954 (foo(*ACCEPT:foo)) foo y $::REGMARK foo
1955 A(*FAIL:foo)[BC] A n $::REGERROR foo
1957 \N(?#comment){SPACE} A c - Missing braces on \\N{}
1958 ab(?#Comment){2}c abbc y $& abbc
1959 \p A A c - Character following \\p must be '{' or a single-character Unicode property name # [perl #126187
1960 \P:A A c - Character following \\P must be '{' or a single-character Unicode property name
1961 \p^ A c - Character following \\p must be '{' or a single-character Unicode property name
1962 \PU A c - Can't find Unicode property definition \"U\"
1964 (?i - c - Sequence (?... not terminated
1965 (?a-x - c - Sequence (?... not terminated
1966 .{1}?? - c - Nested quantifiers
1967 .{1}?+ - c - Nested quantifiers
1968 (?:.||)(?|)000000000@ 000000000@ y $& 000000000@ # [perl #126405]
1969 aa$|a(?R)a|a aaa y $& aaa # [perl 128420] recursive matches
1970 (?:\1|a)([bcd])\1(?:(?R)|e)\1 abbaccaddedcb y $& abbaccaddedcb # [perl 128420] recursive match with backreferences
1971 AB\s+\x{100} AB \x{100}X y - -
1972 \b\z0*\x{100} .\x{100} n - - # [perl #129350] crashed in intuit_start
1973 (.*(a(a)|i(i))n) riiaan y $2-$3-$4-$1 aa-a--riiaan # Jump trie capture buffer issue [perl #129897]
1974 (^(?:(\d)x)?\d$) 1 y [$1-$2] [1-] # make sure that we reset capture buffers properly (from regtry)
1976 # Keep these lines at the end of the file
1977 # vim: softtabstop=0 noexpandtab