This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
d6a8b1204ab0172b1102b90614381b50a8e6fc7f
[perl5.git] / t / re / re_tests
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
3 # in regexp.t
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
6 # remain
7 #
8 # pat   string  y/n/etc expr    expected-expr   skip-reason     comment
9 __END__
10 abc     abc     y       $&      abc
11 abc     abc     y       $-[0]   0
12 abc     abc     y       $+[0]   3
13 abc     xbc     n       -       -
14 abc     axc     n       -       -
15 abc     abx     n       -       -
16 abc     xabcy   y       $&      abc
17 abc     xabcy   y       $-[0]   1
18 abc     xabcy   y       $+[0]   4
19 abc     ababc   y       $&      abc
20 abc     ababc   y       $-[0]   2
21 abc     ababc   y       $+[0]   5
22 ab*c    abc     y       $&      abc
23 ab*c    abc     y       $-[0]   0
24 ab*c    abc     y       $+[0]   3
25 ab*bc   abc     y       $&      abc
26 ab*bc   abc     y       $-[0]   0
27 ab*bc   abc     y       $+[0]   3
28 ab*bc   abbc    y       $&      abbc
29 ab*bc   abbc    y       $-[0]   0
30 ab*bc   abbc    y       $+[0]   4
31 ab*bc   abbbbc  y       $&      abbbbc
32 ab*bc   abbbbc  y       $-[0]   0
33 ab*bc   abbbbc  y       $+[0]   6
34 .{1}    abbbbc  y       $&      a
35 .{1}    abbbbc  y       $-[0]   0
36 .{1}    abbbbc  y       $+[0]   1
37 .{3,4}  abbbbc  y       $&      abbb
38 .{3,4}  abbbbc  y       $-[0]   0
39 .{3,4}  abbbbc  y       $+[0]   4
40 \N{1}   abbbbc  y       $&      a
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
55 ab+bc   abbc    y       $&      abbc
56 ab+bc   abbc    y       $-[0]   0
57 ab+bc   abbc    y       $+[0]   4
58 ab+bc   abc     n       -       -
59 ab+bc   abq     n       -       -
60 ab{1,}bc        abq     n       -       -
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       -       -
74 ab?bc   abbc    y       $&      abbc
75 ab?bc   abc     y       $&      abc
76 ab{0,1}bc       abc     y       $&      abc
77 ab?bc   abbbbc  n       -       -
78 ab?c    abc     y       $&      abc
79 ab{0,1}c        abc     y       $&      abc
80 ^abc$   abc     y       $&      abc
81 ^abc$   abcc    n       -       -
82 ^abc    abcc    y       $&      abc
83 ^abc$   aabc    n       -       -
84 abc$    aabc    y       $&      abc
85 abc$    aabcd   n       -       -
86 ^       abc     y       $&      
87 $       abc     y       $&      
88 a.c     abc     y       $&      abc
89 a.c     axc     y       $&      axc
90 a\Nc    abc     y       $&      abc
91 /a\N c/x        abc     y       $&      abc
92 a.*c    axyzc   y       $&      axyzc
93 a\N*c   axyzc   y       $&      axyzc
94 /a\N *c/x       axyzc   y       $&      axyzc
95 a.*c    axyzd   n       -       -
96 a\N*c   axyzd   n       -       -
97 /a\N *c/x       axyzd   n       -       -
98 a[bc]d  abc     n       -       -
99 a[bc]d  abd     y       $&      abd
100 a[b]d   abd     y       $&      abd
101 [a][b][d]       abd     y       $&      abd
102 .[b].   abd     y       $&      abd
103 .[b].   aBd     n       -       -
104 (?i:.[b].)      abd     y       $&      abd
105 (?i:\N[b]\N)    abd     y       $&      abd
106 a[b-d]e abd     n       -       -
107 a[b-d]e ace     y       $&      ace
108 a[b-d]  aac     y       $&      ac
109 a[-b]   a-      y       $&      a-
110 a[b-]   a-      y       $&      a-
111 a[b-a]  -       c       -       Invalid [] range
112 a[]b    -       c       -       Unmatched [
113 a[      -       c       -       Unmatched [
114 a]      a]      y       $&      a]
115 a[]]b   a]b     y       $&      a]b
116 a[^bc]d aed     y       $&      aed
117 a[^bc]d abd     n       -       -
118 a[^-b]c adc     y       $&      adc
119 a[^-b]c a-c     n       -       -
120 a[^]b]c a]c     n       -       -
121 a[^]b]c adc     y       $&      adc
122 \ba\b   a-      y       -       -
123 \ba\b   -a      y       -       -
124 \ba\b   -a-     y       -       -
125 \by\b   xy      n       -       -
126 \by\b   yz      n       -       -
127 \by\b   xyz     n       -       -
128 \Ba\B   a-      n       -       -
129 \Ba\B   -a      n       -       -
130 \Ba\B   -a-     n       -       -
131 \By\b   xy      y       -       -
132 \By\b   xy      y       $-[0]   1
133 \By\b   xy      y       $+[0]   2
134 \By\b   xy      y       -       -
135 \by\B   yz      y       -       -
136 \By\B   xyz     y       -       -
137 \w      a       y       -       -
138 \w      -       n       -       -
139 \W      a       n       -       -
140 \W      -       y       -       -
141 a\sb    a b     y       -       -
142 a\sb    a-b     n       -       -
143 a\Sb    a b     n       -       -
144 a\Sb    a-b     y       -       -
145 \d      1       y       -       -
146 \d      -       n       -       -
147 \D      1       n       -       -
148 \D      -       y       -       -
149 [\w]    a       y       -       -
150 [\w]    -       n       -       -
151 [\W]    a       n       -       -
152 [\W]    -       y       -       -
153 a[\s]b  a b     y       -       -
154 a[\s]b  a-b     n       -       -
155 a[\S]b  a b     n       -       -
156 a[\S]b  a-b     y       -       -
157 [\d]    1       y       -       -
158 [\d]    -       n       -       -
159 [\D]    1       n       -       -
160 [\D]    -       y       -       -
161 ab|cd   abc     y       $&      ab
162 ab|cd   abcd    y       $&      ab
163 ()ef    def     y       $&-$1   ef-
164 ()ef    def     y       $-[0]   1
165 ()ef    def     y       $+[0]   3
166 ()\x{100}\x{1000}       d\x{100}\x{1000}        y       $+[0]   3
167 ()ef    def     y       $-[1]   1
168 ()ef    def     y       $+[1]   1
169 *a      -       c       -       Quantifier follows nothing
170 (|*)b   -       c       -       Quantifier follows nothing
171 (*)b    -       c       -       Unknown verb
172 $b      b       n       -       -
173 a\      -       c       -       Search pattern not terminated
174 a\(b    a(b     y       $&-$1   a(b-
175 a\(*b   ab      y       $&      ab
176 a\(*b   a((b    y       $&      a((b
177 a\\b    a\\b    y       $&      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
183 ((a))   abc     b       @-      0 0 0
184 ((a))   abc     b       @+      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
193 (a+|b)* ab      y       $-[0]   0
194 (a+|b)* ab      y       $+[0]   2
195 (a+|b)* ab      y       $-[1]   1
196 (a+|b)* ab      y       $+[1]   2
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
202 )(      -       c       -       Unmatched )
203 [^ab]*  cde     y       $&      cde
204 abc             n       -       -
205 a*              y       $&      
206 ([abc])*d       abbbcd  y       $&-$1   abbbcd-c
207 ([abc])*bcd     abcd    y       $&-$1   abcd-a
208 a|b|c|d|e       e       y       $&      e
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
216 ab*     xayabbbz        y       $&      a
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)
277 [k]     ab      n       -       -
278 abcd    abcd    y       $&-\$&-\\$&     abcd-\$&-\\abcd
279 a(bc)d  abcd    y       $1-\$1-\\$1     bc-\$1-\\bc
280 a[-]?c  ac      y       $&      ac
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
293 (a)|\1  a       y       -       -
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       -       -
304 (a)|(b) b       y       $-[0]   0
305 (a)|(b) b       y       $+[0]   1
306 (a)|(b) b       y       x$-[1]  x
307 (a)|(b) b       y       x$+[1]  x
308 (a)|(b) b       y       $-[2]   0
309 (a)|(b) b       y       $+[2]   1
310 'abc'i  ABC     y       $&      ABC
311 'abc'i  XBC     n       -       -
312 'abc'i  AXC     n       -       -
313 'abc'i  ABX     n       -       -
314 'abc'i  XABCY   y       $&      ABC
315 'abc'i  ABABC   y       $&      ABC
316 'ab*c'i ABC     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
322 'ab+bc'i        ABC     n       -       -
323 'ab+bc'i        ABQ     n       -       -
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
337 '^abc$'i        ABCC    n       -       -
338 '^abc'i ABCC    y       $&      ABC
339 '^abc$'i        AABC    n       -       -
340 'abc$'i AABC    y       $&      ABC
341 '^'i    ABC     y       $&      
342 '$'i    ABC     y       $&      
343 'a.c'i  ABC     y       $&      ABC
344 'a.c'i  AXC     y       $&      AXC
345 'a\Nc'i ABC     y       $&      ABC
346 'a.*?c'i        AXYZC   y       $&      AXYZC
347 'a.*c'i AXYZD   n       -       -
348 'a[bc]d'i       ABC     n       -       -
349 'a[bc]d'i       ABD     y       $&      ABD
350 'a[b-d]e'i      ABD     n       -       -
351 'a[b-d]e'i      ACE     y       $&      ACE
352 'a[b-d]'i       AAC     y       $&      AC
353 'a[-b]'i        A-      y       $&      A-
354 'a[b-]'i        A-      y       $&      A-
355 'a[b-a]'i       -       c       -       Invalid [] range
356 'a[]b'i -       c       -       Unmatched [
357 'a['i   -       c       -       Unmatched [
358 'a]'i   A]      y       $&      A]
359 'a[]]b'i        A]B     y       $&      A]B
360 'a[^bc]d'i      AED     y       $&      AED
361 'a[^bc]d'i      ABD     n       -       -
362 'a[^-b]c'i      ADC     y       $&      ADC
363 'a[^-b]c'i      A-C     n       -       -
364 'a[^]b]c'i      A]C     n       -       -
365 'a[^]b]c'i      ADC     y       $&      ADC
366 'ab|cd'i        ABC     y       $&      AB
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
372 '$b'i   B       n       -       -
373 'a\'i   -       c       -       Search pattern not terminated
374 'a\(b'i A(B     y       $&-$1   A(B-
375 'a\(*b'i        AB      y       $&      AB
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
397 'abc'i          n       -       -
398 'a*'i           y       $&      
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)
438 '[k]'i  AB      n       -       -
439 'abcd'i ABCD    y       $&-\$&-\\$&     ABCD-\$&-\\ABCD
440 'a(bc)d'i       ABCD    y       $1-\$1-\\$1     BC-\$1-\\BC
441 'a[-]?c'i       AC      y       $&      AC
442 '(abc)\1'i      ABCABC  y       $1      ABC
443 '([a-c]*)\1'i   ABCABC  y       $1      ABC
444 a(?!b). abad    y       $&      ad
445 (?=)a   a       y       $&      a
446 a(?=d). abad    y       $&      ad
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
465 ^(.+)?B AB      y       $1      A
466 ^([^a-z])|(\^)$ .       y       $1      .
467 ^[<>]&  <&OUT   y       $&      <&
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
478 (?<=a)b ab      y       $&      b
479 (?<=a)b cb      n       -       -
480 (?<=a)b b       n       -       -
481 (?<!c)b ab      y       $&      b
482 (?<!c)b cb      n       -       -
483 (?<!c)b b       y       -       -
484 (?<!c)b b       y       $&      b
485 (?<%)b  -       c       -       Group name must start with a non-digit word character
486 (?:..)*a        aba     y       $&      aba
487 (?:..)*?a       aba     y       $&      a
488 ^(?:b|a(?=(.)))*\1      abc     y       $&      ab
489 ^(){3,5}        abc     y       a$1     a
490 ^(a+)*ax        aax     y       $1      a
491 ^((a|b)+)*ax    aax     y       $1      a
492 ^((a|bc)+)*ax   aax     y       $1      a
493 (a|x)*ab        cab     y       y$1     y
494 (a)*ab  cab     y       y$1     y
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
499 (?:(?i)a)b      aB      n       -       -
500 ((?i)a)b        aB      n       -       -
501 (?i:a)b ab      y       $&      ab
502 ((?i:a))b       ab      y       $&:$1   ab:a
503 (?i:a)b Ab      y       $&      Ab
504 ((?i:a))b       Ab      y       $&:$1   Ab:A
505 (?i:a)b aB      n       -       -
506 ((?i:a))b       aB      n       -       -
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
521 '(?-i:a)b'i     Ab      n       -       -
522 '((?-i:a))b'i   Ab      n       -       -
523 '(?-i:a)b'i     aB      y       $&      aB
524 '((?-i:a))b'i   aB      y       $1      a
525 '(?-i:a)b'i     AB      n       -       -
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
538 a(?{})b cabd    y       $&      ab
539 a(?{f()+        -       c       -       Missing right curly or square bracket
540 a(?{{1}+        -       c       -       Missing right curly or square bracket
541 a(?{}})b        -       c       -       
542 a(?{"{"})b      ab      y       -       -
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
557 (?m)^b  a\nb\n  y       $&      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
567 ^b      a\nb\nc\n       n       -       -
568 ()^b    a\nb\nc\n       n       -       -
569 ((?m)^b)        a\nb\nc\n       y       $1      b
570 (?(1)a|b)       a       n       -       -
571 (?(1)b|a)       a       y       $&      a
572 (x)?(?(1)a|b)   a       n       -       -
573 (x)?(?(1)b|a)   a       y       $&      a
574 ()?(?(1)b|a)    a       y       $&      a
575 ()(?(1)b|a)     a       n       -       -
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
587 (?(?{0})a|b)    a       n       -       -
588 (?(?{0})b|a)    a       y       $&      a
589 (?(?{1})b|a)    a       n       -       -
590 (?(?{1})a|b)    a       y       $&      a
591 (?(?!a)a|b)     a       n       -       -
592 (?(?!a)b|a)     a       y       $&      a
593 (?(?=a)b|a)     a       n       -       -
594 (?(?=a)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:
602 $(?<=^(a))      a       y       $1      a
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
609 (a*)b+  caab    y       $1      aa
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
616 # [perl #117917]
617 ^(a(?{ "x" =~ m{x}})b)(??{ $1 })        abab    y       $&      abab
618 (>a+)ab aaab    n       -       -
619 (?>a+)b aaab    y       -       -
620 ([[:]+) a:[b]:  y       $1      :[
621 ([[=]+) a=[b]=  y       $1      =[
622 ([[.]+) a.[b].  y       $1      .[
623 [a[:xyz:        -       c       -       Unmatched [
624 [a[:xyz:]       -       c       -       POSIX class [:xyz:] unknown
625 [a[:]b[:c]      abc     y       $&      abc
626 ([a[:xyz:]b]+)  -       c       -       POSIX class [:xyz:] unknown
627 ([[:alpha:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd
628 ([[:alnum:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy
629 ([[:ascii:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy__--  ${nulnul}
630 ([[:cntrl:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ${nulnul}
631 ([[:digit:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      01
632 ([[:graph:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy__--
633 ([[:lower:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      cd
634 ([[:print:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy__--  
635 ([[:punct:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      __--
636 ([[:space:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1        
637 ([[:word:]]+)   ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy__
638 ([[:upper:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      AB
639 ([[:xdigit:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01
640 ([[:^alpha:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      01
641 ((?a)[[:^alnum:]]+)     ABcd01Xy__--  ${nulnul}${ffff}  y       $1      __--  ${nulnul}${ffff}
642 ([[:^ascii:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ${ffff}
643 ([:[:^ascii:]]+)        ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ${ffff} RT #120799
644 ([[:^cntrl:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy__--  
645 ([[:^digit:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd
646 ([[:^lower:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      AB
647 ((?a)[[:^print:]]+)     ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ${nulnul}${ffff}
648 ([[:^punct:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy
649 ([[:^space:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy__--
650 ((?a)[[:^word:]]+)      ABcd01Xy__--  ${nulnul}${ffff}  y       $1      --  ${nulnul}${ffff}
651 ([[:^upper:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      cd01
652 ([[:^xdigit:]]+)        ABcd01Xy__--  ${nulnul}${ffff}  y       $1      Xy__--  ${nulnul}${ffff}
653 [[:foo:]]       -       c       -       POSIX class [:foo:] unknown
654 [[:^foo:]]      -       c       -       POSIX class [:^foo:] unknown
655 ((?>a+)b)       aaab    y       $1      aaab
656 (?>(a+))b       aaab    y       $1      aaa
657 ((?>[^()]+)|\([^()]*\))+        ((abc(ade)ufh()()x      y       $&      abc(ade)ufh()()x
658 (?<=x+)y        -       c       -       Variable length lookbehind not implemented
659 ((def){37,17})?ABC      ABC     y       $&      ABC
660 \Z      a\nb\n  y       $-[0]   3
661 \z      a\nb\n  y       $-[0]   4
662 $       a\nb\n  y       $-[0]   3
663 \Z      b\na\n  y       $-[0]   3
664 \z      b\na\n  y       $-[0]   4
665 $       b\na\n  y       $-[0]   3