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
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 [
166 ()\x{100}\x{1000} d\x{100}\x{1000} y $+[0] 3
169 *a - c - Quantifier follows nothing
170 (|*)b - c - Quantifier follows nothing
171 (*)b - c - Unknown verb
173 a\ - c - Search pattern not terminated
174 a\(b a(b y $&-$1 a(b-
178 abc) - c - Unmatched )
179 (abc - c - Unmatched (
180 ((a)) abc y $&-$1-$2 a-a-a
181 ((a)) abc y $-[0]-$-[1]-$-[2] 0-0-0
182 ((a)) abc y $+[0]-$+[1]-$+[2] 1-1-1
185 (a)b(c) abc y $&-$1-$2 abc-a-c
186 (a)b(c) abc y $-[0]-$-[1]-$-[2] 0-0-2
187 (a)b(c) abc y $+[0]-$+[1]-$+[2] 3-1-3
188 a+b+c aabbabc y $& abc
189 a{1,}b{1,}c aabbabc y $& abc
190 a** - c - Nested quantifiers
191 a.+?c abcabc y $& abc
192 (a+|b)* ab y $&-$1 ab-b
197 (a+|b){0,} ab y $&-$1 ab-b
198 (a+|b)+ ab y $&-$1 ab-b
199 (a+|b){1,} ab y $&-$1 ab-b
200 (a+|b)? ab y $&-$1 a-a
201 (a+|b){0,1} ab y $&-$1 a-a
206 ([abc])*d abbbcd y $&-$1 abbbcd-c
207 ([abc])*bcd abcd y $&-$1 abcd-a
209 (a|b|c|d|e)f ef y $&-$1 ef-e
210 (a|b|c|d|e)f ef y $-[0] 0
211 (a|b|c|d|e)f ef y $+[0] 2
212 (a|b|c|d|e)f ef y $-[1] 0
213 (a|b|c|d|e)f ef y $+[1] 1
214 abcd*efg abcdefg y $& abcdefg
215 ab* xabyabbbz y $& ab
217 (ab|cd)e abcde y $&-$1 cde-cd
218 [abhgefdc]ij hij y $& hij
219 ^(ab|cd)e abcde n x$1y xy
220 (abc|)ef abcdef y $&-$1 ef-
221 (a|b)c*d abcd y $&-$1 bcd-b
222 (ab|ab*)bc abc y $&-$1 abc-a
223 a([bc]*)c* abc y $&-$1 abc-bc
224 a([bc]*)(c*d) abcd y $&-$1-$2 abcd-bc-d
225 a([bc]*)(c*d) abcd y $-[0] 0
226 a([bc]*)(c*d) abcd y $+[0] 4
227 a([bc]*)(c*d) abcd y $-[1] 1
228 a([bc]*)(c*d) abcd y $+[1] 3
229 a([bc]*)(c*d) abcd y $-[2] 3
230 a([bc]*)(c*d) abcd y $+[2] 4
231 a([bc]+)(c*d) abcd y $&-$1-$2 abcd-bc-d
232 a([bc]*)(c+d) abcd y $&-$1-$2 abcd-b-cd
233 a([bc]*)(c+d) abcd y $-[0] 0
234 a([bc]*)(c+d) abcd y $+[0] 4
235 a([bc]*)(c+d) abcd y $-[1] 1
236 a([bc]*)(c+d) abcd y $+[1] 2
237 a([bc]*)(c+d) abcd y $-[2] 2
238 a([bc]*)(c+d) abcd y $+[2] 4
239 a[bcd]*dcdcde adcdcde y $& adcdcde
240 a[bcd]+dcdcde adcdcde n - -
241 (ab|a)b*c abc y $&-$1 abc-ab
242 (ab|a)b*c abc y $-[0] 0
243 (ab|a)b*c abc y $+[0] 3
244 (ab|a)b*c abc y $-[1] 0
245 (ab|a)b*c abc y $+[1] 2
246 ((a)(b)c)(d) abcd y $1-$2-$3-$4 abc-a-b-d
247 ((a)(b)c)(d) abcd y $-[0] 0
248 ((a)(b)c)(d) abcd y $+[0] 4
249 ((a)(b)c)(d) abcd y $-[1] 0
250 ((a)(b)c)(d) abcd y $+[1] 3
251 ((a)(b)c)(d) abcd y $-[2] 0
252 ((a)(b)c)(d) abcd y $+[2] 1
253 ((a)(b)c)(d) abcd y $-[3] 1
254 ((a)(b)c)(d) abcd y $+[3] 2
255 ((a)(b)c)(d) abcd y $-[4] 3
256 ((a)(b)c)(d) abcd y $+[4] 4
257 [a-zA-Z_][a-zA-Z0-9_]* alpha y $& alpha
258 ^a(bc+|b[eh])g|.h$ abh y $&-$1 bh-
259 (bc+d$|ef*g.|h?i(j|k)) effgz y $&-$1-$2 effgz-effgz-
260 (bc+d$|ef*g.|h?i(j|k)) ij y $&-$1-$2 ij-ij-j
261 (bc+d$|ef*g.|h?i(j|k)) effg n - -
262 (bc+d$|ef*g.|h?i(j|k)) bcdd n - -
263 (bc+d$|ef*g.|h?i(j|k)) reffgz y $&-$1-$2 effgz-effgz-
264 ((((((((((a)))))))))) a y $10 a
265 ((((((((((a)))))))))) a y $-[0] 0
266 ((((((((((a)))))))))) a y $+[0] 1
267 ((((((((((a)))))))))) a y $-[10] 0
268 ((((((((((a)))))))))) a y $+[10] 1
269 ((((((((((a))))))))))\10 aa y $& aa
270 ((((((((((a))))))))))${bang} aa n - -
271 ((((((((((a))))))))))${bang} a! y $& a!
272 (((((((((a))))))))) a y $& a
273 multiple words of text uh-uh n - -
274 multiple words multiple words, yeah y $& multiple words
275 (.*)c(.*) abcde y $&-$1-$2 abcde-ab-de
276 \((.*), (.*)\) (a, b) y ($2, $1) (b, a)
278 abcd abcd y $&-\$&-\\$& abcd-\$&-\\abcd
279 a(bc)d abcd y $1-\$1-\\$1 bc-\$1-\\bc
281 (abc)\1 abcabc y $1 abc
282 ([a-c]*)\1 abcabc y $1 abc
283 \1 - c - Reference to nonexistent group
284 \2 - c - Reference to nonexistent group
285 \g1 - c - Reference to nonexistent group
286 \g-1 - c - Reference to nonexistent or unclosed group
287 \g{1} - c - Reference to nonexistent group
288 \g{-1} - c - Reference to nonexistent or unclosed group
289 \g0 - c - Reference to invalid group 0
290 \g-0 - c - Reference to invalid group 0
291 \g{0} - c - Reference to invalid group 0
292 \g{-0} - c - Reference to invalid group 0
294 (a)|\1 x n - Reference to group in different branch
295 (?:(b)?a)\1 a n - Reference to group that did not match
296 (a)|\2 - c - Reference to nonexistent group
297 (([a-c])b*?\2)* ababbbcbc y $&-$1-$2 ababb-bb-b
298 (([a-c])b*?\2){3} ababbbcbc y $&-$1-$2 ababbbcbc-cbc-c
299 ((\3|b)\2(a)x)+ aaxabxbaxbbx n - -
300 ((\3|b)\2(a)x)+ aaaxabaxbaaxbbax y $&-$1-$2-$3 bbax-bbax-b-a
301 ((\3|b)\2(a)){2,} bbaababbabaaaaabbaaaabba y $&-$1-$2-$3 bbaaaabba-bba-b-a
302 #Bug #3589 - up to perl-5.6.0 matches incorrectly, from 5.6.1 not anymore
303 ^((.)?a\2)+$ babadad n - -
314 'abc'i XABCY y $& ABC
315 'abc'i ABABC y $& ABC
317 'ab*bc'i ABC y $& ABC
318 'ab*bc'i ABBC y $& ABBC
319 'ab*?bc'i ABBBBC y $& ABBBBC
320 'ab{0,}?bc'i ABBBBC y $& ABBBBC
321 'ab+?bc'i ABBC y $& ABBC
324 'ab{1,}bc'i ABQ n - -
325 'ab+bc'i ABBBBC y $& ABBBBC
326 'ab{1,}?bc'i ABBBBC y $& ABBBBC
327 'ab{1,3}?bc'i ABBBBC y $& ABBBBC
328 'ab{3,4}?bc'i ABBBBC y $& ABBBBC
329 'ab{4,5}?bc'i ABBBBC n - -
330 'ab??bc'i ABBC y $& ABBC
331 'ab??bc'i ABC y $& ABC
332 'ab{0,1}?bc'i ABC y $& ABC
333 'ab??bc'i ABBBBC n - -
334 'ab??c'i ABC y $& ABC
335 'ab{0,1}?c'i ABC y $& ABC
336 '^abc$'i ABC y $& ABC
338 '^abc'i ABCC y $& ABC
340 'abc$'i AABC y $& ABC
346 'a.*?c'i AXYZC y $& AXYZC
349 'a[bc]d'i ABD y $& ABD
351 'a[b-d]e'i ACE y $& ACE
352 'a[b-d]'i AAC y $& AC
355 'a[b-a]'i - c - Invalid [] range
356 'a[]b'i - c - Unmatched [
357 'a['i - c - Unmatched [
359 'a[]]b'i A]B y $& A]B
360 'a[^bc]d'i AED y $& AED
362 'a[^-b]c'i ADC y $& ADC
365 'a[^]b]c'i ADC y $& ADC
367 'ab|cd'i ABCD y $& AB
368 '()ef'i DEF y $&-$1 EF-
369 '*a'i - c - Quantifier follows nothing
370 '(|*)b'i - c - Quantifier follows nothing
371 '(*)b'i - c - Unknown verb
373 'a\'i - c - Search pattern not terminated
374 'a\(b'i A(B y $&-$1 A(B-
376 'a\(*b'i A((B y $& A((B
377 'a\\b'i A\\B y $& A\\B
378 'abc)'i - c - Unmatched )
379 '(abc'i - c - Unmatched (
380 '((a))'i ABC y $&-$1-$2 A-A-A
381 '(a)b(c)'i ABC y $&-$1-$2 ABC-A-C
382 'a+b+c'i AABBABC y $& ABC
383 'a{1,}b{1,}c'i AABBABC y $& ABC
384 'a**'i - c - Nested quantifiers
385 'a.+?c'i ABCABC y $& ABC
386 'a.*?c'i ABCABC y $& ABC
387 'a.{0,5}?c'i ABCABC y $& ABC
388 '(a+|b)*'i AB y $&-$1 AB-B
389 '(a+|b){0,}'i AB y $&-$1 AB-B
390 '(a+|b)+'i AB y $&-$1 AB-B
391 '(a+|b){1,}'i AB y $&-$1 AB-B
392 '(a+|b)?'i AB y $&-$1 A-A
393 '(a+|b){0,1}'i AB y $&-$1 A-A
394 '(a+|b){0,1}?'i AB y $&-$1 -
395 ')('i - c - Unmatched )
396 '[^ab]*'i CDE y $& CDE
399 '([abc])*d'i ABBBCD y $&-$1 ABBBCD-C
400 '([abc])*bcd'i ABCD y $&-$1 ABCD-A
401 'a|b|c|d|e'i E y $& E
402 '(a|b|c|d|e)f'i EF y $&-$1 EF-E
403 'abcd*efg'i ABCDEFG y $& ABCDEFG
404 'ab*'i XABYABBBZ y $& AB
405 'ab*'i XAYABBBZ y $& A
406 '(ab|cd)e'i ABCDE y $&-$1 CDE-CD
407 '[abhgefdc]ij'i HIJ y $& HIJ
408 '^(ab|cd)e'i ABCDE n x$1y XY
409 '(abc|)ef'i ABCDEF y $&-$1 EF-
410 '(a|b)c*d'i ABCD y $&-$1 BCD-B
411 '(ab|ab*)bc'i ABC y $&-$1 ABC-A
412 'a([bc]*)c*'i ABC y $&-$1 ABC-BC
413 'a([bc]*)(c*d)'i ABCD y $&-$1-$2 ABCD-BC-D
414 'a([bc]+)(c*d)'i ABCD y $&-$1-$2 ABCD-BC-D
415 'a([bc]*)(c+d)'i ABCD y $&-$1-$2 ABCD-B-CD
416 'a[bcd]*dcdcde'i ADCDCDE y $& ADCDCDE
417 'a[bcd]+dcdcde'i ADCDCDE n - -
418 '(ab|a)b*c'i ABC y $&-$1 ABC-AB
419 '((a)(b)c)(d)'i ABCD y $1-$2-$3-$4 ABC-A-B-D
420 '[a-zA-Z_][a-zA-Z0-9_]*'i ALPHA y $& ALPHA
421 '^a(bc+|b[eh])g|.h$'i ABH y $&-$1 BH-
422 '(bc+d$|ef*g.|h?i(j|k))'i EFFGZ y $&-$1-$2 EFFGZ-EFFGZ-
423 '(bc+d$|ef*g.|h?i(j|k))'i IJ y $&-$1-$2 IJ-IJ-J
424 '(bc+d$|ef*g.|h?i(j|k))'i EFFG n - -
425 '(bc+d$|ef*g.|h?i(j|k))'i BCDD n - -
426 '(bc+d$|ef*g.|h?i(j|k))'i REFFGZ y $&-$1-$2 EFFGZ-EFFGZ-
427 '((((((((((a))))))))))'i A y $10 A
428 '((((((((((a))))))))))\10'i AA y $& AA
429 '((((((((((a))))))))))${bang}'i AA n - -
430 '((((((((((a))))))))))${bang}'i A! y $& A!
431 '(((((((((a)))))))))'i A y $& A
432 '(?:(?:(?:(?:(?:(?:(?:(?:(?:(a))))))))))'i A y $1 A
433 '(?:(?:(?:(?:(?:(?:(?:(?:(?:(a|b|c))))))))))'i C y $1 C
434 'multiple words of text'i UH-UH n - -
435 'multiple words'i MULTIPLE WORDS, YEAH y $& MULTIPLE WORDS
436 '(.*)c(.*)'i ABCDE y $&-$1-$2 ABCDE-AB-DE
437 '\((.*), (.*)\)'i (A, B) y ($2, $1) (B, A)
439 'abcd'i ABCD y $&-\$&-\\$& ABCD-\$&-\\ABCD
440 'a(bc)d'i ABCD y $1-\$1-\\$1 BC-\$1-\\BC
442 '(abc)\1'i ABCABC y $1 ABC
443 '([a-c]*)\1'i ABCABC y $1 ABC
447 a(?=c|d). abad y $& ad
448 a(?:b|c|d)(.) ace y $1 e
449 a(?:b|c|d)*(.) ace y $1 e
450 a(?:b|c|d)+?(.) ace y $1 e
451 a(?:b|c|d)+?(.) acdbcdbe y $1 d
452 a(?:b|c|d)+(.) acdbcdbe y $1 e
453 a(?:b|c|d){2}(.) acdbcdbe y $1 b
454 a(?:b|c|d){4,5}(.) acdbcdbe y $1 b
455 a(?:b|c|d){4,5}?(.) acdbcdbe y $1 d
456 ((foo)|(bar))* foobar y $1-$2-$3 bar-foo-bar
457 :(?: - c - Sequence (? incomplete
458 a(?:b|c|d){6,7}(.) acdbcdbe y $1 e
459 a(?:b|c|d){6,7}?(.) acdbcdbe y $1 e
460 a(?:b|c|d){5,6}(.) acdbcdbe y $1 e
461 a(?:b|c|d){5,6}?(.) acdbcdbe y $1 b
462 a(?:b|c|d){5,7}(.) acdbcdbe y $1 e
463 a(?:b|c|d){5,7}?(.) acdbcdbe y $1 b
464 a(?:b|(c|e){1,2}?|d)+?(.) ace y $1$2 ce
466 ^([^a-z])|(\^)$ . y $1 .
468 ^(a\1?){4}$ aaaaaaaaaa y $1 aaaa
469 ^(a\1?){4}$ aaaaaaaaa n - -
470 ^(a\1?){4}$ aaaaaaaaaaa n - -
471 ^(a(?(1)\1)){4}$ aaaaaaaaaa y $1 aaaa
472 ^(a(?(1)\1)){4}$ aaaaaaaaa n - -
473 ^(a(?(1)\1)){4}$ aaaaaaaaaaa n - -
474 ((a{4})+) aaaaaaaaa y $1 aaaaaaaa
475 (((aa){2})+) aaaaaaaaaa y $1 aaaaaaaa
476 (((a{2}){2})+) aaaaaaaaaa y $1 aaaaaaaa
477 (?:(f)(o)(o)|(b)(a)(r))* foobar y $1:$2:$3:$4:$5:$6 f:o:o:b:a:r
485 (?<%)b - c - Group name must start with a non-digit word character
486 (?:..)*a aba y $& aba
488 ^(?:b|a(?=(.)))*\1 abc y $& ab
491 ^((a|b)+)*ax aax y $1 a
492 ^((a|bc)+)*ax aax y $1 a
495 (?:(?i)a)b ab y $& ab
496 ((?i)a)b ab y $&:$1 ab:a
497 (?:(?i)a)b Ab y $& Ab
498 ((?i)a)b Ab y $&:$1 Ab:A
502 ((?i:a))b ab y $&:$1 ab:a
504 ((?i:a))b Ab y $&:$1 Ab:A
507 '(?:(?-i)a)b'i ab y $& ab
508 '((?-i)a)b'i ab y $&:$1 ab:a
509 '(?:(?-i)a)b'i aB y $& aB
510 '((?-i)a)b'i aB y $&:$1 aB:a
511 '(?:(?-i)a)b'i Ab n - -
512 '((?-i)a)b'i Ab n - -
513 '(?:(?-i)a)b'i aB y $& aB
514 '((?-i)a)b'i aB y $1 a
515 '(?:(?-i)a)b'i AB n - -
516 '((?-i)a)b'i AB n - -
517 '(?-i:a)b'i ab y $& ab
518 '((?-i:a))b'i ab y $&:$1 ab:a
519 '(?-i:a)b'i aB y $& aB
520 '((?-i:a))b'i aB y $&:$1 aB:a
522 '((?-i:a))b'i Ab n - -
523 '(?-i:a)b'i aB y $& aB
524 '((?-i:a))b'i aB y $1 a
526 '((?-i:a))b'i AB n - -
527 '((?-i:a.))b'i a\nB n - -
528 '((?-i:a\N))b'i a\nB n - -
529 '((?s-i:a.))b'i a\nB y $1 a\n
530 '((?s-i:a\N))b'i a\nB n - -
531 '((?s-i:a.))b'i B\nB n - -
532 '((?s-i:a\N))b'i B\nB n - -
533 (?:c|d)(?:)(?:a(?:)(?:b)(?:b(?:))(?:b(?:)(?:b))) cabbbb y $& cabbbb
534 (?:c|d)(?:)(?:aaaaaaaa(?:)(?:bbbbbbbb)(?:bbbbbbbb(?:))(?:bbbbbbbb(?:)(?:bbbbbbbb))) caaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb y $& caaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
535 '(ab)\d\1'i Ab4ab y $1 Ab
536 '(ab)\d\1'i ab4Ab y $1 ab
537 foo\w*\d{4}baz foobar1234baz y $& foobar1234baz
539 a(?{f()+ - c - Missing right curly or square bracket
540 a(?{{1}+ - c - Missing right curly or square bracket
543 a(?{"\{"})b cabd y $& ab
544 a(?{"{"}})b - c - Sequence (?{...}) not terminated with ')'
545 a(?{$::bl="\{"}).b caxbd y $::bl {
546 x(~~)*(?:(?:F)?)? x~~ y - -
547 ^a(?#xxx){3}c aaac y $& aaac
548 '^a (?#xxx) (?#yyy) {3}c'x aaac y $& aaac
549 (?<![cd])b dbcb n - -
550 (?<![cd])[ab] dbaacb y $& a
551 (?<!(c|d))b dbcb n - -
552 (?<!(c|d))[ab] dbaacb y $& a
553 (?<!cd)[ab] cdaccb y $& b
554 ^(?:a?b?)*$ a-- n - -
555 ((?s)^a(.))((?m)^b$) a\nb\nc\n y $1;$2;$3 a\n;\n;b
556 ((?m)^b$) a\nb\nc\n y $1 b
558 (?m)^(b) a\nb\n y $1 b
559 ((?m)^b) a\nb\n y $1 b
560 \n((?m)^b) a\nb\n y $1 b
561 ((?s).)c(?!.) a\nb\nc\n y $1 \n
562 ((?s).)c(?!.) a\nb\nc\n y $1:$& \n:\nc
563 ((?s)b.)c(?!.) a\nb\nc\n y $1 b\n
564 ((?s)b.)c(?!.) a\nb\nc\n y $1:$& b\n:b\nc
565 ((?s)b.)c(?!\N) a\nb\nc\n y $1:$& b\n:b\nc
566 '(b.)c(?!\N)'s a\nb\nc\n y $1:$& b\n:b\nc
569 ((?m)^b) a\nb\nc\n y $1 b
572 (x)?(?(1)a|b) a n - -
573 (x)?(?(1)b|a) a y $& a
574 ()?(?(1)b|a) a y $& a
576 ()?(?(1)a|b) a y $& a
577 ^(\()?blah(?(1)(\)))$ (blah) y $2 )
578 ^(\()?blah(?(1)(\)))$ blah y ($2) ()
579 ^(\()?blah(?(1)(\)))$ blah) n - -
580 ^(\()?blah(?(1)(\)))$ (blah n - -
581 ^(\(+)?blah(?(1)(\)))$ (blah) y $2 )
582 ^(\(+)?blah(?(1)(\)))$ blah y ($2) ()
583 ^(\(+)?blah(?(1)(\)))$ blah) n - -
584 ^(\(+)?blah(?(1)(\)))$ (blah n - -
585 (?(1?)a|b) - c - Switch condition not recognized
586 (?(1)a|b|c) - c - Switch (?(condition)... contains too many branches
588 (?(?{0})b|a) a y $& a
590 (?(?{1})a|b) a y $& a
595 (?(?!\x{100})\x{100}|b) \x{100} n - -
596 (?(?!\x{100})b|\x{100}) \x{100} y $& \x{100}
597 (?(?=\x{100})b|\x{100}) \x{100} n - -
598 (?(?=\x{100})\x{100}|b) \x{100} y $& \x{100}
599 (?=(a+?))(\1ab) aaab y $2 aab
600 ^(?=(a+?))\1ab aaab n - -
601 (\w+:)+ one: y $1 one:
603 (?=(a+?))(\1ab) aaab y $2 aab
604 ^(?=(a+?))\1ab aaab n - -
605 ([\w:]+::)?(\w+)$ abcd: n - -
606 ([\w:]+::)?(\w+)$ abcd y $1-$2 -abcd
607 ([\w:]+::)?(\w+)$ xy:z:::abcd y $1-$2 xy:z:::-abcd
608 ^[^bcd]*(c+) aexycd y $1 c
610 ([\w:]+::)?(\w+)$ abcd: n - -
611 ([\w:]+::)?(\w+)$ abcd y $1-$2 -abcd
612 ([\w:]+::)?(\w+)$ xy:z:::abcd y $1-$2 xy:z:::-abcd
613 ^[^bcd]*(c+) aexycd y $1 c
614 (?{$a=2})a*aa(?{local$a=$a+1})k*c(?{$b=$a}) yaaxxaaaacd y $b 3
615 (?{$a=2})(a(?{local$a=$a+1}))*aak*c(?{$b=$a}) yaaxxaaaacd y $b 4
618 ([[:]+) a:[b]: y $1 :[
619 ([[=]+) a=[b]= y $1 =[
620 ([[.]+) a.[b]. y $1 .[
621 [a[:xyz: - c - Unmatched [
622 [a[:xyz:] - c - POSIX class [:xyz:] unknown
623 [a[:]b[:c] abc y $& abc
624 ([a[:xyz:]b]+) - c - POSIX class [:xyz:] unknown
625 ([[:alpha:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd
626 ([[:alnum:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy
627 ([[:ascii:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__-- ${nulnul}
628 ([[:cntrl:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ${nulnul}
629 ([[:digit:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 01
630 ([[:graph:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__--
631 ([[:lower:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 cd
632 ([[:print:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__--
633 ([[:punct:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 __--
634 ([[:space:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1
635 ([[:word:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__
636 ([[:upper:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 AB
637 ([[:xdigit:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01
638 ([[:^alpha:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 01
639 ((?a)[[:^alnum:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 __-- ${nulnul}${ffff}
640 ([[:^ascii:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ${ffff}
641 ([[:^cntrl:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__--
642 ([[:^digit:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd
643 ([[:^lower:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 AB
644 ((?a)[[:^print:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ${nulnul}${ffff}
645 ([[:^punct:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy
646 ([[:^space:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 ABcd01Xy__--
647 ((?a)[[:^word:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 -- ${nulnul}${ffff}
648 ([[:^upper:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 cd01
649 ([[:^xdigit:]]+) ABcd01Xy__-- ${nulnul}${ffff} y $1 Xy__-- ${nulnul}${ffff}
650 [[:foo:]] - c - POSIX class [:foo:] unknown
651 [[:^foo:]] - c - POSIX class [:^foo:] unknown
652 ((?>a+)b) aaab y $1 aaab
653 (?>(a+))b aaab y $1 aaa
654 ((?>[^()]+)|\([^()]*\))+ ((abc(ade)ufh()()x y $& abc(ade)ufh()()x
655 (?<=x+)y - c - Variable length lookbehind not implemented
656 ((def){37,17})?ABC ABC y $& ABC
666 '\Z'm a\nb\n y $-[0] 3
667 '\z'm a\nb\n y $-[0] 4
668 '$'m a\nb\n y $-[0] 1
669 '\Z'm b\na\n y $-[0] 3
670 '\z'm b\na\n y $-[0] 4
671 '$'m b\na\n y $-[0] 1
686 'a$'m a\nb\n y $-[0] 0
687 'a\Z'm b\na\n y $-[0] 2
689 'a$'m b\na\n y $-[0] 2
690 'a\Z'm b\na y $-[0] 2
691 'a\z'm b\na y $-[0] 2
696 aa\Z b\naa\n y $-[0] 2
698 aa$ b\naa\n y $-[0] 2
702 'aa\Z'm aa\nb\n n - -
703 'aa\z'm aa\nb\n n - -
704 'aa$'m aa\nb\n y $-[0] 0
705 'aa\Z'm b\naa\n y $-[0] 2
706 'aa\z'm b\naa\n n - -
707 'aa$'m b\naa\n y $-[0] 2
708 'aa\Z'm b\naa y $-[0] 2
709 'aa\z'm b\naa y $-[0] 2
710 'aa$'m b\naa y $-[0] 2
720 'aa\Z'm ac\nb\n n - -
721 'aa\z'm ac\nb\n n - -
723 'aa\Z'm b\nac\n n - -
724 'aa\z'm b\nac\n n - -
738 'aa\Z'm ca\nb\n n - -
739 'aa\z'm ca\nb\n n - -
741 'aa\Z'm b\nca\n n - -
742 'aa\z'm b\nca\n n - -
750 ab\Z b\nab\n y $-[0] 2
752 ab$ b\nab\n y $-[0] 2
756 'ab\Z'm ab\nb\n n - -
757 'ab\z'm ab\nb\n n - -
758 'ab$'m ab\nb\n y $-[0] 0
759 'ab\Z'm b\nab\n y $-[0] 2
760 'ab\z'm b\nab\n n - -
761 'ab$'m b\nab\n y $-[0] 2
762 'ab\Z'm b\nab y $-[0] 2
763 'ab\z'm b\nab y $-[0] 2
764 'ab$'m b\nab y $-[0] 2
774 'ab\Z'm ac\nb\n n - -
775 'ab\z'm ac\nb\n n - -
777 'ab\Z'm b\nac\n n - -
778 'ab\z'm b\nac\n n - -
792 'ab\Z'm ca\nb\n n - -
793 'ab\z'm ca\nb\n n - -
795 'ab\Z'm b\nca\n n - -
796 'ab\z'm b\nca\n n - -
804 abb\Z b\nabb\n y $-[0] 2
806 abb$ b\nabb\n y $-[0] 2
807 abb\Z b\nabb y $-[0] 2
808 abb\z b\nabb y $-[0] 2
809 abb$ b\nabb y $-[0] 2
810 'abb\Z'm abb\nb\n n - -
811 'abb\z'm abb\nb\n n - -
812 'abb$'m abb\nb\n y $-[0] 0
813 'abb\Z'm b\nabb\n y $-[0] 2
814 'abb\z'm b\nabb\n n - -
815 'abb$'m b\nabb\n y $-[0] 2
816 'abb\Z'm b\nabb y $-[0] 2
817 'abb\z'm b\nabb y $-[0] 2
818 'abb$'m b\nabb y $-[0] 2
828 'abb\Z'm ac\nb\n n - -
829 'abb\z'm ac\nb\n n - -
830 'abb$'m ac\nb\n n - -
831 'abb\Z'm b\nac\n n - -
832 'abb\z'm b\nac\n n - -
833 'abb$'m b\nac\n n - -
846 'abb\Z'm ca\nb\n n - -
847 'abb\z'm ca\nb\n n - -
848 'abb$'m ca\nb\n n - -
849 'abb\Z'm b\nca\n n - -
850 'abb\z'm b\nca\n n - -
851 'abb$'m b\nca\n n - -
857 a*abc?xyz+pqr{3}ab{2,}xy{4,5}pq{0,6}AB{0,}zz x n - -
858 a(?{$a=2;$b=3;($b)=$a})b yabz y $b 2
859 round\(((?>[^()]+))\) _I(round(xs * sz),1) y $1 xs * sz
860 '((?x:.) )' x y $1- x -
861 '((?-x:.) )'x x y $1- x-
862 foo.bart foo.bart y - -
863 '^d[x][x][x]'m abcd\ndxxx y - -
864 .X(.+)+X bbbbXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
865 .X(.+)+XX bbbbXcXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
866 .XX(.+)+X bbbbXXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
867 .X(.+)+X bbbbXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
868 .X(.+)+XX bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
869 .XX(.+)+X bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
870 .X(.+)+[X] bbbbXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
871 .X(.+)+[X][X] bbbbXcXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
872 .XX(.+)+[X] bbbbXXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
873 .X(.+)+[X] bbbbXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
874 .X(.+)+[X][X] bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
875 .XX(.+)+[X] bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
876 .[X](.+)+[X] bbbbXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
877 .[X](.+)+[X][X] bbbbXcXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
878 .[X][X](.+)+[X] bbbbXXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y - -
879 .[X](.+)+[X] bbbbXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
880 .[X](.+)+[X][X] bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
881 .[X][X](.+)+[X] bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n - -
883 ([a-\d]+) za-9z Sy $1 a-9
884 ([a-\d]+) - sc - False [] range
885 ([\d-z]+) a0-za Sy $1 0-z
886 ([\d-z]+) - sc $1 False [] range
887 ([\d-\s]+) a0- z Sy $1 0-
888 ([\d-\s]+) - sc $1 False [] range
889 ([a-[:digit:]]+) za-9z Sy $1 a-9
890 ([a-[:digit:]]+) - sc - False [] range
891 ([[:digit:]-z]+) =0-z= Sy $1 0-z
892 ([[:digit:]-z]+) - sc c False [] range
893 ([[:digit:]-[:alpha:]]+) =0-z= Sy $1 0-z
894 ([[:digit:]-[:alpha:]]+) - sc - False [] range
896 (\d+\.\d+) 3.1415926 y $1 3.1415926
897 (\ba.{0,10}br) have a web browser y $1 a web br
898 '\.c(pp|xx|c)?$'i Changes n - -
899 '\.c(pp|xx|c)?$'i IO.c y - -
900 '(\.c(pp|xx|c)?$)'i IO.c y $1 .c
902 '^\S\s+aa$'m \nx aa y - -
904 ^([ab]*?)(b)?(c)$ abac y -$2- --
905 (\w)?(abc)\1b abcab n - -
906 ^(?:.,){2}c a,b,c y - -
907 ^(.,){2}c a,b,c y $1 b,
908 ^(?:[^,]*,){2}c a,b,c y - -
909 ^([^,]*,){2}c a,b,c y $1 b,
910 ^([^,]*,){3}d aaa,b,c,d y $1 c,
911 ^([^,]*,){3,}d aaa,b,c,d y $1 c,
912 ^([^,]*,){0,3}d aaa,b,c,d y $1 c,
913 ^([^,]{1,3},){3}d aaa,b,c,d y $1 c,
914 ^([^,]{1,3},){3,}d aaa,b,c,d y $1 c,
915 ^([^,]{1,3},){0,3}d aaa,b,c,d y $1 c,
916 ^([^,]{1,},){3}d aaa,b,c,d y $1 c,
917 ^([^,]{1,},){3,}d aaa,b,c,d y $1 c,
918 ^([^,]{1,},){0,3}d aaa,b,c,d y $1 c,
919 ^([^,]{0,3},){3}d aaa,b,c,d y $1 c,
920 ^([^,]{0,3},){3,}d aaa,b,c,d y $1 c,
921 ^([^,]{0,3},){0,3}d aaa,b,c,d y $1 c,
923 (?a:((?u)\w)\W) \xC0\xC0 y $& \xC0\xC0
924 '(?!\A)x'm a\nxb\n y - -
925 ^(a(b)?)+$ aba y -$1-$2- -a--
926 ^(aa(bb)?)+$ aabbaa y -$1-$2- -aa--
927 '^.{9}abc.*\n'm 123\nabcabcabcabc\n y - -
929 ^(a)?(?(1)a|b)+$ a n - -
930 ^(a\1?)(a\1?)(a\2?)(a\3?)$ aaaaaa y $1,$2,$3,$4 a,aa,a,aa
931 ^(a\1?){4}$ aaaaaa y $1 aa
932 ^(0+)?(?:x(1))? x1 y - -
933 ^([0-9a-fA-F]+)(?:x([0-9a-fA-F]+)?)(?:x([0-9a-fA-F]+))? 012cxx0190 y - -
934 ^(b+?|a){1,2}c bbbac y $1 a
935 ^(b+?|a){1,2}c bbbbac y $1 a
936 \((\w\. \w+)\) cd. (A. Tw) y -$1- -A. Tw-
937 ((?:aaaa|bbbb)cccc)? aaaacccc y - -
938 ((?:aaaa|bbbb)cccc)? bbbbcccc y - -
939 (a)?(a)+ a y $1:$2 :a -
940 (ab)?(ab)+ ab y $1:$2 :ab -
941 (abc)?(abc)+ abc y $1:$2 :abc -
944 ^(a(??{"(?!)"})|(a)(?{1}))b ab y $2 a # [ID 20010811.006]
945 ab(?i)cd AbCd n - - # [ID 20010809.023]
947 (A|B)*(?(1)(CD)|(CD)) CD y $2-$3 -CD
948 (A|B)*(?(1)(CD)|(CD)) ABCD y $2-$3 CD-
949 (A|B)*?(?(1)(CD)|(CD)) CD y $2-$3 -CD # [ID 20010803.016]
950 (A|B)*?(?(1)(CD)|(CD)) ABCD y $2-$3 CD-
951 '^(o)(?!.*\1)'i Oo n - -
952 (.*)\d+\1 abc12bc y $1 bc
953 (?m:(foo\s*$)) foo\n bar y $1 foo
955 (.*)(?=c) abcd y $1 ab
956 (.*)(?=c)c abcd yB $1 ab
957 (.*)(?=b|c) abcd y $1 ab
958 (.*)(?=b|c)c abcd y $1 ab
959 (.*)(?=c|b) abcd y $1 ab
960 (.*)(?=c|b)c abcd y $1 ab
961 (.*)(?=[bc]) abcd y $1 ab
962 (.*)(?=[bc])c abcd yB $1 ab
963 (.*)(?<=b) abcd y $1 ab
964 (.*)(?<=b)c abcd y $1 ab
965 (.*)(?<=b|c) abcd y $1 abc
966 (.*)(?<=b|c)c abcd y $1 ab
967 (.*)(?<=c|b) abcd y $1 abc
968 (.*)(?<=c|b)c abcd y $1 ab
969 (.*)(?<=[bc]) abcd y $1 abc
970 (.*)(?<=[bc])c abcd y $1 ab
972 (.*?)(?=c) abcd y $1 ab
973 (.*?)(?=c)c abcd yB $1 ab
974 (.*?)(?=b|c) abcd y $1 a
975 (.*?)(?=b|c)c abcd y $1 ab
976 (.*?)(?=c|b) abcd y $1 a
977 (.*?)(?=c|b)c abcd y $1 ab
978 (.*?)(?=[bc]) abcd y $1 a
979 (.*?)(?=[bc])c abcd yB $1 ab
980 (.*?)(?<=b) abcd y $1 ab
981 (.*?)(?<=b)c abcd y $1 ab
982 (.*?)(?<=b|c) abcd y $1 ab
983 (.*?)(?<=b|c)c abcd y $1 ab
984 (.*?)(?<=c|b) abcd y $1 ab
985 (.*?)(?<=c|b)c abcd y $1 ab
986 (.*?)(?<=[bc]) abcd y $1 ab
987 (.*?)(?<=[bc])c abcd y $1 ab
990 a(b)?? abc y <$1> <> # undef [perl #16773]
991 (\d{1,3}\.){3,} 128.134.142.8 y <$1> <142.> # [perl #18019]
992 ^.{3,4}(.+)\1\z foobarbar y $1 bar # 16 tests for [perl #23171]
993 ^(?:f|o|b){3,4}(.+)\1\z foobarbar y $1 bar
994 ^.{3,4}((?:b|a|r)+)\1\z foobarbar y $1 bar
995 ^(?:f|o|b){3,4}((?:b|a|r)+)\1\z foobarbar y $1 bar
996 ^.{3,4}(.+?)\1\z foobarbar y $1 bar
997 ^(?:f|o|b){3,4}(.+?)\1\z foobarbar y $1 bar
998 ^.{3,4}((?:b|a|r)+?)\1\z foobarbar y $1 bar
999 ^(?:f|o|b){3,4}((?:b|a|r)+?)\1\z foobarbar y $1 bar
1000 ^.{2,3}?(.+)\1\z foobarbar y $1 bar
1001 ^(?:f|o|b){2,3}?(.+)\1\z foobarbar y $1 bar
1002 ^.{2,3}?((?:b|a|r)+)\1\z foobarbar y $1 bar
1003 ^(?:f|o|b){2,3}?((?:b|a|r)+)\1\z foobarbar y $1 bar
1004 ^.{2,3}?(.+?)\1\z foobarbar y $1 bar
1005 ^(?:f|o|b){2,3}?(.+?)\1\z foobarbar y $1 bar
1006 ^.{2,3}?((?:b|a|r)+?)\1\z foobarbar y $1 bar
1007 ^(?:f|o|b){2,3}?((?:b|a|r)+?)\1\z foobarbar y $1 bar
1008 .*a(?!(b|cd)*e).*f ......abef n - - # [perl #23030]
1009 x(?# - c - Sequence (?#... not terminated
1010 :x(?#: - c - Sequence (?#... not terminated
1011 (WORDS|WORD)S WORDS y $1 WORD
1012 (X.|WORDS|X.|WORD)S WORDS y $1 WORD
1013 (WORDS|WORLD|WORD)S WORDS y $1 WORD
1014 (X.|WORDS|WORD|Y.)S WORDS y $1 WORD
1015 (foo|fool|x.|money|parted)$ fool y $1 fool
1016 (x.|foo|fool|x.|money|parted|y.)$ fool y $1 fool
1017 (foo|fool|money|parted)$ fool y $1 fool
1018 (foo|fool|x.|money|parted)$ fools n - -
1019 (x.|foo|fool|x.|money|parted|y.)$ fools n - -
1020 (foo|fool|money|parted)$ fools n - -
1021 (a|aa|aaa||aaaa|aaaaa|aaaaaa)(b|c) aaaaaaaaaaaaaaab y $1$2 aaaaaab
1022 (a|aa|aaa||aaaa|aaaaa|aaaaaa)(??{$1&&""})(b|c) aaaaaaaaaaaaaaab y $1$2 aaaaaab
1023 (a|aa|aaa|aaaa|aaaaa|aaaaaa)(??{$1&&"foo"})(b|c) aaaaaaaaaaaaaaab n - -
1024 ^(a*?)(?!(aa|aaaa)*$) aaaaaaaaaaaaaaaaaaaa y $1 a # [perl #34195]
1025 ^(a*?)(?!(aa|aaaa)*$)(?=a\z) aaaaaaaa y $1 aaaaaaa
1026 ^(.)\s+.$(?(1)) A B y $1 A # [perl #37688]
1027 (?:r?)*?r|(.{2,4}) abcde y $1 abcd
1028 (?!)+?|(.{2,4}) abcde y $1 abcd
1029 ^(a*?)(?!(a{6}|a{5})*$) aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y $+[1] 12 # super-linear cache bug may return 18
1030 ^((?>(?:aa)?b)?) aab y $1 aab
1031 ^((?:aa)*)(?:X+((?:\d+|-)(?:X+(.+))?))?$ aaaaX5 y $1 aaaa
1032 X(A|B||C|D)Y XXXYYY y $& XY # Trie w/ NOTHING
1033 (?i:X([A]|[B]|y[Y]y|[D]|)Y) XXXYYYB y $& XY # Trie w/ NOTHING
1034 ^([a]{1})*$ aa y $1 a
1035 a(?!b(?!c))(..) abababc y $1 bc # test nested negatives
1036 a(?!b(?=a))(..) abababc y $1 bc # test nested lookaheads
1037 a(?!b(?!c(?!d(?!e))))...(.) abxabcdxabcde y $1 e
1038 X(?!b+(?!(c+)*(?!(c+)*d))).*X aXbbbbbbbcccccccccccccaaaX y - -
1039 ^(XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P): ZEQQQQQQQQQQQQQQQQQQP: y $1 ZEQQQQQQQQQQQQQQQQQQP
1040 ^(XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P): ZEQQQX: y $1 ZEQQQX
1041 ^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P): ZEQQQQQQQQQQQQQQQQQQP: y $1 ZEQQQQQQQQQQQQQQQQQQP
1042 ^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P): ZEQQQX: y $1 ZEQQQX
1043 ^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P|[MKJ]): ZEQQQQQQQQQQQQQQQQQQP: y $1 ZEQQQQQQQQQQQQQQQQQQP
1044 ^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P|[MKJ]): ZEQQQX: y $1 ZEQQQX
1045 ^(XXX|YYY|Z.Q*X|Z[TE]Q*P): ZEQQQQQQQQQQQQQQQQQQP: y $1 ZEQQQQQQQQQQQQQQQQQQP
1046 ^(XXX|YYY|Z.Q*X|Z[TE]Q*P): ZEQQQX: y $1 ZEQQQX
1047 ^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P): ZEQQQQQQQQQQQQQQQQQQP: y $1 ZEQQQQQQQQQQQQQQQQQQP
1048 ^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P): ZEQQQX: y $1 ZEQQQX
1049 ^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P|[MKJ]): ZEQQQQQQQQQQQQQQQQQQP: y $1 ZEQQQQQQQQQQQQQQQQQQP
1050 ^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P|[MKJ]): ZEQQQX: y $1 ZEQQQX
1051 X(?:ABCF[cC]x*|ABCD|ABCF):(?:DIT|DID|DIM) XABCFCxxxxxxxxxx:DIM y $& XABCFCxxxxxxxxxx:DIM
1052 (((ABCD|ABCE|ABCF)))(A|B|C[xy]*): ABCFCxxxxxxxxxx:DIM y $& ABCFCxxxxxxxxxx:
1054 (?=foo) XfooY y pos 1
1055 .*(?=foo) XfooY y pos 1
1056 (?<=foo) foo y pos 3
1057 (?<=foo) XfooY y pos 4
1058 .*(?<=foo) foo y pos 3
1059 .*(?<=foo) XfooY y pos 4
1060 (?<=foo)Y XfooY y pos 5
1061 o(?<=foo)Y ..XfooY.. y pos 7
1062 X(?=foo)f ..XfooY.. y pos 4
1063 X(?=foo) ..XfooY.. y pos 3
1064 X(?<=foo.)[YZ] ..XfooXY.. y pos 8
1065 (?=XY*foo) Xfoo y pos 0
1066 ^(?=XY*foo) Xfoo y pos 0
1067 ^(??{"a+"})a aa y $& aa
1068 ^(?:(??{"a+"})|b)a aa y $& aa
1069 ^(??{chr 0x100}).$ \x{100}\x{100} y $& \x{100}\x{100}
1070 ^(??{q(\x{100})}). \x{100}\x{100} y $& \x{100}\x{100}
1071 ^(??{q(.+)})\x{100} \x{100}\x{100} y $& \x{100}\x{100}
1072 ^(??{q(.)})\x{100} \x{100}\x{100} y $& \x{100}\x{100}
1073 ^(??{chr 0x100})\xbb \x{100}\x{bb} y $& \x{100}\x{bb}
1074 ^(.)(??{"(.)(.)"})(.)$ abcd y $1-$2 a-d
1075 ^(.)(??{"(bz+|.)(.)"})(.)$ abcd y $1-$2 a-d
1076 ^(.)((??{"(.)(cz+)"})|.) abcd y $1-$2 a-b
1077 ^a(?>(??{q(b)}))(??{q(c)})d abcd y - -
1078 ^x(??{""})+$ x y $& x
1079 ^(<(?:[^<>]+|(?3)|(?1))*>)()(!>!>!>)$ <<!>!>!>><>>!>!>!> y $1 <<!>!>!>><>>
1080 ^(<(?:[^<>]+|(?1))*>)$ <<><<<><>>>> y $1 <<><<<><>>>>
1081 ((?2)*)([fF]o+) fooFoFoo y $1-$2 fooFo-Foo
1082 (<(?:[^<>]+|(?R))*>) <<><<<><>>>> y $1 <<><<<><>>>>
1083 (?<n>foo|bar|baz) snofooewa y $1 foo
1084 (?<n>foo|bar|baz) snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1085 (?<n>foo|bar|baz)(?<m>[ew]+) snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1086 (?<n>foo|bar|baz)(?<m>[ew]+) snofooewa yM $+{m} ew miniperl cannot load Tie::Hash::NamedCapture
1087 (?<n>foo)|(?<n>bar)|(?<n>baz) snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1088 (?<n>foo)(??{ $+{n} }) snofooefoofoowaa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1089 (?P<n>foo|bar|baz) snofooewa y $1 foo
1090 (?P<n>foo|bar|baz) snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1091 (?P<n>foo|bar|baz)(?P<m>[ew]+) snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1092 (?P<n>foo|bar|baz)(?P<m>[ew]+) snofooewa yM $+{m} ew miniperl cannot load Tie::Hash::NamedCapture
1093 (?P<n>foo)|(?P<n>bar)|(?P<n>baz) snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1094 (?P<n>foo)(??{ $+{n} }) snofooefoofoowaa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1095 (?P<=n>foo|bar|baz) - c - Group name must start with a non-digit word character
1096 (?P<!n>foo|bar|baz) - c - Group name must start with a non-digit word character
1097 (?PX<n>foo|bar|baz) - c - Sequence (?PX<...) not recognized
1098 /(?'n'foo|bar|baz)/ snofooewa y $1 foo
1099 /(?'n'foo|bar|baz)/ snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1100 /(?'n'foo|bar|baz)(?'m'[ew]+)/ snofooewa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1101 /(?'n'foo|bar|baz)(?'m'[ew]+)/ snofooewa yM $+{m} ew miniperl cannot load Tie::Hash::NamedCapture
1102 /(?'n'foo)|(?'n'bar)|(?<n>baz)/ snobazewa yM $+{n} baz miniperl cannot load Tie::Hash::NamedCapture
1103 /(?'n'foo)(??{ $+{n} })/ snofooefoofoowaa yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1104 /(?'n'foo)\k<n>/ ..foofoo.. y $1 foo
1105 /(?'n'foo)\k<n>/ ..foofoo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1106 /(?<n>foo)\k'n'/ ..foofoo.. y $1 foo
1107 /(?<n>foo)\k'n'/ ..foofoo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1108 /(?:(?<n>foo)|(?<n>bar))\k<n>/ ..barbar.. yM $+{n} bar miniperl cannot load Tie::Hash::NamedCapture
1109 /^(?'main'<(?:[^<>]+|(?&crap)|(?&main))*>)(?'empty')(?'crap'!>!>!>)$/ <<!>!>!>><>>!>!>!> yM $+{main} <<!>!>!>><>> miniperl cannot load Tie::Hash::NamedCapture
1110 /^(?'main'<(?:[^<>]+|(?&main))*>)$/ <<><<<><>>>> y $1 <<><<<><>>>>
1111 /(?'first'(?&second)*)(?'second'[fF]o+)/ fooFoFoo yM $+{first}-$+{second} fooFo-Foo miniperl cannot load Tie::Hash::NamedCapture
1112 (?<A>foo)?(?(<A>)bar|nada) foobar yM $+{A} foo miniperl cannot load Tie::Hash::NamedCapture
1113 (?<A>foo)?(?(<A>)bar|nada) foo-barnada y $& nada
1114 (?<A>foo)?(?(1)bar|nada) foo-barnada y $& nada
1115 (?<A>foo(?(R)bar))?(?1) foofoobar y $1 foo
1116 (?<A>foo(?(R)bar))?(?1) foofoobar y $& foofoobar
1117 (x)(?<A>foo(?(R&A)bar))?(?&A) xfoofoobar y $2 foo
1118 (x)(?<A>foo(?(R&A)bar))?(?&A) xfoofoobar y $& xfoofoobar
1119 (x)(?<A>foo(?(R2)bar))?(?&A) xfoofoobar y $2 foo
1120 (x)(?<A>foo(?(R2)bar))?(?&A) xfoofoobar y $& xfoofoobar
1121 (?1)(?(DEFINE)(blah)) blah y $& blah
1122 /^(?<PAL>(?<CHAR>.)((?&PAL)|.?)\k<CHAR>)$/ madamimadam y $& madamimadam
1123 /^(?<PAL>(?<CHAR>.)((?&PAL)|.?)\k<CHAR>)$/ madamiamadam n - -
1124 /(a)?((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
1125 /(a)*((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
1126 /(a)+((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
1127 /(a){1,100}((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
1128 /(a){0,100}((?1))(fox)/ aafox y $1-$2-$3 a-a-fox
1129 /(ab)?((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
1130 /(ab)*((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
1131 /(ab)+((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
1132 /(ab){1,100}((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
1133 /(ab){0,100}((?1))(fox)/ ababfox y $1-$2-$3 ab-ab-fox
1134 # possessive captures
1137 a{1,5}+a aaaaa n - -
1139 a++b aaaaab y $& aaaaab
1140 a*+b aaaaab y $& aaaaab
1141 a{1,5}+b aaaaab y $& aaaaab
1143 fooa++a fooaaaaa n - -
1144 fooa*+a fooaaaaa n - -
1145 fooa{1,5}+a fooaaaaa n - -
1147 fooa++b fooaaaaab y $& fooaaaaab
1148 fooa*+b fooaaaaab y $& fooaaaaab
1149 fooa{1,5}+b fooaaaaab y $& fooaaaaab
1150 fooa?+b fooab y $& fooab
1151 (?:aA)++(?:aA) aAaAaAaAaA n - aAaAaAaAaA
1152 (aA)++(aA) aAaAaAaAaA n - aAaAaAaAaA
1153 (aA|bB)++(aA|bB) aAaAbBaAbB n - aAaAbBaAbB
1154 (?:aA|bB)++(?:aA|bB) aAbBbBbBaA n - aAbBbBbBaA
1155 (?:aA)*+(?:aA) aAaAaAaAaA n - aAaAaAaAaA
1156 (aA)*+(aA) aAaAaAaAaA n - aAaAaAaAaA
1157 (aA|bB)*+(aA|bB) aAaAbBaAaA n - aAaAbBaAaA
1158 (?:aA|bB)*+(?:aA|bB) aAaAaAbBaA n - aAaAaAbBaA
1159 (?:aA){1,5}+(?:aA) aAaAaAaAaA n - aAaAaAaAaA
1160 (aA){1,5}+(aA) aAaAaAaAaA n - aAaAaAaAaA
1161 (aA|bB){1,5}+(aA|bB) aAaAbBaAaA n - aAaAbBaAaA
1162 (?:aA|bB){1,5}+(?:aA|bB) bBbBbBbBbB n - bBbBbBbBbB
1163 (?:aA)?+(?:aA) aAb n - aAb
1164 (aA)?+(aA) aAb n - aAb
1165 (aA|bB)?+(aA|bB) bBb n - bBb
1166 (?:aA|bB)?+(?:aA|bB) aAb n - aAb
1167 (?:aA)++b aAaAaAaAaAb y $& aAaAaAaAaAb
1168 (aA)++b aAaAaAaAaAb y $& aAaAaAaAaAb
1169 (aA|bB)++b aAbBaAaAbBb y $& aAbBaAaAbBb
1170 (?:aA|bB)++b aAbBbBaAaAb y $& aAbBbBaAaAb
1171 (?:aA)*+b aAaAaAaAaAb y $& aAaAaAaAaAb
1172 (aA)*+b aAaAaAaAaAb y $& aAaAaAaAaAb
1173 (aA|bB)*+b bBbBbBbBbBb y $& bBbBbBbBbBb
1174 (?:aA|bB)*+b bBaAbBbBaAb y $& bBaAbBbBaAb
1175 (?:aA){1,5}+b aAaAaAaAaAb y $& aAaAaAaAaAb
1176 (aA){1,5}+b aAaAaAaAaAb y $& aAaAaAaAaAb
1177 (aA|bB){1,5}+b bBaAbBaAbBb y $& bBaAbBaAbBb
1178 (?:aA|bB){1,5}+b aAbBaAbBbBb y $& aAbBaAbBbBb
1179 (?:aA)?+b aAb y $& aAb
1180 (aA)?+b aAb y $& aAb
1181 (aA|bB)?+b bBb y $& bBb
1182 (?:aA|bB)?+b bBb y $& bBb
1183 foo(?:aA)++(?:aA) fooaAaAaAaAaA n - fooaAaAaAaAaA
1184 foo(aA)++(aA) fooaAaAaAaAaA n - fooaAaAaAaAaA
1185 foo(aA|bB)++(aA|bB) foobBbBbBaAaA n - foobBbBbBaAaA
1186 foo(?:aA|bB)++(?:aA|bB) fooaAaAaAaAaA n - fooaAaAaAaAaA
1187 foo(?:aA)*+(?:aA) fooaAaAaAaAaA n - fooaAaAaAaAaA
1188 foo(aA)*+(aA) fooaAaAaAaAaA n - fooaAaAaAaAaA
1189 foo(aA|bB)*+(aA|bB) foobBaAbBaAaA n - foobBaAbBaAaA
1190 foo(?:aA|bB)*+(?:aA|bB) fooaAaAbBbBaA n - fooaAaAbBbBaA
1191 foo(?:aA){1,5}+(?:aA) fooaAaAaAaAaA n - fooaAaAaAaAaA
1192 foo(aA){1,5}+(aA) fooaAaAaAaAaA n - fooaAaAaAaAaA
1193 foo(aA|bB){1,5}+(aA|bB) fooaAbBbBaAaA n - fooaAbBbBaAaA
1194 foo(?:aA|bB){1,5}+(?:aA|bB) fooaAbBbBaAbB n - fooaAbBbBaAbB
1195 foo(?:aA)?+(?:aA) fooaAb n - fooaAb
1196 foo(aA)?+(aA) fooaAb n - fooaAb
1197 foo(aA|bB)?+(aA|bB) foobBb n - foobBb
1198 foo(?:aA|bB)?+(?:aA|bB) fooaAb n - fooaAb
1199 foo(?:aA)++b fooaAaAaAaAaAb y $& fooaAaAaAaAaAb
1200 foo(aA)++b fooaAaAaAaAaAb y $& fooaAaAaAaAaAb
1201 foo(aA|bB)++b foobBaAbBaAbBb y $& foobBaAbBaAbBb
1202 foo(?:aA|bB)++b fooaAaAbBaAaAb y $& fooaAaAbBaAaAb
1203 foo(?:aA)*+b fooaAaAaAaAaAb y $& fooaAaAaAaAaAb
1204 foo(aA)*+b fooaAaAaAaAaAb y $& fooaAaAaAaAaAb
1205 foo(aA|bB)*+b foobBbBaAaAaAb y $& foobBbBaAaAaAb
1206 foo(?:aA|bB)*+b foobBaAaAbBaAb y $& foobBaAaAbBaAb
1207 foo(?:aA){1,5}+b fooaAaAaAaAaAb y $& fooaAaAaAaAaAb
1208 foo(aA){1,5}+b fooaAaAaAaAaAb y $& fooaAaAaAaAaAb
1209 foo(aA|bB){1,5}+b foobBaAaAaAaAb y $& foobBaAaAaAaAb
1210 foo(?:aA|bB){1,5}+b fooaAbBaAbBbBb y $& fooaAbBaAbBbBb
1211 foo(?:aA)?+b fooaAb y $& fooaAb
1212 foo(aA)?+b fooaAb y $& fooaAb
1213 foo(aA|bB)?+b foobBb y $& foobBb
1214 foo(?:aA|bB)?+b foobBb y $& foobBb
1216 ([^()]++|\([^()]*\))+ ((abc(ade)ufh()()x y $& abc(ade)ufh()()x
1217 round\(([^()]++)\) _I(round(xs * sz),1) y $1 xs * sz
1219 (foo[1x]|bar[2x]|baz[3x])+y foo1bar2baz3y y $1 baz3
1220 (foo[1x]|bar[2x]|baz[3x])+y foo1bar2baz3y y $& foo1bar2baz3y
1221 (foo[1x]|bar[2x]|baz[3x])*y foo1bar2baz3y y $1 baz3
1222 (foo[1x]|bar[2x]|baz[3x])*y foo1bar2baz3y y $& foo1bar2baz3y
1224 ([yX].|WORDS|[yX].|WORD)S WORDS y $1 WORD
1225 (WORDS|WORLD|WORD)S WORDS y $1 WORD
1226 ([yX].|WORDS|WORD|[xY].)S WORDS y $1 WORD
1227 (foo|fool|[zx].|money|parted)$ fool y $1 fool
1228 ([zx].|foo|fool|[zq].|money|parted|[yx].)$ fool y $1 fool
1229 (foo|fool|[zx].|money|parted)$ fools n - -
1230 ([zx].|foo|fool|[qx].|money|parted|[py].)$ fools n - -
1232 ([yX].|WORDS|[yX].|WORD)+S WORDS y $1 WORD
1233 (WORDS|WORLD|WORD)+S WORDS y $1 WORD
1234 ([yX].|WORDS|WORD|[xY].)+S WORDS y $1 WORD
1235 (foo|fool|[zx].|money|parted)+$ fool y $1 fool
1236 ([zx].|foo|fool|[zq].|money|parted|[yx].)+$ fool y $1 fool
1237 (foo|fool|[zx].|money|parted)+$ fools n - -
1238 ([zx].|foo|fool|[qx].|money|parted|[py].)+$ fools n - -
1240 (x|y|z[QW])+(longish|loquatious|excessive|overblown[QW])+ xyzQzWlongishoverblownW y $1-$2 zW-overblownW
1241 (x|y|z[QW])*(longish|loquatious|excessive|overblown[QW])* xyzQzWlongishoverblownW y $1-$2 zW-overblownW
1242 (x|y|z[QW]){1,5}(longish|loquatious|excessive|overblown[QW]){1,5} xyzQzWlongishoverblownW y $1-$2 zW-overblownW
1244 (x|y|z[QW])++(longish|loquatious|excessive|overblown[QW])++ xyzQzWlongishoverblownW y $1-$2 zW-overblownW
1245 (x|y|z[QW])*+(longish|loquatious|excessive|overblown[QW])*+ xyzQzWlongishoverblownW y $1-$2 zW-overblownW
1246 (x|y|z[QW]){1,5}+(longish|loquatious|excessive|overblown[QW]){1,5}+ xyzQzWlongishoverblownW y $1-$2 zW-overblownW
1249 a*(*FAIL) aaaab n - -
1252 (A(A|B(*ACCEPT)|C)D)(E) AB y $1 AB
1253 (A(A|B(*ACCEPT)|C)D)(E) ACDE y $1$2$3 ACDCE
1255 (a)(?:(?-1)|(?+1))(b) aab y $&-$1-$2 aab-a-b
1256 (a)(?:(?-1)|(?+1))(b) abb y $1-$2 a-b
1257 (a)(?:(?-1)|(?+1))(b) acb n - -
1259 (foo)(\g-2) foofoo y $1-$2 foo-foo
1260 (foo)(\g-2)(foo)(\g-2) foofoofoofoo y $1-$2-$3-$4 foo-foo-foo-foo
1261 (([abc]+) \g-1)(([abc]+) \g{-1}) abc abccba cba y $2-$4 abc-cba
1262 (a)(b)(c)\g1\g2\g3 abcabc y $1$2$3 abc
1264 # \k<n> preceded by a literal
1265 /(?'n'foo) \k<n>/ ..foo foo.. y $1 foo
1266 /(?'n'foo) \k<n>/ ..foo foo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1267 /(?<n>foo) \k'n'/ ..foo foo.. y $1 foo
1268 /(?<n>foo) \k'n'/ ..foo foo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1269 /(?'a1'foo) \k'a1'/ ..foo foo.. yM $+{a1} foo miniperl cannot load Tie::Hash::NamedCapture
1270 /(?<a1>foo) \k<a1>/ ..foo foo.. yM $+{a1} foo miniperl cannot load Tie::Hash::NamedCapture
1271 /(?'_'foo) \k'_'/ ..foo foo.. yM $+{_} foo miniperl cannot load Tie::Hash::NamedCapture
1272 /(?<_>foo) \k<_>/ ..foo foo.. yM $+{_} foo miniperl cannot load Tie::Hash::NamedCapture
1273 /(?'_0_'foo) \k'_0_'/ ..foo foo.. yM $+{_0_} foo miniperl cannot load Tie::Hash::NamedCapture
1274 /(?<_0_>foo) \k<_0_>/ ..foo foo.. yM $+{_0_} foo miniperl cannot load Tie::Hash::NamedCapture
1275 /(?'0'foo) bar/ - c - Group name must start with a non-digit word character
1276 /(?<0>foo) bar/ - c - Group name must start with a non-digit word character
1277 /(?'12'foo) bar/ - c - Group name must start with a non-digit word character
1278 /(?<12>foo) bar/ - c - Group name must start with a non-digit word character
1279 /(?'1a'foo) bar/ - c - Group name must start with a non-digit word character
1280 /(?<1a>foo) bar/ - c - Group name must start with a non-digit word character
1281 /(?''foo) bar/ - c - Group name must start with a non-digit word character
1282 /(?<>foo) bar/ - c - Group name must start with a non-digit word character
1283 /foo \k'n'/ - c - Reference to nonexistent named group
1284 /foo \k<n>/ - c - Reference to nonexistent named group
1285 /foo \k'a1'/ - c - Reference to nonexistent named group
1286 /foo \k<a1>/ - c - Reference to nonexistent named group
1287 /foo \k'_'/ - c - Reference to nonexistent named group
1288 /foo \k<_>/ - c - Reference to nonexistent named group
1289 /foo \k'_0_'/ - c - Reference to nonexistent named group
1290 /foo \k<_0_>/ - c - Reference to nonexistent named group
1291 /foo \k'0'/ - c - Group name must start with a non-digit word character
1292 /foo \k<0>/ - c - Group name must start with a non-digit word character
1293 /foo \k'12'/ - c - Group name must start with a non-digit word character
1294 /foo \k<12>/ - c - Group name must start with a non-digit word character
1295 /foo \k'1a'/ - c - Group name must start with a non-digit word character
1296 /foo \k<1a>/ - c - Group name must start with a non-digit word character
1297 /foo \k''/ - c - Group name must start with a non-digit word character
1298 /foo \k<>/ - c - Group name must start with a non-digit word character
1299 /(?<as>as) (\w+) \k<as> (\w+)/ as easy as pie y $1-$2-$3 as-easy-pie
1301 # \g{...} with a name as the argument
1302 /(?'n'foo) \g{n}/ ..foo foo.. y $1 foo
1303 /(?'n'foo) \g{n}/ ..foo foo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1304 /(?<n>foo) \g{n}/ ..foo foo.. y $1 foo
1305 /(?<n>foo) \g{n}/ ..foo foo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1306 /(?<as>as) (\w+) \g{as} (\w+)/ as easy as pie y $1-$2-$3 as-easy-pie
1308 # Python style named capture buffer stuff
1309 /(?P<n>foo)(?P=n)/ ..foofoo.. y $1 foo
1310 /(?P<n>foo)(?P=n)/ ..foofoo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1311 /(?:(?P<n>foo)|(?P<n>bar))(?P=n)/ ..barbar.. yM $+{n} bar miniperl cannot load Tie::Hash::NamedCapture
1312 /^(?P<PAL>(?P<CHAR>.)((?P>PAL)|.?)(?P=CHAR))$/ madamimadam y $& madamimadam
1313 /^(?P<PAL>(?P<CHAR>.)((?P>PAL)|.?)(?P=CHAR))$/ madamiamadam n - -
1314 /(?P<n>foo) (?P=n)/ ..foo foo.. y $1 foo
1315 /(?P<n>foo) (?P=n)/ ..foo foo.. yM $+{n} foo miniperl cannot load Tie::Hash::NamedCapture
1316 /(?P<as>as) (\w+) (?P=as) (\w+)/ as easy as pie y $1-$2-$3 as-easy-pie
1318 #check that non identifiers as names are treated as the appropriate lookaround
1319 (?<=bar>)foo bar>foo y $& foo
1320 (?<!bar>)foo bar>foo n - -
1321 (?<=bar>ABC)foo bar>ABCfoo y $& foo
1322 (?<!bar>ABC)foo bar>ABCfoo n - -
1323 (?<bar>)foo bar>ABCfoo y $& foo
1324 (?<bar>ABC)foo bar>ABCfoo y $& ABCfoo
1326 (?<=abcd(?<=(aaaabcd))) ..aaaabcd.. y $1 aaaabcd
1327 (?=xy(?<=(aaxy))) ..aaxy.. y $1 aaxy
1329 X(\w+)(?=\s)|X(\w+) Xab y [$1-$2] [-ab]
1331 #check that branch reset works ok.
1332 (?|(a)) a y $1-$+-$^N a-a-a
1333 (?|a(.)b|d(.(o).)d|i(.)(.)j)(.) d!o!da y $1-$2-$3 !o!-o-a
1334 (?|a(.)b|d(.(o).)d|i(.)(.)j)(.) aabc y $1-$2-$3 a--c
1335 (?|a(.)b|d(.(o).)d|i(.)(.)j)(.) ixyjp y $1-$2-$3 x-y-p
1336 (?|(?|(a)|(b))|(?|(c)|(d))) a y $1 a
1337 (?|(?|(a)|(b))|(?|(c)|(d))) b y $1 b
1338 (?|(?|(a)|(b))|(?|(c)|(d))) c y $1 c
1339 (?|(?|(a)|(b))|(?|(c)|(d))) d y $1 d
1340 (.)(?|(.)(.)x|(.)d)(.) abcde y $1-$2-$3-$4-$5- b-c--e--
1341 (\N)(?|(\N)(\N)x|(\N)d)(\N) abcde y $1-$2-$3-$4-$5- b-c--e--
1342 (?|(?<foo>x)) x yM $+{foo} x miniperl cannot load Tie::Hash::NamedCapture
1343 (?|(?<foo>x)|(?<bar>y)) x yM $+{foo} x miniperl cannot load Tie::Hash::NamedCapture
1344 (?|(?<bar>y)|(?<foo>x)) x yM $+{foo} x miniperl cannot load Tie::Hash::NamedCapture
1345 (?<bar>)(?|(?<foo>x)) x yM $+{foo} x miniperl cannot load Tie::Hash::NamedCapture
1346 # Used to crash, because the last branch was ignored when the parens
1348 (?|(b)|()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()(a)) a y $& a
1351 (?(DEFINE)(?<A>(?&B)+)(?<B>a))(?&A) a y $& a
1352 (?(DEFINE)(?<A>(?&B)+)(?<B>a))(?&A) aa y $& aa
1353 \x{100}?(??{""})xxx xxx y $& xxx
1355 foo(\R)bar foo\r\nbar y $1 \r\n
1356 foo(\R)bar foo\nbar y $1 \n
1357 foo(\R)bar foo\rbar y $1 \r
1359 foo(\R+)bar foo\r\n\x{85}\r\n\nbar y $1 \r\n\x{85}\r\n\n
1360 (\V+)(\R) foo\r\n\x{85}\r\n\nbar y $1-$2 foo-\r\n
1361 (\R+)(\V) foo\r\n\x{85}\r\n\nbar y $1-$2 \r\n\x{85}\r\n\n-b
1362 foo(\R)bar foo\x{85}bar y $1 \x{85}
1363 (\V)(\R) foo\x{85}bar y $1-$2 o-\x{85}
1364 (\R)(\V) foo\x{85}bar y $1-$2 \x{85}-b
1365 foo(\R)bar foo\r\nbar y $1 \r\n
1366 (\V)(\R) foo\r\nbar y $1-$2 o-\r\n
1367 (\R)(\V) foo\r\nbar y $1-$2 \r\n-b
1368 foo(\R)bar foo\r\nbar y $1 \r\n
1369 (\V)(\R) foo\r\nbar y $1-$2 o-\r\n
1370 (\R)(\V) foo\r\nbar y $1-$2 \r\n-b
1371 foo(\R)bar foo\rbar y $1 \r
1372 (\V)(\R) foo\rbar y $1-$2 o-\r
1373 (\R)(\V) foo\rbar y $1-$2 \r-b
1375 foo(\v+)bar foo\r\n\x{85}\r\n\nbar y $1 \r\n\x{85}\r\n\n
1376 (\V+)(\v) foo\r\n\x{85}\r\n\nbar y $1-$2 foo-\r
1377 (\v+)(\V) foo\r\n\x{85}\r\n\nbar y $1-$2 \r\n\x{85}\r\n\n-b
1378 foo(\v)bar foo\x{85}bar y $1 \x{85}
1379 (\V)(\v) foo\x{85}bar y $1-$2 o-\x{85}
1380 (\v)(\V) foo\x{85}bar y $1-$2 \x{85}-b
1381 foo(\v)bar foo\rbar y $1 \r
1382 (\V)(\v) foo\rbar y $1-$2 o-\r
1383 (\v)(\V) foo\rbar y $1-$2 \r-b
1386 foo(\h+)bar foo\t\x{A0}bar y $1 \t\x{A0}
1387 (\H+)(\h) foo\t\x{A0}bar y $1-$2 foo-\t
1388 (\h+)(\H) foo\t\x{A0}bar y $1-$2 \t\x{A0}-b
1389 foo(\h)bar foo\x{A0}bar y $1 \x{A0}
1390 (\H)(\h) foo\x{A0}bar y $1-$2 o-\x{A0}
1391 (\h)(\H) foo\x{A0}bar y $1-$2 \x{A0}-b
1392 foo(\h)bar foo\tbar y $1 \t
1393 (\H)(\h) foo\tbar y $1-$2 o-\t
1394 (\h)(\H) foo\tbar y $1-$2 \t-b
1396 .*\z foo\n y -$&- --
1397 \N*\z foo\n y -$&- --
1398 .*\Z foo\n y -$&- -foo-
1399 \N*\Z foo\n y -$&- -foo-
1400 ^(?:(\d)x)?\d$ 1 y ${\(defined($1)?1:0)} 0
1401 .*?(?:(\w)|(\w))x abx y $1-$2 b-
1403 0{50} 000000000000000000000000000000000000000000000000000 y - -
1404 ^a?(?=b)b ab y $& ab # Bug #56690
1405 ^a*(?=b)b ab y $& ab # Bug #56690
1406 />\d+$ \n/ix >10\n y $& >10
1407 />\d+$ \n/ix >1\n y $& >1
1408 /\d+$ \n/ix >10\n y $& 10
1409 />\d\d$ \n/ix >10\n y $& >10
1410 />\d+$ \n/x >10\n y $& >10
1412 # Two regressions in 5.8.x (only) introduced by change 30638
1413 # Simplification of the test failure in XML::LibXML::Simple:
1414 /^\s*i.*?o\s*$/s io\n io y - -
1415 # As reported in #59168 by Father Chrysostomos:
1416 /(.*?)a(?!(a+)b\2c)/ baaabaac y $&-$1 baa-ba
1417 # [perl #60344] Regex lookbehind failure after an (if)then|else in perl 5.10
1418 /\A(?(?=db2)db2|\D+)(?<!processed)\.csv\z/xms sql_processed.csv n - -
1419 /\N{U+0100}/ \x{100} y $& \x{100} # Bug #59328
1420 /[a\N{U+0100}]/ \x{100} y $& \x{100}
1421 /[a\N{U+0100}]/ a y $& a
1423 # Verify that \N{U+...} forces Unicode semantics
1424 /\N{U+41}\x{c1}/i a\x{e1} y $& a\x{e1}
1425 /[\N{U+41}\x{c1}]/i \x{e1} y $& \x{e1}
1427 [\s][\S] \x{a0}\x{a0} n - - # Unicode complements should not match same character
1429 # was generating malformed utf8
1430 '[\x{100}\xff]'i \x{ff} y $& \x{ff}
1432 ((??{ "(?:|)" }))\s C\x20 y - -
1434 # Verify that \ escapes the { after \N, and causes \N to match non-newline
1435 abc\N\{U+BEEF} abc\n{UBEEF} n
1436 abc\N\{U+BEEF} abc.{UBEEF} y $& abc.{UBEEF}
1437 [abc\N\{U+BEEF}] - c - \\N in a character class must be a named character
1439 # Verify that \N can be trailing and causes \N to match non-newline
1440 abc\N abcd y $& abcd
1443 # Verify get errors. For these, we need // or else puts it in single quotes,
1444 # and bypasses the lexer.
1445 /\N{U+}/ - c - Invalid hexadecimal number
1446 # Below currently gives a misleading message
1447 /[\N{U+}]/ - Sc - Unmatched
1448 /[\N{U+}]/ - sc - Syntax error in (?[...])
1449 /abc\N{def/ - c - Missing right brace
1450 /\N{U+4AG3}/ - c - Illegal hexadecimal digit
1451 /[\N{U+4AG3}]/ - c - Illegal hexadecimal digit
1453 # And verify that in single quotes which bypasses the lexer, the regex compiler
1455 \N{U+} - c - Invalid hexadecimal number
1456 [\N{U+}] - c - Invalid hexadecimal number
1457 \N{U+4AG3} - c - Invalid hexadecimal number
1458 [\N{U+4AG3}] - c - Invalid hexadecimal number
1459 abc\N{def - c - \\N{NAME} must be resolved by the lexer
1461 # Verify that under /x that still cant have space before left brace
1462 /abc\N {U+41}/x - c - Missing braces
1463 /abc\N {SPACE}/x - c - Missing braces
1465 # Verifies catches hex errors, and doesn't expose our . notation to the outside
1466 /\N{U+0xBEEF}/ - c - Illegal hexadecimal digit
1467 /\N{U+BEEF.BEAD}/ - c - Illegal hexadecimal digit
1469 # Verify works in single quotish context; regex compiler delivers slightly different msg
1470 # \N{U+BEEF.BEAD} succeeds here, because can't completely hide it from the outside.
1471 \N{U+0xBEEF} - c - Invalid hexadecimal number
1472 \c` - c - \"\\c`\" is more clearly written simply as \"\\ \"
1473 \c1 - c - \"\\c1\" is more clearly written simply as \"q\"
1476 \400 \x{100} y $& \x{100}
1477 \600 \x{180} y $& \x{180}
1478 \777 \x{1FF} y $& \x{1FF}
1479 [a\400] \x{100} y $& \x{100}
1480 [b\600] \x{180} y $& \x{180}
1481 [c\777] \x{1FF} y $& \x{1FF}
1482 \o{120} \x{50} y $& \x{50}
1483 \o{400} \x{100} y $& \x{100}
1484 \o{1000} \x{200} y $& \x{200}
1485 [a\o{120}] \x{50} y $& \x{50}
1486 [a\o{400}] \x{100} y $& \x{100}
1487 [a\o{1000}] \x{200} y $& \x{200}
1489 # The below were inserting a NULL
1495 # The below was inserting a NULL into the character class.
1497 [\8\9] - sc $& Unrecognized escape \\8 in character class
1501 # Verify that reads 1-3 octal digits, and that \_ works in char class
1502 [\0] \000 Sy $& \000
1503 [\0] - sc - Need exactly 3 octal digits
1504 [\07] \007 Sy $& \007
1505 [\07] - sc - Need exactly 3 octal digits
1507 [\07] - sc - Need exactly 3 octal digits
1508 [\006] \006 y $& \006
1510 [\0005] \0005 y $& \000
1511 [\0005] 5\000 y $& 5
1515 (q1|.)*(q2|.)*(x(a|bc)*y){2,} xayxay y $& xayxay
1516 (q1|.)*(q2|.)*(x(a|bc)*y){2,3} xayxay y $& xayxay
1517 (q1|z)*(q2|z)*z{15}-.*?(x(a|bc)*y){2,3}Z zzzzzzzzzzzzzzzz-xayxayxayxayZ y $& zzzzzzzzzzzzzzzz-xayxayxayxayZ
1519 (?:(?:)foo|bar|zot|rt78356) foo y $& foo
1520 /\xe0\pL/i \xc0a y $& \xc0a
1523 (?{})[\x{100}] \x{100} y $& \x{100}
1526 ^m?(\S)(.*)\1$ aba y $1 a
1527 ^m?(\S)(.*)\1$ \tb\t n - -
1528 ^m?(\s)(.*)\1$ \tb\t y $1 \t
1529 ^m?(\s)(.*)\1$ aba n - -
1530 ^m?(\W)(.*)\1$ :b: y $1 :
1531 ^m?(\W)(.*)\1$ aba n - -
1532 ^m?(\w)(.*)\1$ aba y $1 a
1533 ^m?(\w)(.*)\1$ :b: n - -
1534 ^m?(\D)(.*)\1$ aba y $1 a
1535 ^m?(\D)(.*)\1$ 5b5 n - -
1536 ^m?(\d)(.*)\1$ 5b5 y $1 5
1537 ^m?(\d)(.*)\1$ aba n - -
1539 # 17F is 'Long s'; This makes sure the a's in /aa can be separate
1540 /s/ai \x{17F} y $& \x{17F}
1541 /s/aia \x{17F} n - -
1543 /(?aia:s)/ \x{17F} n - -
1546 # Normally 1E9E generates a multi-char fold, but not in inverted class;
1547 # See [perl #89750]. This makes sure that the simple fold gets generated
1548 # in that case, to DF.
1549 /[^\x{1E9E}]/i \x{DF} Sn - -
1555 # \p{L_} was being misinterpreted as \p{L}. L_ matches cased letters, which
1556 # the ideograph below isn't, whereas it does match L
1557 /^\p{L_}/ \x{3400} n - -
1558 /^\p{L}/ \x{3400} y $& \x{3400}
1561 /[s\xDF]a/ui ssa Sy $& ssa
1562 /[s\xDF]a/ui sa y $& sa
1565 /^\R\x0A$/ \x0D\x0A n - -
1567 /ff/i \x{FB00}\x{FB01} y $& \x{FB00}
1568 /ff/i \x{FB01}\x{FB00} y $& \x{FB00}
1569 /fi/i \x{FB01}\x{FB00} y $& \x{FB01}
1570 /fi/i \x{FB00}\x{FB01} y $& \x{FB01}
1572 # Make sure we don't see code blocks where there aren't, and vice-versa
1573 (?#( (?{1+)a a y - -
1576 ab[(?{1\](?{2] ab2 y - -
1577 ab(?{"["})cd abcd y - -
1578 ab(??{"[x]"})cd abxcd y - -
1579 ab\[(??{1})c ab[1c y - -
1580 ab\\[(??{1;})]c ab\\;c y - -
1581 ab\\\[(??{1})c ab\\[1c y - -
1582 ab[c\](??{"]d abcd y - -
1583 ab[c\\](??{"[x]"})d ab\\xd y - -
1584 ab[c\\\](??{"x"})]{3}d ab\\](d y - -
1586 # These test that doesn't cut-off matching too soon in the string for
1588 /ffiffl/i abcdef\x{FB03}\x{FB04} y $& \x{FB03}\x{FB04}
1589 /\xdf\xdf/ui abcdefssss y $& ssss
1591 /st/i \x{DF}\x{FB05} y $& \x{FB05}
1592 /ssst/i \x{DF}\x{FB05} y $& \x{DF}\x{FB05}
1595 /[[:lower:]]/i \x{100} y $& \x{100}
1596 /[[:upper:]]/i \x{101} y $& \x{101}
1598 # Was matching 'ss' only and failing the entire match, not seeing the
1599 # alternative that would succeed
1600 /s\xDF/ui \xDFs y $& \xDFs
1601 /sst/ui s\N{LATIN SMALL LIGATURE ST} y $& s\N{LATIN SMALL LIGATURE ST}
1602 /sst/ui s\N{LATIN SMALL LIGATURE LONG S T} y $& s\N{LATIN SMALL LIGATURE LONG S T}
1604 # /i properties shouldn't match more than the property itself
1605 /[[:ascii:]]/i \N{KELVIN SIGN} n - -
1607 # [[:lower:]]/i and [[:upper:]]/i should match what \p{Lower} and \p{Upper} do.
1608 # which is \p{Cased}, not \p{Alpha},
1609 /[[:lower:]]/i \N{U+3400} n - -
1610 /[[:upper:]]/i \N{U+01BB} n - -
1613 [^\p{Alphabetic}] \x{100} n - -
1615 # [perl #111400]. Tests the first Y/N boundary above 255 for each of these.
1616 /[[:alnum:]]/ \x{2c1} y - -
1617 /[[:alnum:]]/ \x{2c2} n - -
1618 /[[:alpha:]]/ \x{2c1} y - -
1619 /[[:alpha:]]/ \x{2c2} n - -
1620 /[[:graph:]]/ \x{377} y - -
1621 /[[:graph:]]/ \x{378} n - -
1622 /[[:lower:]]/ \x{100} n - -
1623 /[[:lower:]]/ \x{101} y - -
1624 /[[:lower:]]/ \x{102} n - -
1625 /[[:print:]]/ \x{377} y - -
1626 /[[:print:]]/ \x{378} n - -
1627 /[[:punct:]]/ \x{37D} n - -
1628 /[[:punct:]]/ \x{37E} y - -
1629 /[[:punct:]]/ \x{388} n - -
1630 /[[:upper:]]/ \x{100} y - -
1631 /[[:upper:]]/ \x{101} n - -
1632 /[[:word:]]/ \x{2c1} y - -
1633 /[[:word:]]/ \x{2c2} n - -
1636 /syntax OK\s+\z/si t/bin/good.pl syntax OK\n y - -
1638 /^(.*?)\s*\|\s*(?:\/\s*|)'(.+)'$/ text|'sec' y <$1><$2> <text><sec>
1639 /^(foo|)bar$/ bar y <$&> <bar>
1640 /^(foo||baz)bar$/ bar y <$&> <bar>
1641 /^(foo||baz)bar$/ bazbar y <$1> <baz>
1642 /^(foo||baz)bar$/ foobar y <$1> <foo>
1644 /^(?:foo|)bar$/ bar y <$&> <bar>
1645 /^(?:foo||baz)bar$/ bar y <$&> <bar>
1646 /^(?:foo||baz)bar$/ bazbar y <$&> <bazbar>
1647 /^(?:foo||baz)bar$/ foobar y <$&> <foobar>
1649 /^(?i:foo|)bar$/ bar y <$&> <bar>
1650 /^(?i:foo||baz)bar$/ bar y <$&> <bar>
1651 /^(?i:foo||baz)bar$/ bazbar y <$&> <bazbar>
1652 /^(?i:foo||baz)bar$/ foobar y <$&> <foobar>
1654 # $^N, $+ on backtrackracking
1656 ^(.)(?:(..)|B)[CX] ABCDE y $^N-$+ A-A -
1658 ^(.)(?:BC(.)|B)[CX] ABCDE y $^N-$+ A-A -
1660 ^(.)(?:(.)+)*[BX] ABCDE y $^N-$+ A-A -
1662 ^(.)(BC)* ABCDE y $^N-$+ BC-BC -
1663 ^(.)(BC)*[BX] ABCDE y $^N-$+ A-A -
1665 ^(.)(B)*.[DX] ABCDE y $^N-$+ B-B -
1666 ^(.)(B)*.[CX] ABCDE y $^N-$+ A-A -
1668 # using 'return' in code blocks
1669 ^(A)(?{"xyz"})B$ AB y $1-$^R A-xyz -
1670 ^(A)(?{return "xyz"})B$ AB y $1-$^R A-xyz -
1671 ^(A)((??{"xyz"}))$ Axyz y $1-$2 A-xyz -
1672 ^(A)((??{return "xyz"}))$ Axyz y $1-$2 A-xyz -
1673 ^(A)((?(?{1})abc|xyz))$ Aabc y $1-$2 A-abc -
1674 ^(A)((?(?{0})abc|xyz))$ Axyz y $1-$2 A-xyz -
1675 ^(A)((?(?{return 1})abc|xyz))$ Aabc y $1-$2 A-abc -
1676 ^(A)((?(?{return 0})abc|xyz))$ Axyz y $1-$2 A-xyz -
1678 # pattern modifier flags should propagate into returned (??{}) pattern
1681 /^(a)((??{"b"}))$/i AB y $1-$2 A-B -
1682 /^(A)((??{'B$'}))(\nC)$/m AB\nC y $1-$2-$3 A-B-\nC -
1683 /^(A)((??{'.'}))(B)$/s A\nB y $1-$2-$3 A-\n-B -
1684 /^(A) ((??{' .'}))(B)$/x A B y $1-$2-$3 A- -B -
1685 /^((??{'\d'}))$/a \x{660} n - -
1686 /^(??{"s"})$/i \x{17F} y - -
1687 /^(??{"s"})$/ia \x{17F} y - -
1688 /^(??{"s"})$/iaa \x{17F} n - -
1689 /^(??{'\w'})$/u \x{AA} y - -
1691 # #113670 ensure any captures to the right are invalidated when CURLY
1692 # and CURLYM backtrack
1694 ^(?:(X)?(\d)|(X)?(\d\d))$ X12 y $1-$2-$3-$4 --X-12
1695 ^(?:(XX)?(\d)|(XX)?(\d\d))$ XX12 y $1-$2-$3-$4 --XX-12
1698 \A(?>\[(?:(?:)(?:R){1}|T|V?|A)\])\z [A] y $& [A]
1700 /( [^z] $ [^z]+)/xm aa\nbb\ncc\n y $1 a\nbb\ncc\n
1703 /[\h]/ \x{A0} y $& \xA0
1704 /[\H]/ \x{BF} y $& \xBF
1706 /[\H]/ \x{A1} y $& \xA1
1711 # /a has no effect on properties
1712 (?a:\p{Any}) \x{100} y $& \x{100}
1713 (?aa:\p{Any}) \x{100} y $& \x{100}
1715 \w \x{200C} y $& \x{200C}
1717 \w \x{200D} y $& \x{200D}
1720 /^(?d:\xdf|_)*_/i \x{17f}\x{17f}_ y $& \x{17f}\x{17f}_
1722 # check that @-, @+ count chars, not bytes; especially if beginning of
1723 # string is not copied
1725 (\x{100}) \x{2000}\x{2000}\x{2000}\x{100} y $-[0]:$-[1]:$+[0]:$+[1] 3:3:4:4
1727 ^\R{2}$ \r\n\r\n y $& \r\n\r\n
1729 /^\D{11}/a \x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF} n - -
1730 /^\S{11}/a \x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF} n - -
1731 /^\W{11}/a \x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF}\x{10FFFF} n - -
1734 \Vn \xFFn/ y $& \xFFn
1736 /(?l:a?\w)/ b y $& b
1737 m?^xy\?$? xy? y $& xy?
1739 # check we have the right utf8ness as we switch back and forth between
1741 ^(\x{100}|a)(??{ qr/.?\xF7/d}) a_\xF7 y - -
1744 /(a|(bc)){0,0}?xyz/ xyz y $& xyz
1745 /( a | ( bc ) ) {0,0} ? xyz/x xyz y $& xyz
1747 # vim: softtabstop=0 noexpandtab