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.
   6 #
   7 # pat   string  y/n/etc expr    expected-expr   skip-reason
   8 __END__
   9 abc     abc     y       $&      abc
  10 abc     abc     y       $-[0]   0
  11 abc     abc     y       $+[0]   3
  12 abc     xbc     n       -       -
  13 abc     axc     n       -       -
  14 abc     abx     n       -       -
  15 abc     xabcy   y       $&      abc
  16 abc     xabcy   y       $-[0]   1
  17 abc     xabcy   y       $+[0]   4
  18 abc     ababc   y       $&      abc
  19 abc     ababc   y       $-[0]   2
  20 abc     ababc   y       $+[0]   5
  21 ab*c    abc     y       $&      abc
  22 ab*c    abc     y       $-[0]   0
  23 ab*c    abc     y       $+[0]   3
  24 ab*bc   abc     y       $&      abc
  25 ab*bc   abc     y       $-[0]   0
  26 ab*bc   abc     y       $+[0]   3
  27 ab*bc   abbc    y       $&      abbc
  28 ab*bc   abbc    y       $-[0]   0
  29 ab*bc   abbc    y       $+[0]   4
  30 ab*bc   abbbbc  y       $&      abbbbc
  31 ab*bc   abbbbc  y       $-[0]   0
  32 ab*bc   abbbbc  y       $+[0]   6
  33 .{1}    abbbbc  y       $&      a
  34 .{1}    abbbbc  y       $-[0]   0
  35 .{1}    abbbbc  y       $+[0]   1
  36 .{3,4}  abbbbc  y       $&      abbb
  37 .{3,4}  abbbbc  y       $-[0]   0
  38 .{3,4}  abbbbc  y       $+[0]   4
  39 \N{1}   abbbbc  y       $&      a
  40 \N{1}   abbbbc  y       $-[0]   0
  41 \N{1}   abbbbc  y       $+[0]   1
  42 /\N {1}/x       abbbbc  y       $&      a
  43 /\N {1}/x       abbbbc  y       $-[0]   0
  44 /\N {1}/x       abbbbc  y       $+[0]   1
  45 \N{3,4} abbbbc  y       $&      abbb
  46 \N{3,4} abbbbc  y       $-[0]   0
  47 \N{3,4} abbbbc  y       $+[0]   4
  48 /\N {3,4}/x     abbbbc  y       $&      abbb
  49 /\N {3,4}/x     abbbbc  y       $-[0]   0
  50 /\N {3,4}/x     abbbbc  y       $+[0]   4
  51 ab{0,}bc        abbbbc  y       $&      abbbbc
  52 ab{0,}bc        abbbbc  y       $-[0]   0
  53 ab{0,}bc        abbbbc  y       $+[0]   6
  54 ab+bc   abbc    y       $&      abbc
  55 ab+bc   abbc    y       $-[0]   0
  56 ab+bc   abbc    y       $+[0]   4
  57 ab+bc   abc     n       -       -
  58 ab+bc   abq     n       -       -
  59 ab{1,}bc        abq     n       -       -
  60 ab+bc   abbbbc  y       $&      abbbbc
  61 ab+bc   abbbbc  y       $-[0]   0
  62 ab+bc   abbbbc  y       $+[0]   6
  63 ab{1,}bc        abbbbc  y       $&      abbbbc
  64 ab{1,}bc        abbbbc  y       $-[0]   0
  65 ab{1,}bc        abbbbc  y       $+[0]   6
  66 ab{1,3}bc       abbbbc  y       $&      abbbbc
  67 ab{1,3}bc       abbbbc  y       $-[0]   0
  68 ab{1,3}bc       abbbbc  y       $+[0]   6
  69 ab{3,4}bc       abbbbc  y       $&      abbbbc
  70 ab{3,4}bc       abbbbc  y       $-[0]   0
  71 ab{3,4}bc       abbbbc  y       $+[0]   6
  72 ab{4,5}bc       abbbbc  n       -       -
  73 ab?bc   abbc    y       $&      abbc
  74 ab?bc   abc     y       $&      abc
  75 ab{0,1}bc       abc     y       $&      abc
  76 ab?bc   abbbbc  n       -       -
  77 ab?c    abc     y       $&      abc
  78 ab{0,1}c        abc     y       $&      abc
  79 ^abc$   abc     y       $&      abc
  80 ^abc$   abcc    n       -       -
  81 ^abc    abcc    y       $&      abc
  82 ^abc$   aabc    n       -       -
  83 abc$    aabc    y       $&      abc
  84 abc$    aabcd   n       -       -
  85 ^       abc     y       $&
  86 $       abc     y       $&
  87 a.c     abc     y       $&      abc
  88 a.c     axc     y       $&      axc
  89 a\Nc    abc     y       $&      abc
  90 /a\N c/x        abc     y       $&      abc
  91 a.*c    axyzc   y       $&      axyzc
  92 a\N*c   axyzc   y       $&      axyzc
  93 /a\N *c/x       axyzc   y       $&      axyzc
  94 a.*c    axyzd   n       -       -
  95 a\N*c   axyzd   n       -       -
  96 /a\N *c/x       axyzd   n       -       -
  97 a[bc]d  abc     n       -       -
  98 a[bc]d  abd     y       $&      abd
  99 a[b]d   abd     y       $&      abd
 100 [a][b][d]       abd     y       $&      abd
 101 .[b].   abd     y       $&      abd
 102 .[b].   aBd     n       -       -
 103 (?i:.[b].)      abd     y       $&      abd
 104 (?i:\N[b]\N)    abd     y       $&      abd
 105 a[b-d]e abd     n       -       -
 106 a[b-d]e ace     y       $&      ace
 107 a[b-d]  aac     y       $&      ac
 108 a[-b]   a-      y       $&      a-
 109 a[b-]   a-      y       $&      a-
 110 a[b-a]  -       c       -       Invalid [] range \"b-a\"
 111 a[]b    -       c       -       Unmatched [
 112 a[      -       c       -       Unmatched [
 113 a]      a]      y       $&      a]
 114 a[]]b   a]b     y       $&      a]b
 115 a[^bc]d aed     y       $&      aed
 116 a[^bc]d abd     n       -       -
 117 a[^-b]c adc     y       $&      adc
 118 a[^-b]c a-c     n       -       -
 119 a[^]b]c a]c     n       -       -
 120 a[^]b]c adc     y       $&      adc
 121 \ba\b   a-      y       -       -
 122 \ba\b   -a      y       -       -
 123 \ba\b   -a-     y       -       -
 124 \by\b   xy      n       -       -
 125 \by\b   yz      n       -       -
 126 \by\b   xyz     n       -       -
 127 \Ba\B   a-      n       -       -
 128 \Ba\B   -a      n       -       -
 129 \Ba\B   -a-     n       -       -
 130 \By\b   xy      y       -       -
 131 \By\b   xy      y       $-[0]   1
 132 \By\b   xy      y       $+[0]   2
 133 \By\b   xy      y       -       -
 134 \by\B   yz      y       -       -
 135 \By\B   xyz     y       -       -
 136 \w      a       y       -       -
 137 \w      -       n       -       -
 138 \W      a       n       -       -
 139 \W      -       y       -       -
 140 a\sb    a b     y       -       -
 141 a\sb    a-b     n       -       -
 142 a\Sb    a b     n       -       -
 143 a\Sb    a-b     y       -       -
 144 \d      1       y       -       -
 145 \d      -       n       -       -
 146 \D      1       n       -       -
 147 \D      -       y       -       -
 148 [\w]    a       y       -       -
 149 [\w]    -       n       -       -
 150 [\W]    a       n       -       -
 151 [\W]    -       y       -       -
 152 a[\s]b  a b     y       -       -
 153 a[\s]b  a-b     n       -       -
 154 a[\S]b  a b     n       -       -
 155 a[\S]b  a-b     y       -       -
 156 [\d]    1       y       -       -
 157 [\d]    -       n       -       -
 158 [\D]    1       n       -       -
 159 [\D]    -       y       -       -
 160 ab|cd   abc     y       $&      ab
 161 ab|cd   abcd    y       $&      ab
 162 ()ef    def     y       $&-$1   ef-
 163 ()ef    def     y       $-[0]   1
 164 ()ef    def     y       $+[0]   3
 165 ()ef    def     y       $-[1]   1
 166 ()ef    def     y       $+[1]   1
 167 *a      -       c       -       Quantifier follows nothing
 168 (|*)b   -       c       -       Quantifier follows nothing
 169 (*)b    -       c       -       Unknown verb
 170 $b      b       n       -       -
 171 a\      -       c       -       Search pattern not terminated
 172 a\(b    a(b     y       $&-$1   a(b-
 173 a\(*b   ab      y       $&      ab
 174 a\(*b   a((b    y       $&      a((b
 175 a\\b    a\\b    y       $&      a\\b
 176 abc)    -       c       -       Unmatched )
 177 (abc    -       c       -       Unmatched (
 178 ((a))   abc     y       $&-$1-$2        a-a-a
 179 ((a))   abc     y       $-[0]-$-[1]-$-[2]       0-0-0
 180 ((a))   abc     y       $+[0]-$+[1]-$+[2]       1-1-1
 181 ((a))   abc     b       @-      0 0 0
 182 ((a))   abc     b       @+      1 1 1
 183 (a)b(c) abc     y       $&-$1-$2        abc-a-c
 184 (a)b(c) abc     y       $-[0]-$-[1]-$-[2]       0-0-2
 185 (a)b(c) abc     y       $+[0]-$+[1]-$+[2]       3-1-3
 186 a+b+c   aabbabc y       $&      abc
 187 a{1,}b{1,}c     aabbabc y       $&      abc
 188 a**     -       c       -       Nested quantifiers
 189 a.+?c   abcabc  y       $&      abc
 190 (a+|b)* ab      y       $&-$1   ab-b
 191 (a+|b)* ab      y       $-[0]   0
 192 (a+|b)* ab      y       $+[0]   2
 193 (a+|b)* ab      y       $-[1]   1
 194 (a+|b)* ab      y       $+[1]   2
 195 (a+|b){0,}      ab      y       $&-$1   ab-b
 196 (a+|b)+ ab      y       $&-$1   ab-b
 197 (a+|b){1,}      ab      y       $&-$1   ab-b
 198 (a+|b)? ab      y       $&-$1   a-a
 199 (a+|b){0,1}     ab      y       $&-$1   a-a
 200 )(      -       c       -       Unmatched )
 201 [^ab]*  cde     y       $&      cde
 202 abc             n       -       -
 203 a*              y       $&
 204 ([abc])*d       abbbcd  y       $&-$1   abbbcd-c
 205 ([abc])*bcd     abcd    y       $&-$1   abcd-a
 206 a|b|c|d|e       e       y       $&      e
 207 (a|b|c|d|e)f    ef      y       $&-$1   ef-e
 208 (a|b|c|d|e)f    ef      y       $-[0]   0
 209 (a|b|c|d|e)f    ef      y       $+[0]   2
 210 (a|b|c|d|e)f    ef      y       $-[1]   0
 211 (a|b|c|d|e)f    ef      y       $+[1]   1
 212 abcd*efg        abcdefg y       $&      abcdefg
 213 ab*     xabyabbbz       y       $&      ab
 214 ab*     xayabbbz        y       $&      a
 215 (ab|cd)e        abcde   y       $&-$1   cde-cd
 216 [abhgefdc]ij    hij     y       $&      hij
 217 ^(ab|cd)e       abcde   n       x$1y    xy
 218 (abc|)ef        abcdef  y       $&-$1   ef-
 219 (a|b)c*d        abcd    y       $&-$1   bcd-b
 220 (ab|ab*)bc      abc     y       $&-$1   abc-a
 221 a([bc]*)c*      abc     y       $&-$1   abc-bc
 222 a([bc]*)(c*d)   abcd    y       $&-$1-$2        abcd-bc-d
 223 a([bc]*)(c*d)   abcd    y       $-[0]   0
 224 a([bc]*)(c*d)   abcd    y       $+[0]   4
 225 a([bc]*)(c*d)   abcd    y       $-[1]   1
 226 a([bc]*)(c*d)   abcd    y       $+[1]   3
 227 a([bc]*)(c*d)   abcd    y       $-[2]   3
 228 a([bc]*)(c*d)   abcd    y       $+[2]   4
 229 a([bc]+)(c*d)   abcd    y       $&-$1-$2        abcd-bc-d
 230 a([bc]*)(c+d)   abcd    y       $&-$1-$2        abcd-b-cd
 231 a([bc]*)(c+d)   abcd    y       $-[0]   0
 232 a([bc]*)(c+d)   abcd    y       $+[0]   4
 233 a([bc]*)(c+d)   abcd    y       $-[1]   1
 234 a([bc]*)(c+d)   abcd    y       $+[1]   2
 235 a([bc]*)(c+d)   abcd    y       $-[2]   2
 236 a([bc]*)(c+d)   abcd    y       $+[2]   4
 237 a[bcd]*dcdcde   adcdcde y       $&      adcdcde
 238 a[bcd]+dcdcde   adcdcde n       -       -
 239 (ab|a)b*c       abc     y       $&-$1   abc-ab
 240 (ab|a)b*c       abc     y       $-[0]   0
 241 (ab|a)b*c       abc     y       $+[0]   3
 242 (ab|a)b*c       abc     y       $-[1]   0
 243 (ab|a)b*c       abc     y       $+[1]   2
 244 ((a)(b)c)(d)    abcd    y       $1-$2-$3-$4     abc-a-b-d
 245 ((a)(b)c)(d)    abcd    y       $-[0]   0
 246 ((a)(b)c)(d)    abcd    y       $+[0]   4
 247 ((a)(b)c)(d)    abcd    y       $-[1]   0
 248 ((a)(b)c)(d)    abcd    y       $+[1]   3
 249 ((a)(b)c)(d)    abcd    y       $-[2]   0
 250 ((a)(b)c)(d)    abcd    y       $+[2]   1
 251 ((a)(b)c)(d)    abcd    y       $-[3]   1
 252 ((a)(b)c)(d)    abcd    y       $+[3]   2
 253 ((a)(b)c)(d)    abcd    y       $-[4]   3
 254 ((a)(b)c)(d)    abcd    y       $+[4]   4
 255 [a-zA-Z_][a-zA-Z0-9_]*  alpha   y       $&      alpha
 256 ^a(bc+|b[eh])g|.h$      abh     y       $&-$1   bh-
 257 (bc+d$|ef*g.|h?i(j|k))  effgz   y       $&-$1-$2        effgz-effgz-
 258 (bc+d$|ef*g.|h?i(j|k))  ij      y       $&-$1-$2        ij-ij-j
 259 (bc+d$|ef*g.|h?i(j|k))  effg    n       -       -
 260 (bc+d$|ef*g.|h?i(j|k))  bcdd    n       -       -
 261 (bc+d$|ef*g.|h?i(j|k))  reffgz  y       $&-$1-$2        effgz-effgz-
 262 ((((((((((a))))))))))   a       y       $10     a
 263 ((((((((((a))))))))))   a       y       $-[0]   0
 264 ((((((((((a))))))))))   a       y       $+[0]   1
 265 ((((((((((a))))))))))   a       y       $-[10]  0
 266 ((((((((((a))))))))))   a       y       $+[10]  1
 267 ((((((((((a))))))))))\10        aa      y       $&      aa
 268 ((((((((((a))))))))))${bang}    aa      n       -       -
 269 ((((((((((a))))))))))${bang}    a!      y       $&      a!
 270 (((((((((a)))))))))     a       y       $&      a
 271 multiple words of text  uh-uh   n       -       -
 272 multiple words  multiple words, yeah    y       $&      multiple words
 273 (.*)c(.*)       abcde   y       $&-$1-$2        abcde-ab-de
 274 \((.*), (.*)\)  (a, b)  y       ($2, $1)        (b, a)
 275 [k]     ab      n       -       -
 276 abcd    abcd    y       $&-\$&-\\$&     abcd-\$&-\\abcd
 277 a(bc)d  abcd    y       $1-\$1-\\$1     bc-\$1-\\bc
 278 a[-]?c  ac      y       $&      ac
 279 (abc)\1 abcabc  y       $1      abc
 280 ([a-c]*)\1      abcabc  y       $1      abc
 281 \1      -       c       -       Reference to nonexistent group
 282 \2      -       c       -       Reference to nonexistent group
 283 \g1     -       c       -       Reference to nonexistent group
 284 \g-1    -       c       -       Reference to nonexistent or unclosed group
 285 \g{1}   -       c       -       Reference to nonexistent group
 286 \g{-1}  -       c       -       Reference to nonexistent or unclosed group
 287 \g0     -       c       -       Reference to invalid group 0
 288 \g-0    -       c       -       Reference to invalid group 0
 289 \g{0}   -       c       -       Reference to invalid group 0
 290 \g{-0}  -       c       -       Reference to invalid group 0
 291 (a)|\1  a       y       -       -
 292 (a)|\1  x       n       -       Reference to group in different branch
 293 (?:(b)?a)\1     a       n       -       Reference to group that did not match
 294 (a)|\2  -       c       -       Reference to nonexistent group
 295 (([a-c])b*?\2)* ababbbcbc       y       $&-$1-$2        ababb-bb-b
 296 (([a-c])b*?\2){3}       ababbbcbc       y       $&-$1-$2        ababbbcbc-cbc-c
 297 ((\3|b)\2(a)x)+ aaxabxbaxbbx    n       -       -
 298 ((\3|b)\2(a)x)+ aaaxabaxbaaxbbax        y       $&-$1-$2-$3     bbax-bbax-b-a
 299 ((\3|b)\2(a)){2,}       bbaababbabaaaaabbaaaabba        y       $&-$1-$2-$3     bbaaaabba-bba-b-a
 300 #Bug #3589 - up to perl-5.6.0 matches incorrectly, from 5.6.1 not anymore
 301 ^((.)?a\2)+$    babadad n       -       -
 302 (a)|(b) b       y       $-[0]   0
 303 (a)|(b) b       y       $+[0]   1
 304 (a)|(b) b       y       x$-[1]  x
 305 (a)|(b) b       y       x$+[1]  x
 306 (a)|(b) b       y       $-[2]   0
 307 (a)|(b) b       y       $+[2]   1
 308 'abc'i  ABC     y       $&      ABC
 309 'abc'i  XBC     n       -       -
 310 'abc'i  AXC     n       -       -
 311 'abc'i  ABX     n       -       -
 312 'abc'i  XABCY   y       $&      ABC
 313 'abc'i  ABABC   y       $&      ABC
 314 'ab*c'i ABC     y       $&      ABC
 315 'ab*bc'i        ABC     y       $&      ABC
 316 'ab*bc'i        ABBC    y       $&      ABBC
 317 'ab*?bc'i       ABBBBC  y       $&      ABBBBC
 318 'ab{0,}?bc'i    ABBBBC  y       $&      ABBBBC
 319 'ab+?bc'i       ABBC    y       $&      ABBC
 320 'ab+bc'i        ABC     n       -       -
 321 'ab+bc'i        ABQ     n       -       -
 322 'ab{1,}bc'i     ABQ     n       -       -
 323 'ab+bc'i        ABBBBC  y       $&      ABBBBC
 324 'ab{1,}?bc'i    ABBBBC  y       $&      ABBBBC
 325 'ab{1,3}?bc'i   ABBBBC  y       $&      ABBBBC
 326 'ab{3,4}?bc'i   ABBBBC  y       $&      ABBBBC
 327 'ab{4,5}?bc'i   ABBBBC  n       -       -
 328 'ab??bc'i       ABBC    y       $&      ABBC
 329 'ab??bc'i       ABC     y       $&      ABC
 330 'ab{0,1}?bc'i   ABC     y       $&      ABC
 331 'ab??bc'i       ABBBBC  n       -       -
 332 'ab??c'i        ABC     y       $&      ABC
 333 'ab{0,1}?c'i    ABC     y       $&      ABC
 334 '^abc$'i        ABC     y       $&      ABC
 335 '^abc$'i        ABCC    n       -       -
 336 '^abc'i ABCC    y       $&      ABC
 337 '^abc$'i        AABC    n       -       -
 338 'abc$'i AABC    y       $&      ABC
 339 '^'i    ABC     y       $&
 340 '$'i    ABC     y       $&
 341 'a.c'i  ABC     y       $&      ABC
 342 'a.c'i  AXC     y       $&      AXC
 343 'a\Nc'i ABC     y       $&      ABC
 344 'a.*?c'i        AXYZC   y       $&      AXYZC
 345 'a.*c'i AXYZD   n       -       -
 346 'a[bc]d'i       ABC     n       -       -
 347 'a[bc]d'i       ABD     y       $&      ABD
 348 'a[b-d]e'i      ABD     n       -       -
 349 'a[b-d]e'i      ACE     y       $&      ACE
 350 'a[b-d]'i       AAC     y       $&      AC
 351 'a[-b]'i        A-      y       $&      A-
 352 'a[b-]'i        A-      y       $&      A-
 353 'a[b-a]'i       -       c       -       Invalid [] range \"b-a\"
 354 'a[]b'i -       c       -       Unmatched [
 355 'a['i   -       c       -       Unmatched [
 356 'a]'i   A]      y       $&      A]
 357 'a[]]b'i        A]B     y       $&      A]B
 358 'a[^bc]d'i      AED     y       $&      AED
 359 'a[^bc]d'i      ABD     n       -       -
 360 'a[^-b]c'i      ADC     y       $&      ADC
 361 'a[^-b]c'i      A-C     n       -       -
 362 'a[^]b]c'i      A]C     n       -       -
 363 'a[^]b]c'i      ADC     y       $&      ADC
 364 'ab|cd'i        ABC     y       $&      AB
 365 'ab|cd'i        ABCD    y       $&      AB
 366 '()ef'i DEF     y       $&-$1   EF-
 367 '*a'i   -       c       -       Quantifier follows nothing
 368 '(|*)b'i        -       c       -       Quantifier follows nothing
 369 '(*)b'i -       c       -       Unknown verb
 370 '$b'i   B       n       -       -
 371 'a\'i   -       c       -       Search pattern not terminated
 372 'a\(b'i A(B     y       $&-$1   A(B-
 373 'a\(*b'i        AB      y       $&      AB
 374 'a\(*b'i        A((B    y       $&      A((B
 375 'a\\b'i A\\B    y       $&      A\\B
 376 'abc)'i -       c       -       Unmatched )
 377 '(abc'i -       c       -       Unmatched (
 378 '((a))'i        ABC     y       $&-$1-$2        A-A-A
 379 '(a)b(c)'i      ABC     y       $&-$1-$2        ABC-A-C
 380 'a+b+c'i        AABBABC y       $&      ABC
 381 'a{1,}b{1,}c'i  AABBABC y       $&      ABC
 382 'a**'i  -       c       -       Nested quantifiers
 383 'a.+?c'i        ABCABC  y       $&      ABC
 384 'a.*?c'i        ABCABC  y       $&      ABC
 385 'a.{0,5}?c'i    ABCABC  y       $&      ABC
 386 '(a+|b)*'i      AB      y       $&-$1   AB-B
 387 '(a+|b){0,}'i   AB      y       $&-$1   AB-B
 388 '(a+|b)+'i      AB      y       $&-$1   AB-B
 389 '(a+|b){1,}'i   AB      y       $&-$1   AB-B
 390 '(a+|b)?'i      AB      y       $&-$1   A-A
 391 '(a+|b){0,1}'i  AB      y       $&-$1   A-A
 392 '(a+|b){0,1}?'i AB      y       $&-$1   -
 393 ')('i   -       c       -       Unmatched )
 394 '[^ab]*'i       CDE     y       $&      CDE
 395 'abc'i          n       -       -
 396 'a*'i           y       $&
 397 '([abc])*d'i    ABBBCD  y       $&-$1   ABBBCD-C
 398 '([abc])*bcd'i  ABCD    y       $&-$1   ABCD-A
 399 'a|b|c|d|e'i    E       y       $&      E
 400 '(a|b|c|d|e)f'i EF      y       $&-$1   EF-E
 401 'abcd*efg'i     ABCDEFG y       $&      ABCDEFG
 402 'ab*'i  XABYABBBZ       y       $&      AB
 403 'ab*'i  XAYABBBZ        y       $&      A
 404 '(ab|cd)e'i     ABCDE   y       $&-$1   CDE-CD
 405 '[abhgefdc]ij'i HIJ     y       $&      HIJ
 406 '^(ab|cd)e'i    ABCDE   n       x$1y    XY
 407 '(abc|)ef'i     ABCDEF  y       $&-$1   EF-
 408 '(a|b)c*d'i     ABCD    y       $&-$1   BCD-B
 409 '(ab|ab*)bc'i   ABC     y       $&-$1   ABC-A
 410 'a([bc]*)c*'i   ABC     y       $&-$1   ABC-BC
 411 'a([bc]*)(c*d)'i        ABCD    y       $&-$1-$2        ABCD-BC-D
 412 'a([bc]+)(c*d)'i        ABCD    y       $&-$1-$2        ABCD-BC-D
 413 'a([bc]*)(c+d)'i        ABCD    y       $&-$1-$2        ABCD-B-CD
 414 'a[bcd]*dcdcde'i        ADCDCDE y       $&      ADCDCDE
 415 'a[bcd]+dcdcde'i        ADCDCDE n       -       -
 416 '(ab|a)b*c'i    ABC     y       $&-$1   ABC-AB
 417 '((a)(b)c)(d)'i ABCD    y       $1-$2-$3-$4     ABC-A-B-D
 418 '[a-zA-Z_][a-zA-Z0-9_]*'i       ALPHA   y       $&      ALPHA
 419 '^a(bc+|b[eh])g|.h$'i   ABH     y       $&-$1   BH-
 420 '(bc+d$|ef*g.|h?i(j|k))'i       EFFGZ   y       $&-$1-$2        EFFGZ-EFFGZ-
 421 '(bc+d$|ef*g.|h?i(j|k))'i       IJ      y       $&-$1-$2        IJ-IJ-J
 422 '(bc+d$|ef*g.|h?i(j|k))'i       EFFG    n       -       -
 423 '(bc+d$|ef*g.|h?i(j|k))'i       BCDD    n       -       -
 424 '(bc+d$|ef*g.|h?i(j|k))'i       REFFGZ  y       $&-$1-$2        EFFGZ-EFFGZ-
 425 '((((((((((a))))))))))'i        A       y       $10     A
 426 '((((((((((a))))))))))\10'i     AA      y       $&      AA
 427 '((((((((((a))))))))))${bang}'i AA      n       -       -
 428 '((((((((((a))))))))))${bang}'i A!      y       $&      A!
 429 '(((((((((a)))))))))'i  A       y       $&      A
 430 '(?:(?:(?:(?:(?:(?:(?:(?:(?:(a))))))))))'i      A       y       $1      A
 431 '(?:(?:(?:(?:(?:(?:(?:(?:(?:(a|b|c))))))))))'i  C       y       $1      C
 432 'multiple words of text'i       UH-UH   n       -       -
 433 'multiple words'i       MULTIPLE WORDS, YEAH    y       $&      MULTIPLE WORDS
 434 '(.*)c(.*)'i    ABCDE   y       $&-$1-$2        ABCDE-AB-DE
 435 '\((.*), (.*)\)'i       (A, B)  y       ($2, $1)        (B, A)
 436 '[k]'i  AB      n       -       -
 437 'abcd'i ABCD    y       $&-\$&-\\$&     ABCD-\$&-\\ABCD
 438 'a(bc)d'i       ABCD    y       $1-\$1-\\$1     BC-\$1-\\BC
 439 'a[-]?c'i       AC      y       $&      AC
 440 '(abc)\1'i      ABCABC  y       $1      ABC
 441 '([a-c]*)\1'i   ABCABC  y       $1      ABC
 442 a(?!b). abad    y       $&      ad
 443 (?=)a   a       y       $&      a
 444 a(?=d). abad    y       $&      ad
 445 a(?=c|d).       abad    y       $&      ad
 446 a(?:b|c|d)(.)   ace     y       $1      e
 447 a(?:b|c|d)*(.)  ace     y       $1      e
 448 a(?:b|c|d)+?(.) ace     y       $1      e
 449 a(?:b|c|d)+?(.) acdbcdbe        y       $1      d
 450 a(?:b|c|d)+(.)  acdbcdbe        y       $1      e
 451 a(?:b|c|d){2}(.)        acdbcdbe        y       $1      b
 452 a(?:b|c|d){4,5}(.)      acdbcdbe        y       $1      b
 453 a(?:b|c|d){4,5}?(.)     acdbcdbe        y       $1      d
 454 ((foo)|(bar))*  foobar  y       $1-$2-$3        bar-foo-bar
 455 :(?:    -       c       -       Sequence (? incomplete
 456 a(?:b|c|d){6,7}(.)      acdbcdbe        y       $1      e
 457 a(?:b|c|d){6,7}?(.)     acdbcdbe        y       $1      e
 458 a(?:b|c|d){5,6}(.)      acdbcdbe        y       $1      e
 459 a(?:b|c|d){5,6}?(.)     acdbcdbe        y       $1      b
 460 a(?:b|c|d){5,7}(.)      acdbcdbe        y       $1      e
 461 a(?:b|c|d){5,7}?(.)     acdbcdbe        y       $1      b
 462 a(?:b|(c|e){1,2}?|d)+?(.)       ace     y       $1$2    ce
 463 ^(.+)?B AB      y       $1      A
 464 ^([^a-z])|(\^)$ .       y       $1      .
 465 ^[<>]&  <&OUT   y       $&      <&
 466 ^(a\1?){4}$     aaaaaaaaaa      y       $1      aaaa
 467 ^(a\1?){4}$     aaaaaaaaa       n       -       -
 468 ^(a\1?){4}$     aaaaaaaaaaa     n       -       -
 469 ^(a(?(1)\1)){4}$        aaaaaaaaaa      y       $1      aaaa
 470 ^(a(?(1)\1)){4}$        aaaaaaaaa       n       -       -
 471 ^(a(?(1)\1)){4}$        aaaaaaaaaaa     n       -       -
 472 ((a{4})+)       aaaaaaaaa       y       $1      aaaaaaaa
 473 (((aa){2})+)    aaaaaaaaaa      y       $1      aaaaaaaa
 474 (((a{2}){2})+)  aaaaaaaaaa      y       $1      aaaaaaaa
 475 (?:(f)(o)(o)|(b)(a)(r))*        foobar  y       $1:$2:$3:$4:$5:$6       f:o:o:b:a:r
 476 (?<=a)b ab      y       $&      b
 477 (?<=a)b cb      n       -       -
 478 (?<=a)b b       n       -       -
 479 (?<!c)b ab      y       $&      b
 480 (?<!c)b cb      n       -       -
 481 (?<!c)b b       y       -       -
 482 (?<!c)b b       y       $&      b
 483 (?<%)b  -       c       -       Sequence (?<%...) not recognized
 484 (?:..)*a        aba     y       $&      aba
 485 (?:..)*?a       aba     y       $&      a
 486 ^(?:b|a(?=(.)))*\1      abc     y       $&      ab
 487 ^(){3,5}        abc     y       a$1     a
 488 ^(a+)*ax        aax     y       $1      a
 489 ^((a|b)+)*ax    aax     y       $1      a
 490 ^((a|bc)+)*ax   aax     y       $1      a
 491 (a|x)*ab        cab     y       y$1     y
 492 (a)*ab  cab     y       y$1     y
 493 (?:(?i)a)b      ab      y       $&      ab
 494 ((?i)a)b        ab      y       $&:$1   ab:a
 495 (?:(?i)a)b      Ab      y       $&      Ab
 496 ((?i)a)b        Ab      y       $&:$1   Ab:A
 497 (?:(?i)a)b      aB      n       -       -
 498 ((?i)a)b        aB      n       -       -
 499 (?i:a)b ab      y       $&      ab
 500 ((?i:a))b       ab      y       $&:$1   ab:a
 501 (?i:a)b Ab      y       $&      Ab
 502 ((?i:a))b       Ab      y       $&:$1   Ab:A
 503 (?i:a)b aB      n       -       -
 504 ((?i:a))b       aB      n       -       -
 505 '(?:(?-i)a)b'i  ab      y       $&      ab
 506 '((?-i)a)b'i    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      n       -       -
 510 '((?-i)a)b'i    Ab      n       -       -
 511 '(?:(?-i)a)b'i  aB      y       $&      aB
 512 '((?-i)a)b'i    aB      y       $1      a
 513 '(?:(?-i)a)b'i  AB      n       -       -
 514 '((?-i)a)b'i    AB      n       -       -
 515 '(?-i:a)b'i     ab      y       $&      ab
 516 '((?-i:a))b'i   ab      y       $&:$1   ab:a
 517 '(?-i:a)b'i     aB      y       $&      aB
 518 '((?-i:a))b'i   aB      y       $&:$1   aB:a
 519 '(?-i:a)b'i     Ab      n       -       -
 520 '((?-i:a))b'i   Ab      n       -       -
 521 '(?-i:a)b'i     aB      y       $&      aB
 522 '((?-i:a))b'i   aB      y       $1      a
 523 '(?-i:a)b'i     AB      n       -       -
 524 '((?-i:a))b'i   AB      n       -       -
 525 '((?-i:a.))b'i  a\nB    n       -       -
 526 '((?-i:a\N))b'i a\nB    n       -       -
 527 '((?s-i:a.))b'i a\nB    y       $1      a\n
 528 '((?s-i:a\N))b'i        a\nB    n       -       -
 529 '((?s-i:a.))b'i B\nB    n       -       -
 530 '((?s-i:a\N))b'i        B\nB    n       -       -
 531 (?:c|d)(?:)(?:a(?:)(?:b)(?:b(?:))(?:b(?:)(?:b)))        cabbbb  y       $&      cabbbb
 532 (?:c|d)(?:)(?:aaaaaaaa(?:)(?:bbbbbbbb)(?:bbbbbbbb(?:))(?:bbbbbbbb(?:)(?:bbbbbbbb)))     caaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb       y       $&      caaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
 533 '(ab)\d\1'i     Ab4ab   y       $1      Ab
 534 '(ab)\d\1'i     ab4Ab   y       $1      ab
 535 foo\w*\d{4}baz  foobar1234baz   y       $&      foobar1234baz
 536 a(?{})b cabd    y       $&      ab
 537 a(?{f()+        -       c       -       Missing right curly or square bracket
 538 a(?{{1}+        -       c       -       Missing right curly or square bracket
 539 a(?{}})b        -       c       -
 540 a(?{"{"})b      ab      y       -       -
 541 a(?{"\{"})b     cabd    y       $&      ab
 542 a(?{"{"}})b     -       c       -       Sequence (?{...}) not terminated with ')'
 543 a(?{$::bl="\{"}).b      caxbd   t       $::bl   {
 544 x(~~)*(?:(?:F)?)?       x~~     y       -       -
 545 ^a(?#xxx){3}c   aaac    y       $&      aaac
 546 '^a (?#xxx) (?#yyy) {3}c'x      aaac    y       $&      aaac
 547 (?<![cd])b      dbcb    n       -       -
 548 (?<![cd])[ab]   dbaacb  y       $&      a
 549 (?<!(c|d))b     dbcb    n       -       -
 550 (?<!(c|d))[ab]  dbaacb  y       $&      a
 551 (?<!cd)[ab]     cdaccb  y       $&      b
 552 ^(?:a?b?)*$     a--     n       -       -
 553 ((?s)^a(.))((?m)^b$)    a\nb\nc\n       y       $1;$2;$3        a\n;\n;b
 554 ((?m)^b$)       a\nb\nc\n       y       $1      b
 555 (?m)^b  a\nb\n  y       $&      b
 556 (?m)^(b)        a\nb\n  y       $1      b
 557 ((?m)^b)        a\nb\n  y       $1      b
 558 \n((?m)^b)      a\nb\n  y       $1      b
 559 ((?s).)c(?!.)   a\nb\nc\n       y       $1      \n
 560 ((?s).)c(?!.)   a\nb\nc\n       y       $1:$&   \n:\nc
 561 ((?s)b.)c(?!.)  a\nb\nc\n       y       $1      b\n
 562 ((?s)b.)c(?!.)  a\nb\nc\n       y       $1:$&   b\n:b\nc
 563 ((?s)b.)c(?!\N) a\nb\nc\n       y       $1:$&   b\n:b\nc
 564 '(b.)c(?!\N)'s  a\nb\nc\n       y       $1:$&   b\n:b\nc
 565 ^b      a\nb\nc\n       n       -       -
 566 ()^b    a\nb\nc\n       n       -       -
 567 ((?m)^b)        a\nb\nc\n       y       $1      b
 568 (?(1)a|b)       a       n       -       -
 569 (?(1)b|a)       a       y       $&      a
 570 (x)?(?(1)a|b)   a       n       -       -
 571 (x)?(?(1)b|a)   a       y       $&      a
 572 ()?(?(1)b|a)    a       y       $&      a
 573 ()(?(1)b|a)     a       n       -       -
 574 ()?(?(1)a|b)    a       y       $&      a
 575 ^(\()?blah(?(1)(\)))$   (blah)  y       $2      )
 576 ^(\()?blah(?(1)(\)))$   blah    y       ($2)    ()
 577 ^(\()?blah(?(1)(\)))$   blah)   n       -       -
 578 ^(\()?blah(?(1)(\)))$   (blah   n       -       -
 579 ^(\(+)?blah(?(1)(\)))$  (blah)  y       $2      )
 580 ^(\(+)?blah(?(1)(\)))$  blah    y       ($2)    ()
 581 ^(\(+)?blah(?(1)(\)))$  blah)   n       -       -
 582 ^(\(+)?blah(?(1)(\)))$  (blah   n       -       -
 583 (?(1?)a|b)      a       c       -       Switch condition not recognized
 584 (?(1)a|b|c)     a       c       -       Switch (?(condition)... contains too many branches
 585 (?(?{0})a|b)    a       n       -       -
 586 (?(?{0})b|a)    a       y       $&      a
 587 (?(?{1})b|a)    a       n       -       -
 588 (?(?{1})a|b)    a       y       $&      a
 589 (?(?!a)a|b)     a       n       -       -
 590 (?(?!a)b|a)     a       y       $&      a
 591 (?(?=a)b|a)     a       n       -       -
 592 (?(?=a)a|b)     a       y       $&      a
 593 (?=(a+?))(\1ab) aaab    y       $2      aab
 594 ^(?=(a+?))\1ab  aaab    n       -       -
 595 (\w+:)+ one:    y       $1      one:
 596 $(?<=^(a))      a       y       $1      a
 597 (?=(a+?))(\1ab) aaab    y       $2      aab
 598 ^(?=(a+?))\1ab  aaab    n       -       -
 599 ([\w:]+::)?(\w+)$       abcd:   n       -       -
 600 ([\w:]+::)?(\w+)$       abcd    y       $1-$2   -abcd
 601 ([\w:]+::)?(\w+)$       xy:z:::abcd     y       $1-$2   xy:z:::-abcd
 602 ^[^bcd]*(c+)    aexycd  y       $1      c
 603 (a*)b+  caab    y       $1      aa
 604 ([\w:]+::)?(\w+)$       abcd:   n       -       -
 605 ([\w:]+::)?(\w+)$       abcd    y       $1-$2   -abcd
 606 ([\w:]+::)?(\w+)$       xy:z:::abcd     y       $1-$2   xy:z:::-abcd
 607 ^[^bcd]*(c+)    aexycd  y       $1      c
 608 (?{$a=2})a*aa(?{local$a=$a+1})k*c(?{$b=$a})     yaaxxaaaacd     t       $b      3
 609 (?{$a=2})(a(?{local$a=$a+1}))*aak*c(?{$b=$a})   yaaxxaaaacd     t       $b      4
 610 (>a+)ab aaab    n       -       -
 611 (?>a+)b aaab    y       -       -
 612 ([[:]+) a:[b]:  y       $1      :[
 613 ([[=]+) a=[b]=  y       $1      =[
 614 ([[.]+) a.[b].  y       $1      .[
 615 [a[:xyz:        -       c       -       Unmatched [
 616 [a[:xyz:]       -       c       -       POSIX class [:xyz:] unknown
 617 [a[:]b[:c]      abc     y       $&      abc
 618 ([a[:xyz:]b]+)  pbaq    c       -       POSIX class [:xyz:] unknown
 619 [a[:]b[:c]      abc     y       $&      abc
 620 ([[:alpha:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd
 621 ([[:alnum:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy
 622 ([[:ascii:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy__--  ${nulnul}
 623 ([[:cntrl:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ${nulnul}
 624 ([[:digit:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      01
 625 ([[:graph:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy__--
 626 ([[:lower:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      cd
 627 ([[:print:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy__--
 628 ([[:punct:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      __--
 629 ([[:space:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1
 630 ([[:word:]]+)   ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy__
 631 ([[:upper:]]+)  ABcd01Xy__--  ${nulnul}${ffff}  y       $1      AB
 632 ([[:xdigit:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01
 633 ([[:^alpha:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      01
 634 ((?a)[[:^alnum:]]+)     ABcd01Xy__--  ${nulnul}${ffff}  y       $1      __--  ${nulnul}${ffff}
 635 ([[:^ascii:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ${ffff}
 636 ([[:^cntrl:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy__--
 637 ([[:^digit:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd
 638 ([[:^lower:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      AB
 639 ((?a)[[:^print:]]+)     ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ${nulnul}${ffff}
 640 ([[:^punct:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy
 641 ([[:^space:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      ABcd01Xy__--
 642 ((?a)[[:^word:]]+)      ABcd01Xy__--  ${nulnul}${ffff}  y       $1      --  ${nulnul}${ffff}
 643 ([[:^upper:]]+) ABcd01Xy__--  ${nulnul}${ffff}  y       $1      cd01
 644 ([[:^xdigit:]]+)        ABcd01Xy__--  ${nulnul}${ffff}  y       $1      Xy__--  ${nulnul}${ffff}
 645 [[:foo:]]       -       c       -       POSIX class [:foo:] unknown
 646 [[:^foo:]]      -       c       -       POSIX class [:^foo:] unknown
 647 ((?>a+)b)       aaab    y       $1      aaab
 648 (?>(a+))b       aaab    y       $1      aaa
 649 ((?>[^()]+)|\([^()]*\))+        ((abc(ade)ufh()()x      y       $&      abc(ade)ufh()()x
 650 (?<=x+)y        -       c       -       Variable length lookbehind not implemented
 651 a{37,17}        -       c       -       Can't do {n,m} with n > m
 652 a{37,0} -       c       -       Can't do {n,m} with n > m
 653 \Z      a\nb\n  y       $-[0]   3
 654 \z      a\nb\n  y       $-[0]   4
 655 $       a\nb\n  y       $-[0]   3
 656 \Z      b\na\n  y       $-[0]   3
 657 \z      b\na\n  y       $-[0]   4
 658 $       b\na\n  y       $-[0]   3
 659 \Z      b\na    y       $-[0]   3
 660 \z      b\na    y       $-[0]   3
 661 $       b\na    y       $-[0]   3
 662 '\Z'm   a\nb\n  y       $-[0]   3
 663 '\z'm   a\nb\n  y       $-[0]   4
 664 '$'m    a\nb\n  y       $-[0]   1
 665 '\Z'm   b\na\n  y       $-[0]   3
 666 '\z'm   b\na\n  y       $-[0]   4
 667 '$'m    b\na\n  y       $-[0]   1
 668 '\Z'm   b\na    y       $-[0]   3
 669 '\z'm   b\na    y       $-[0]   3
 670 '$'m    b\na    y       $-[0]   1
 671 a\Z     a\nb\n  n       -       -
 672 a\z     a\nb\n  n       -       -
 673 a$      a\nb\n  n       -       -
 674 a\Z     b\na\n  y       $-[0]   2
 675 a\z     b\na\n  n       -       -
 676 a$      b\na\n  y       $-[0]   2
 677 a\Z     b\na    y       $-[0]   2
 678 a\z     b\na    y       $-[0]   2
 679 a$      b\na    y       $-[0]   2
 680 'a\Z'm  a\nb\n  n       -       -
 681 'a\z'm  a\nb\n  n       -       -
 682 'a$'m   a\nb\n  y       $-[0]   0
 683 'a\Z'm  b\na\n  y       $-[0]   2
 684 'a\z'm  b\na\n  n       -       -
 685 'a$'m   b\na\n  y       $-[0]   2
 686 'a\Z'm  b\na    y       $-[0]   2
 687 'a\z'm  b\na    y       $-[0]   2
 688 'a$'m   b\na    y       $-[0]   2
 689 aa\Z    aa\nb\n n       -       -
 690 aa\z    aa\nb\n n       -       -
 691 aa$     aa\nb\n n       -       -
 692 aa\Z    b\naa\n y       $-[0]   2
 693 aa\z    b\naa\n n       -       -
 694 aa$     b\naa\n y       $-[0]   2
 695 aa\Z    b\naa   y       $-[0]   2
 696 aa\z    b\naa   y       $-[0]   2
 697 aa$     b\naa   y       $-[0]   2
 698 'aa\Z'm aa\nb\n n       -       -
 699 'aa\z'm aa\nb\n n       -       -
 700 'aa$'m  aa\nb\n y       $-[0]   0
 701 'aa\Z'm b\naa\n y       $-[0]   2
 702 'aa\z'm b\naa\n n       -       -
 703 'aa$'m  b\naa\n y       $-[0]   2
 704 'aa\Z'm b\naa   y       $-[0]   2
 705 'aa\z'm b\naa   y       $-[0]   2
 706 'aa$'m  b\naa   y       $-[0]   2
 707 aa\Z    ac\nb\n n       -       -
 708 aa\z    ac\nb\n n       -       -
 709 aa$     ac\nb\n n       -       -
 710 aa\Z    b\nac\n n       -       -
 711 aa\z    b\nac\n n       -       -
 712 aa$     b\nac\n n       -       -
 713 aa\Z    b\nac   n       -       -
 714 aa\z    b\nac   n       -       -
 715 aa$     b\nac   n       -       -
 716 'aa\Z'm ac\nb\n n       -       -
 717 'aa\z'm ac\nb\n n       -       -
 718 'aa$'m  ac\nb\n n       -       -
 719 'aa\Z'm b\nac\n n       -       -
 720 'aa\z'm b\nac\n n       -       -
 721 'aa$'m  b\nac\n n       -       -
 722 'aa\Z'm b\nac   n       -       -
 723 'aa\z'm b\nac   n       -       -
 724 'aa$'m  b\nac   n       -       -
 725 aa\Z    ca\nb\n n       -       -
 726 aa\z    ca\nb\n n       -       -
 727 aa$     ca\nb\n n       -       -
 728 aa\Z    b\nca\n n       -       -
 729 aa\z    b\nca\n n       -       -
 730 aa$     b\nca\n n       -       -
 731 aa\Z    b\nca   n       -       -
 732 aa\z    b\nca   n       -       -
 733 aa$     b\nca   n       -       -
 734 'aa\Z'm ca\nb\n n       -       -
 735 'aa\z'm ca\nb\n n       -       -
 736 'aa$'m  ca\nb\n n       -       -
 737 'aa\Z'm b\nca\n n       -       -
 738 'aa\z'm b\nca\n n       -       -
 739 'aa$'m  b\nca\n n       -       -
 740 'aa\Z'm b\nca   n       -       -
 741 'aa\z'm b\nca   n       -       -
 742 'aa$'m  b\nca   n       -       -
 743 ab\Z    ab\nb\n n       -       -
 744 ab\z    ab\nb\n n       -       -
 745 ab$     ab\nb\n n       -       -
 746 ab\Z    b\nab\n y       $-[0]   2
 747 ab\z    b\nab\n n       -       -
 748 ab$     b\nab\n y       $-[0]   2
 749 ab\Z    b\nab   y       $-[0]   2
 750 ab\z    b\nab   y       $-[0]   2
 751 ab$     b\nab   y       $-[0]   2
 752 'ab\Z'm ab\nb\n n       -       -
 753 'ab\z'm ab\nb\n n       -       -
 754 'ab$'m  ab\nb\n y       $-[0]   0
 755 'ab\Z'm b\nab\n y       $-[0]   2
 756 'ab\z'm b\nab\n n       -       -
 757 'ab$'m  b\nab\n y       $-[0]   2
 758 'ab\Z'm b\nab   y       $-[0]   2
 759 'ab\z'm b\nab   y       $-[0]   2
 760 'ab$'m  b\nab   y       $-[0]   2
 761 ab\Z    ac\nb\n n       -       -
 762 ab\z    ac\nb\n n       -       -
 763 ab$     ac\nb\n n       -       -
 764 ab\Z    b\nac\n n       -       -
 765 ab\z    b\nac\n n       -       -
 766 ab$     b\nac\n n       -       -
 767 ab\Z    b\nac   n       -       -
 768 ab\z    b\nac   n       -       -
 769 ab$     b\nac   n       -       -
 770 'ab\Z'm ac\nb\n n       -       -
 771 'ab\z'm ac\nb\n n       -       -
 772 'ab$'m  ac\nb\n n       -       -
 773 'ab\Z'm b\nac\n n       -       -
 774 'ab\z'm b\nac\n n       -       -
 775 'ab$'m  b\nac\n n       -       -
 776 'ab\Z'm b\nac   n       -       -
 777 'ab\z'm b\nac   n       -       -
 778 'ab$'m  b\nac   n       -       -
 779 ab\Z    ca\nb\n n       -       -
 780 ab\z    ca\nb\n n       -       -
 781 ab$     ca\nb\n n       -       -
 782 ab\Z    b\nca\n n       -       -
 783 ab\z    b\nca\n n       -       -
 784 ab$     b\nca\n n       -       -
 785 ab\Z    b\nca   n       -       -
 786 ab\z    b\nca   n       -       -
 787 ab$     b\nca   n       -       -
 788 'ab\Z'm ca\nb\n n       -       -
 789 'ab\z'm ca\nb\n n       -       -
 790 'ab$'m  ca\nb\n n       -       -
 791 'ab\Z'm b\nca\n n       -       -
 792 'ab\z'm b\nca\n n       -       -
 793 'ab$'m  b\nca\n n       -       -
 794 'ab\Z'm b\nca   n       -       -
 795 'ab\z'm b\nca   n       -       -
 796 'ab$'m  b\nca   n       -       -
 797 abb\Z   abb\nb\n        n       -       -
 798 abb\z   abb\nb\n        n       -       -
 799 abb$    abb\nb\n        n       -       -
 800 abb\Z   b\nabb\n        y       $-[0]   2
 801 abb\z   b\nabb\n        n       -       -
 802 abb$    b\nabb\n        y       $-[0]   2
 803 abb\Z   b\nabb  y       $-[0]   2
 804 abb\z   b\nabb  y       $-[0]   2
 805 abb$    b\nabb  y       $-[0]   2
 806 'abb\Z'm        abb\nb\n        n       -       -
 807 'abb\z'm        abb\nb\n        n       -       -
 808 'abb$'m abb\nb\n        y       $-[0]   0
 809 'abb\Z'm        b\nabb\n        y       $-[0]   2
 810 'abb\z'm        b\nabb\n        n       -       -
 811 'abb$'m b\nabb\n        y       $-[0]   2
 812 'abb\Z'm        b\nabb  y       $-[0]   2
 813 'abb\z'm        b\nabb  y       $-[0]   2
 814 'abb$'m b\nabb  y       $-[0]   2
 815 abb\Z   ac\nb\n n       -       -
 816 abb\z   ac\nb\n n       -       -
 817 abb$    ac\nb\n n       -       -
 818 abb\Z   b\nac\n n       -       -
 819 abb\z   b\nac\n n       -       -
 820 abb$    b\nac\n n       -       -
 821 abb\Z   b\nac   n       -       -
 822 abb\z   b\nac   n       -       -
 823 abb$    b\nac   n       -       -
 824 'abb\Z'm        ac\nb\n n       -       -
 825 'abb\z'm        ac\nb\n n       -       -
 826 'abb$'m ac\nb\n n       -       -
 827 'abb\Z'm        b\nac\n n       -       -
 828 'abb\z'm        b\nac\n n       -       -
 829 'abb$'m b\nac\n n       -       -
 830 'abb\Z'm        b\nac   n       -       -
 831 'abb\z'm        b\nac   n       -       -
 832 'abb$'m b\nac   n       -       -
 833 abb\Z   ca\nb\n n       -       -
 834 abb\z   ca\nb\n n       -       -
 835 abb$    ca\nb\n n       -       -
 836 abb\Z   b\nca\n n       -       -
 837 abb\z   b\nca\n n       -       -
 838 abb$    b\nca\n n       -       -
 839 abb\Z   b\nca   n       -       -
 840 abb\z   b\nca   n       -       -
 841 abb$    b\nca   n       -       -
 842 'abb\Z'm        ca\nb\n n       -       -
 843 'abb\z'm        ca\nb\n n       -       -
 844 'abb$'m ca\nb\n n       -       -
 845 'abb\Z'm        b\nca\n n       -       -
 846 'abb\z'm        b\nca\n n       -       -
 847 'abb$'m b\nca\n n       -       -
 848 'abb\Z'm        b\nca   n       -       -
 849 'abb\z'm        b\nca   n       -       -
 850 'abb$'m b\nca   n       -       -
 851 (^|x)(c)        ca      y       $2      c
 852 a*abc?xyz+pqr{3}ab{2,}xy{4,5}pq{0,6}AB{0,}zz    x       n       -       -
 853 a(?{$a=2;$b=3;($b)=$a})b        yabz    t       $b      2
 854 round\(((?>[^()]+))\)   _I(round(xs * sz),1)    y       $1      xs * sz
 855 '((?x:.) )'     x       y       $1-     x -
 856 '((?-x:.) )'x   x       y       $1-     x-
 857 foo.bart        foo.bart        y       -       -
 858 '^d[x][x][x]'m  abcd\ndxxx      y       -       -
 859 .X(.+)+X        bbbbXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa  y       -       -
 860 .X(.+)+XX       bbbbXcXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y       -       -
 861 .XX(.+)+X       bbbbXXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y       -       -
 862 .X(.+)+X        bbbbXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa  n       -       -
 863 .X(.+)+XX       bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n       -       -
 864 .XX(.+)+X       bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n       -       -
 865 .X(.+)+[X]      bbbbXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa  y       -       -
 866 .X(.+)+[X][X]   bbbbXcXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y       -       -
 867 .XX(.+)+[X]     bbbbXXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y       -       -
 868 .X(.+)+[X]      bbbbXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa  n       -       -
 869 .X(.+)+[X][X]   bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n       -       -
 870 .XX(.+)+[X]     bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n       -       -
 871 .[X](.+)+[X]    bbbbXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa  y       -       -
 872 .[X](.+)+[X][X] bbbbXcXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y       -       -
 873 .[X][X](.+)+[X] bbbbXXcXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y       -       -
 874 .[X](.+)+[X]    bbbbXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa  n       -       -
 875 .[X](.+)+[X][X] bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n       -       -
 876 .[X][X](.+)+[X] bbbbXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa n       -       -
 877 tt+$    xxxtt   y       -       -
 878 ([a-\d]+)       za-9z   y       $1      a-9
 879 ([\d-z]+)       a0-za   y       $1      0-z
 880 ([\d-\s]+)      a0- z   y       $1      0-
 881 ([a-[:digit:]]+)        za-9z   y       $1      a-9
 882 ([[:digit:]-z]+)        =0-z=   y       $1      0-z
 883 ([[:digit:]-[:alpha:]]+)        =0-z=   y       $1      0-z
 884 \GX.*X  aaaXbX  n       -       -
 885 (\d+\.\d+)      3.1415926       y       $1      3.1415926
 886 (\ba.{0,10}br)  have a web browser      y       $1      a web br
 887 '\.c(pp|xx|c)?$'i       Changes n       -       -
 888 '\.c(pp|xx|c)?$'i       IO.c    y       -       -
 889 '(\.c(pp|xx|c)?$)'i     IO.c    y       $1      .c
 890 ^([a-z]:)       C:/     n       -       -
 891 '^\S\s+aa$'m    \nx aa  y       -       -
 892 (^|a)b  ab      y       -       -
 893 ^([ab]*?)(b)?(c)$       abac    y       -$2-    --
 894 (\w)?(abc)\1b   abcab   n       -       -
 895 ^(?:.,){2}c     a,b,c   y       -       -
 896 ^(.,){2}c       a,b,c   y       $1      b,
 897 ^(?:[^,]*,){2}c a,b,c   y       -       -
 898 ^([^,]*,){2}c   a,b,c   y       $1      b,
 899 ^([^,]*,){3}d   aaa,b,c,d       y       $1      c,
 900 ^([^,]*,){3,}d  aaa,b,c,d       y       $1      c,
 901 ^([^,]*,){0,3}d aaa,b,c,d       y       $1      c,
 902 ^([^,]{1,3},){3}d       aaa,b,c,d       y       $1      c,
 903 ^([^,]{1,3},){3,}d      aaa,b,c,d       y       $1      c,
 904 ^([^,]{1,3},){0,3}d     aaa,b,c,d       y       $1      c,
 905 ^([^,]{1,},){3}d        aaa,b,c,d       y       $1      c,
 906 ^([^,]{1,},){3,}d       aaa,b,c,d       y       $1      c,
 907 ^([^,]{1,},){0,3}d      aaa,b,c,d       y       $1      c,
 908 ^([^,]{0,3},){3}d       aaa,b,c,d       y       $1      c,
 909 ^([^,]{0,3},){3,}d      aaa,b,c,d       y       $1      c,
 910 ^([^,]{0,3},){0,3}d     aaa,b,c,d       y       $1      c,
 911 (?i)            y       -       -
 912 (?a:((?u)\w)\W) \xC0\xC0        y       $&      \xC0\xC0
 913 '(?!\A)x'm      a\nxb\n y       -       -
 914 ^(a(b)?)+$      aba     y       -$1-$2- -a--
 915 ^(aa(bb)?)+$    aabbaa  y       -$1-$2- -aa--
 916 '^.{9}abc.*\n'm 123\nabcabcabcabc\n     y       -       -
 917 ^(a)?a$ a       y       -$1-    --
 918 ^(a)?(?(1)a|b)+$        a       n       -       -
 919 ^(a\1?)(a\1?)(a\2?)(a\3?)$      aaaaaa  y       $1,$2,$3,$4     a,aa,a,aa
 920 ^(a\1?){4}$     aaaaaa  y       $1      aa
 921 ^(0+)?(?:x(1))? x1      y       -       -
 922 ^([0-9a-fA-F]+)(?:x([0-9a-fA-F]+)?)(?:x([0-9a-fA-F]+))? 012cxx0190      y       -       -
 923 ^(b+?|a){1,2}c  bbbac   y       $1      a
 924 ^(b+?|a){1,2}c  bbbbac  y       $1      a
 925 \((\w\. \w+)\)  cd. (A. Tw)     y       -$1-    -A. Tw-
 926 ((?:aaaa|bbbb)cccc)?    aaaacccc        y       -       -
 927 ((?:aaaa|bbbb)cccc)?    bbbbcccc        y       -       -
 928 (a)?(a)+        a       y       $1:$2   :a      -
 929 (ab)?(ab)+      ab      y       $1:$2   :ab     -
 930 (abc)?(abc)+    abc     y       $1:$2   :abc    -
 931 'b\s^'m a\nb\n  n       -       -
 932 \ba     a       y       -       -
 933 ^(a(??{"(?!)"})|(a)(?{1}))b     ab      y       $2      a       # [ID 20010811.006]
 934 ab(?i)cd        AbCd    n       -       -       # [ID 20010809.023]
 935 ab(?i)cd        abCd    y       -       -
 936 (A|B)*(?(1)(CD)|(CD))   CD      y       $2-$3   -CD
 937 (A|B)*(?(1)(CD)|(CD))   ABCD    y       $2-$3   CD-
 938 (A|B)*?(?(1)(CD)|(CD))  CD      y       $2-$3   -CD     # [ID 20010803.016]
 939 (A|B)*?(?(1)(CD)|(CD))  ABCD    y       $2-$3   CD-
 940 '^(o)(?!.*\1)'i Oo      n       -       -
 941 (.*)\d+\1       abc12bc y       $1      bc
 942 (?m:(foo\s*$))  foo\n bar       y       $1      foo
 943 (.*)c   abcd    y       $1      ab
 944 (.*)(?=c)       abcd    y       $1      ab
 945 (.*)(?=c)c      abcd    yB      $1      ab
 946 (.*)(?=b|c)     abcd    y       $1      ab
 947 (.*)(?=b|c)c    abcd    y       $1      ab
 948 (.*)(?=c|b)     abcd    y       $1      ab
 949 (.*)(?=c|b)c    abcd    y       $1      ab
 950 (.*)(?=[bc])    abcd    y       $1      ab
 951 (.*)(?=[bc])c   abcd    yB      $1      ab
 952 (.*)(?<=b)      abcd    y       $1      ab
 953 (.*)(?<=b)c     abcd    y       $1      ab
 954 (.*)(?<=b|c)    abcd    y       $1      abc
 955 (.*)(?<=b|c)c   abcd    y       $1      ab
 956 (.*)(?<=c|b)    abcd    y       $1      abc
 957 (.*)(?<=c|b)c   abcd    y       $1      ab
 958 (.*)(?<=[bc])   abcd    y       $1      abc
 959 (.*)(?<=[bc])c  abcd    y       $1      ab
 960 (.*?)c  abcd    y       $1      ab
 961 (.*?)(?=c)      abcd    y       $1      ab
 962 (.*?)(?=c)c     abcd    yB      $1      ab
 963 (.*?)(?=b|c)    abcd    y       $1      a
 964 (.*?)(?=b|c)c   abcd    y       $1      ab
 965 (.*?)(?=c|b)    abcd    y       $1      a
 966 (.*?)(?=c|b)c   abcd    y       $1      ab
 967 (.*?)(?=[bc])   abcd    y       $1      a
 968 (.*?)(?=[bc])c  abcd    yB      $1      ab
 969 (.*?)(?<=b)     abcd    y       $1      ab
 970 (.*?)(?<=b)c    abcd    y       $1      ab
 971 (.*?)(?<=b|c)   abcd    y       $1      ab
 972 (.*?)(?<=b|c)c  abcd    y       $1      ab
 973 (.*?)(?<=c|b)   abcd    y       $1      ab
 974 (.*?)(?<=c|b)c  abcd    y       $1      ab
 975 (.*?)(?<=[bc])  abcd    y       $1      ab
 976 (.*?)(?<=[bc])c abcd    y       $1      ab
 977 2(]*)?$\1       2       y       $&      2
 978 (??{})  x       y       -       -
 979 a(b)??  abc     y       <$1>    <>      # undef [perl #16773]
 980 (\d{1,3}\.){3,} 128.134.142.8   y       <$1>    <142.>  # [perl #18019]
 981 ^.{3,4}(.+)\1\z foobarbar       y       $1      bar     # 16 tests for [perl #23171]
 982 ^(?:f|o|b){3,4}(.+)\1\z foobarbar       y       $1      bar
 983 ^.{3,4}((?:b|a|r)+)\1\z foobarbar       y       $1      bar
 984 ^(?:f|o|b){3,4}((?:b|a|r)+)\1\z foobarbar       y       $1      bar
 985 ^.{3,4}(.+?)\1\z        foobarbar       y       $1      bar
 986 ^(?:f|o|b){3,4}(.+?)\1\z        foobarbar       y       $1      bar
 987 ^.{3,4}((?:b|a|r)+?)\1\z        foobarbar       y       $1      bar
 988 ^(?:f|o|b){3,4}((?:b|a|r)+?)\1\z        foobarbar       y       $1      bar
 989 ^.{2,3}?(.+)\1\z        foobarbar       y       $1      bar
 990 ^(?:f|o|b){2,3}?(.+)\1\z        foobarbar       y       $1      bar
 991 ^.{2,3}?((?:b|a|r)+)\1\z        foobarbar       y       $1      bar
 992 ^(?:f|o|b){2,3}?((?:b|a|r)+)\1\z        foobarbar       y       $1      bar
 993 ^.{2,3}?(.+?)\1\z       foobarbar       y       $1      bar
 994 ^(?:f|o|b){2,3}?(.+?)\1\z       foobarbar       y       $1      bar
 995 ^.{2,3}?((?:b|a|r)+?)\1\z       foobarbar       y       $1      bar
 996 ^(?:f|o|b){2,3}?((?:b|a|r)+?)\1\z       foobarbar       y       $1      bar
 997 .*a(?!(b|cd)*e).*f      ......abef      n       -       -       # [perl #23030]
 998 x(?#    x       c       -       Sequence (?#... not terminated
 999 :x(?#:  x       c       -       Sequence (?#... not terminated
1000 (WORDS|WORD)S   WORDS   y       $1      WORD
1001 (X.|WORDS|X.|WORD)S     WORDS   y       $1      WORD
1002 (WORDS|WORLD|WORD)S     WORDS   y       $1      WORD
1003 (X.|WORDS|WORD|Y.)S     WORDS   y       $1      WORD
1004 (foo|fool|x.|money|parted)$     fool    y       $1      fool
1005 (x.|foo|fool|x.|money|parted|y.)$       fool    y       $1      fool
1006 (foo|fool|money|parted)$        fool    y       $1      fool
1007 (foo|fool|x.|money|parted)$     fools   n       -       -
1008 (x.|foo|fool|x.|money|parted|y.)$       fools   n       -       -
1009 (foo|fool|money|parted)$        fools   n       -       -
1010 (a|aa|aaa||aaaa|aaaaa|aaaaaa)(b|c)      aaaaaaaaaaaaaaab        y       $1$2    aaaaaab
1011 (a|aa|aaa||aaaa|aaaaa|aaaaaa)(??{$1&&""})(b|c)  aaaaaaaaaaaaaaab        y       $1$2    aaaaaab
1012 (a|aa|aaa|aaaa|aaaaa|aaaaaa)(??{$1&&"foo"})(b|c)        aaaaaaaaaaaaaaab        n       -       -
1013 ^(a*?)(?!(aa|aaaa)*$)   aaaaaaaaaaaaaaaaaaaa    y       $1      a       # [perl #34195]
1014 ^(a*?)(?!(aa|aaaa)*$)(?=a\z)    aaaaaaaa        y       $1      aaaaaaa
1015 ^(.)\s+.$(?(1)) A B     y       $1      A       # [perl #37688]
1016 (?:r?)*?r|(.{2,4})      abcde   y       $1      abcd
1017 (?!)+?|(.{2,4}) abcde   y       $1      abcd
1018 ^(a*?)(?!(a{6}|a{5})*$) aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y       $+[1]   12      # super-linear cache bug may return 18
1019 ^((?>(?:aa)?b)?)        aab     y       $1      aab
1020 ^((?:aa)*)(?:X+((?:\d+|-)(?:X+(.+))?))?$        aaaaX5  y       $1      aaaa
1021 X(A|B||C|D)Y    XXXYYY  y       $&      XY      # Trie w/ NOTHING
1022 (?i:X([A]|[B]|y[Y]y|[D]|)Y)     XXXYYYB y       $&      XY      # Trie w/ NOTHING
1023 ^([a]{1})*$     aa      y       $1      a
1024 a(?!b(?!c))(..) abababc y       $1      bc      # test nested negatives
1025 a(?!b(?=a))(..) abababc y       $1      bc      # test nested lookaheads
1026 a(?!b(?!c(?!d(?!e))))...(.)     abxabcdxabcde   y       $1      e
1027 X(?!b+(?!(c+)*(?!(c+)*d))).*X   aXbbbbbbbcccccccccccccaaaX      y       -       -
1028 ^(XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P):        ZEQQQQQQQQQQQQQQQQQQP:  y       $1      ZEQQQQQQQQQQQQQQQQQQP
1029 ^(XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P):        ZEQQQX: y       $1      ZEQQQX
1030 ^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P): ZEQQQQQQQQQQQQQQQQQQP:  y       $1      ZEQQQQQQQQQQQQQQQQQQP
1031 ^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P): ZEQQQX: y       $1      ZEQQQX
1032 ^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P|[MKJ]):   ZEQQQQQQQQQQQQQQQQQQP:  y       $1      ZEQQQQQQQQQQQQQQQQQQP
1033 ^([TUV]+|XXXXXXXXXX|YYYYYYYYYY|Z.Q*X|Z[TE]Q*P|[MKJ]):   ZEQQQX: y       $1      ZEQQQX
1034 ^(XXX|YYY|Z.Q*X|Z[TE]Q*P):      ZEQQQQQQQQQQQQQQQQQQP:  y       $1      ZEQQQQQQQQQQQQQQQQQQP
1035 ^(XXX|YYY|Z.Q*X|Z[TE]Q*P):      ZEQQQX: y       $1      ZEQQQX
1036 ^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P):       ZEQQQQQQQQQQQQQQQQQQP:  y       $1      ZEQQQQQQQQQQQQQQQQQQP
1037 ^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P):       ZEQQQX: y       $1      ZEQQQX
1038 ^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P|[MKJ]): ZEQQQQQQQQQQQQQQQQQQP:  y       $1      ZEQQQQQQQQQQQQQQQQQQP
1039 ^([TUV]+|XXX|YYY|Z.Q*X|Z[TE]Q*P|[MKJ]): ZEQQQX: y       $1      ZEQQQX
1040 X(?:ABCF[cC]x*|ABCD|ABCF):(?:DIT|DID|DIM)       XABCFCxxxxxxxxxx:DIM    y       $&      XABCFCxxxxxxxxxx:DIM
1041 (((ABCD|ABCE|ABCF)))(A|B|C[xy]*):       ABCFCxxxxxxxxxx:DIM     y       $&      ABCFCxxxxxxxxxx:
1042 (?=foo) foo     y       pos     0
1043 (?=foo) XfooY   y       pos     1
1044 .*(?=foo)       XfooY   y       pos     1
1045 (?<=foo)        foo     y       pos     3
1046 (?<=foo)        XfooY   y       pos     4
1047 .*(?<=foo)      foo     y       pos     3
1048 .*(?<=foo)      XfooY   y       pos     4
1049 (?<=foo)Y       XfooY   y       pos     5
1050 o(?<=foo)Y      ..XfooY..       y       pos     7
1051 X(?=foo)f       ..XfooY..       y       pos     4
1052 X(?=foo)        ..XfooY..       y       pos     3
1053 X(?<=foo.)[YZ]  ..XfooXY..      y       pos     8
1054 (?=XY*foo)      Xfoo    y       pos     0
1055 ^(?=XY*foo)     Xfoo    y       pos     0
1056 ^(??{"a+"})a    aa      y       $&      aa
1057 ^(?:(??{"a+"})|b)a      aa      y       $&      aa
1058 ^(??{chr 0x100}).$      \x{100}\x{100}  y       $&      \x{100}\x{100}
1059 ^(??{q(\x{100})}).      \x{100}\x{100}  y       $&      \x{100}\x{100}
1060 ^(??{q(.+)})\x{100}     \x{100}\x{100}  y       $&      \x{100}\x{100}
1061 ^(??{q(.)})\x{100}      \x{100}\x{100}  y       $&      \x{100}\x{100}
1062 ^(??{chr 0x100})\xbb    \x{100}\x{bb}   y       $&      \x{100}\x{bb}
1063 ^(.)(??{"(.)(.)"})(.)$  abcd    y       $1-$2   a-d
1064 ^(.)(??{"(bz+|.)(.)"})(.)$      abcd    y       $1-$2   a-d
1065 ^(.)((??{"(.)(cz+)"})|.)        abcd    y       $1-$2   a-b
1066 ^a(?>(??{q(b)}))(??{q(c)})d     abcd    y       -       -
1067 ^x(??{""})+$    x       y       $&      x
1068 ^(<(?:[^<>]+|(?3)|(?1))*>)()(!>!>!>)$   <<!>!>!>><>>!>!>!>      y       $1      <<!>!>!>><>>
1069 ^(<(?:[^<>]+|(?1))*>)$  <<><<<><>>>>    y       $1      <<><<<><>>>>
1070 ((?2)*)([fF]o+) fooFoFoo        y       $1-$2   fooFo-Foo
1071 (<(?:[^<>]+|(?R))*>)    <<><<<><>>>>    y       $1      <<><<<><>>>>
1072 (?<n>foo|bar|baz)       snofooewa       y       $1      foo
1073 (?<n>foo|bar|baz)       snofooewa       yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1074 (?<n>foo|bar|baz)(?<m>[ew]+)    snofooewa       yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1075 (?<n>foo|bar|baz)(?<m>[ew]+)    snofooewa       yM      $+{m}   ew      miniperl cannot load Tie::Hash::NamedCapture
1076 (?<n>foo)|(?<n>bar)|(?<n>baz)   snofooewa       yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1077 (?<n>foo)(??{ $+{n} })  snofooefoofoowaa        yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1078 (?P<n>foo|bar|baz)      snofooewa       y       $1      foo
1079 (?P<n>foo|bar|baz)      snofooewa       yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1080 (?P<n>foo|bar|baz)(?P<m>[ew]+)  snofooewa       yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1081 (?P<n>foo|bar|baz)(?P<m>[ew]+)  snofooewa       yM      $+{m}   ew      miniperl cannot load Tie::Hash::NamedCapture
1082 (?P<n>foo)|(?P<n>bar)|(?P<n>baz)        snofooewa       yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1083 (?P<n>foo)(??{ $+{n} }) snofooefoofoowaa        yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1084 (?P<=n>foo|bar|baz)     snofooewa       c       -       Sequence (?P<=...) not recognized
1085 (?P<!n>foo|bar|baz)     snofooewa       c       -       Sequence (?P<!...) not recognized
1086 (?PX<n>foo|bar|baz)     snofooewa       c       -       Sequence (?PX<...) not recognized
1087 /(?'n'foo|bar|baz)/     snofooewa       y       $1      foo
1088 /(?'n'foo|bar|baz)/     snofooewa       yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1089 /(?'n'foo|bar|baz)(?'m'[ew]+)/  snofooewa       yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1090 /(?'n'foo|bar|baz)(?'m'[ew]+)/  snofooewa       yM      $+{m}   ew      miniperl cannot load Tie::Hash::NamedCapture
1091 /(?'n'foo)|(?'n'bar)|(?<n>baz)/ snobazewa       yM      $+{n}   baz     miniperl cannot load Tie::Hash::NamedCapture
1092 /(?'n'foo)(??{ $+{n} })/        snofooefoofoowaa        yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1093 /(?'n'foo)\k<n>/        ..foofoo..      y       $1      foo
1094 /(?'n'foo)\k<n>/        ..foofoo..      yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1095 /(?<n>foo)\k'n'/        ..foofoo..      y       $1      foo
1096 /(?<n>foo)\k'n'/        ..foofoo..      yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1097 /(?:(?<n>foo)|(?<n>bar))\k<n>/  ..barbar..      yM      $+{n}   bar     miniperl cannot load Tie::Hash::NamedCapture
1098 /^(?'main'<(?:[^<>]+|(?&crap)|(?&main))*>)(?'empty')(?'crap'!>!>!>)$/   <<!>!>!>><>>!>!>!>      yM      $+{main}        <<!>!>!>><>>    miniperl cannot load Tie::Hash::NamedCapture
1099 /^(?'main'<(?:[^<>]+|(?&main))*>)$/     <<><<<><>>>>    y       $1      <<><<<><>>>>
1100 /(?'first'(?&second)*)(?'second'[fF]o+)/        fooFoFoo        yM      $+{first}-$+{second}    fooFo-Foo       miniperl cannot load Tie::Hash::NamedCapture
1101 (?<A>foo)?(?(<A>)bar|nada)      foobar  yM      $+{A}   foo     miniperl cannot load Tie::Hash::NamedCapture
1102 (?<A>foo)?(?(<A>)bar|nada)      foo-barnada     y       $&      nada
1103 (?<A>foo)?(?(1)bar|nada)        foo-barnada     y       $&      nada
1104 (?<A>foo(?(R)bar))?(?1) foofoobar       y       $1      foo
1105 (?<A>foo(?(R)bar))?(?1) foofoobar       y       $&      foofoobar
1106 (x)(?<A>foo(?(R&A)bar))?(?&A)   xfoofoobar      y       $2      foo
1107 (x)(?<A>foo(?(R&A)bar))?(?&A)   xfoofoobar      y       $&      xfoofoobar
1108 (x)(?<A>foo(?(R2)bar))?(?&A)    xfoofoobar      y       $2      foo
1109 (x)(?<A>foo(?(R2)bar))?(?&A)    xfoofoobar      y       $&      xfoofoobar
1110 (?1)(?(DEFINE)(blah))   blah    y       $&      blah
1111 /^(?<PAL>(?<CHAR>.)((?&PAL)|.?)\k<CHAR>)$/      madamimadam     y       $&      madamimadam
1112 /^(?<PAL>(?<CHAR>.)((?&PAL)|.?)\k<CHAR>)$/      madamiamadam    n       -       -
1113 /(a)?((?1))(fox)/       aafox   y       $1-$2-$3        a-a-fox
1114 /(a)*((?1))(fox)/       aafox   y       $1-$2-$3        a-a-fox
1115 /(a)+((?1))(fox)/       aafox   y       $1-$2-$3        a-a-fox
1116 /(a){1,100}((?1))(fox)/ aafox   y       $1-$2-$3        a-a-fox
1117 /(a){0,100}((?1))(fox)/ aafox   y       $1-$2-$3        a-a-fox
1118 /(ab)?((?1))(fox)/      ababfox y       $1-$2-$3        ab-ab-fox
1119 /(ab)*((?1))(fox)/      ababfox y       $1-$2-$3        ab-ab-fox
1120 /(ab)+((?1))(fox)/      ababfox y       $1-$2-$3        ab-ab-fox
1121 /(ab){1,100}((?1))(fox)/        ababfox y       $1-$2-$3        ab-ab-fox
1122 /(ab){0,100}((?1))(fox)/        ababfox y       $1-$2-$3        ab-ab-fox
1123 # possessive captures
1124 a++a    aaaaa   n       -       -
1125 a*+a    aaaaa   n       -       -
1126 a{1,5}+a        aaaaa   n       -       -
1127 a?+a    ab      n       -       -
1128 a++b    aaaaab  y       $&      aaaaab
1129 a*+b    aaaaab  y       $&      aaaaab
1130 a{1,5}+b        aaaaab  y       $&      aaaaab
1131 a?+b    ab      y       $&      ab
1132 fooa++a fooaaaaa        n       -       -
1133 fooa*+a fooaaaaa        n       -       -
1134 fooa{1,5}+a     fooaaaaa        n       -       -
1135 fooa?+a fooab   n       -       -
1136 fooa++b fooaaaaab       y       $&      fooaaaaab
1137 fooa*+b fooaaaaab       y       $&      fooaaaaab
1138 fooa{1,5}+b     fooaaaaab       y       $&      fooaaaaab
1139 fooa?+b fooab   y       $&      fooab
1140 (?:aA)++(?:aA)  aAaAaAaAaA      n       -       aAaAaAaAaA
1141 (aA)++(aA)      aAaAaAaAaA      n       -       aAaAaAaAaA
1142 (aA|bB)++(aA|bB)        aAaAbBaAbB      n       -       aAaAbBaAbB
1143 (?:aA|bB)++(?:aA|bB)    aAbBbBbBaA      n       -       aAbBbBbBaA
1144 (?:aA)*+(?:aA)  aAaAaAaAaA      n       -       aAaAaAaAaA
1145 (aA)*+(aA)      aAaAaAaAaA      n       -       aAaAaAaAaA
1146 (aA|bB)*+(aA|bB)        aAaAbBaAaA      n       -       aAaAbBaAaA
1147 (?:aA|bB)*+(?:aA|bB)    aAaAaAbBaA      n       -       aAaAaAbBaA
1148 (?:aA){1,5}+(?:aA)      aAaAaAaAaA      n       -       aAaAaAaAaA
1149 (aA){1,5}+(aA)  aAaAaAaAaA      n       -       aAaAaAaAaA
1150 (aA|bB){1,5}+(aA|bB)    aAaAbBaAaA      n       -       aAaAbBaAaA
1151 (?:aA|bB){1,5}+(?:aA|bB)        bBbBbBbBbB      n       -       bBbBbBbBbB
1152 (?:aA)?+(?:aA)  aAb     n       -       aAb
1153 (aA)?+(aA)      aAb     n       -       aAb
1154 (aA|bB)?+(aA|bB)        bBb     n       -       bBb
1155 (?:aA|bB)?+(?:aA|bB)    aAb     n       -       aAb
1156 (?:aA)++b       aAaAaAaAaAb     y       $&      aAaAaAaAaAb
1157 (aA)++b aAaAaAaAaAb     y       $&      aAaAaAaAaAb
1158 (aA|bB)++b      aAbBaAaAbBb     y       $&      aAbBaAaAbBb
1159 (?:aA|bB)++b    aAbBbBaAaAb     y       $&      aAbBbBaAaAb
1160 (?:aA)*+b       aAaAaAaAaAb     y       $&      aAaAaAaAaAb
1161 (aA)*+b aAaAaAaAaAb     y       $&      aAaAaAaAaAb
1162 (aA|bB)*+b      bBbBbBbBbBb     y       $&      bBbBbBbBbBb
1163 (?:aA|bB)*+b    bBaAbBbBaAb     y       $&      bBaAbBbBaAb
1164 (?:aA){1,5}+b   aAaAaAaAaAb     y       $&      aAaAaAaAaAb
1165 (aA){1,5}+b     aAaAaAaAaAb     y       $&      aAaAaAaAaAb
1166 (aA|bB){1,5}+b  bBaAbBaAbBb     y       $&      bBaAbBaAbBb
1167 (?:aA|bB){1,5}+b        aAbBaAbBbBb     y       $&      aAbBaAbBbBb
1168 (?:aA)?+b       aAb     y       $&      aAb
1169 (aA)?+b aAb     y       $&      aAb
1170 (aA|bB)?+b      bBb     y       $&      bBb
1171 (?:aA|bB)?+b    bBb     y       $&      bBb
1172 foo(?:aA)++(?:aA)       fooaAaAaAaAaA   n       -       fooaAaAaAaAaA
1173 foo(aA)++(aA)   fooaAaAaAaAaA   n       -       fooaAaAaAaAaA
1174 foo(aA|bB)++(aA|bB)     foobBbBbBaAaA   n       -       foobBbBbBaAaA
1175 foo(?:aA|bB)++(?:aA|bB) fooaAaAaAaAaA   n       -       fooaAaAaAaAaA
1176 foo(?:aA)*+(?:aA)       fooaAaAaAaAaA   n       -       fooaAaAaAaAaA
1177 foo(aA)*+(aA)   fooaAaAaAaAaA   n       -       fooaAaAaAaAaA
1178 foo(aA|bB)*+(aA|bB)     foobBaAbBaAaA   n       -       foobBaAbBaAaA
1179 foo(?:aA|bB)*+(?:aA|bB) fooaAaAbBbBaA   n       -       fooaAaAbBbBaA
1180 foo(?:aA){1,5}+(?:aA)   fooaAaAaAaAaA   n       -       fooaAaAaAaAaA
1181 foo(aA){1,5}+(aA)       fooaAaAaAaAaA   n       -       fooaAaAaAaAaA
1182 foo(aA|bB){1,5}+(aA|bB) fooaAbBbBaAaA   n       -       fooaAbBbBaAaA
1183 foo(?:aA|bB){1,5}+(?:aA|bB)     fooaAbBbBaAbB   n       -       fooaAbBbBaAbB
1184 foo(?:aA)?+(?:aA)       fooaAb  n       -       fooaAb
1185 foo(aA)?+(aA)   fooaAb  n       -       fooaAb
1186 foo(aA|bB)?+(aA|bB)     foobBb  n       -       foobBb
1187 foo(?:aA|bB)?+(?:aA|bB) fooaAb  n       -       fooaAb
1188 foo(?:aA)++b    fooaAaAaAaAaAb  y       $&      fooaAaAaAaAaAb
1189 foo(aA)++b      fooaAaAaAaAaAb  y       $&      fooaAaAaAaAaAb
1190 foo(aA|bB)++b   foobBaAbBaAbBb  y       $&      foobBaAbBaAbBb
1191 foo(?:aA|bB)++b fooaAaAbBaAaAb  y       $&      fooaAaAbBaAaAb
1192 foo(?:aA)*+b    fooaAaAaAaAaAb  y       $&      fooaAaAaAaAaAb
1193 foo(aA)*+b      fooaAaAaAaAaAb  y       $&      fooaAaAaAaAaAb
1194 foo(aA|bB)*+b   foobBbBaAaAaAb  y       $&      foobBbBaAaAaAb
1195 foo(?:aA|bB)*+b foobBaAaAbBaAb  y       $&      foobBaAaAbBaAb
1196 foo(?:aA){1,5}+b        fooaAaAaAaAaAb  y       $&      fooaAaAaAaAaAb
1197 foo(aA){1,5}+b  fooaAaAaAaAaAb  y       $&      fooaAaAaAaAaAb
1198 foo(aA|bB){1,5}+b       foobBaAaAaAaAb  y       $&      foobBaAaAaAaAb
1199 foo(?:aA|bB){1,5}+b     fooaAbBaAbBbBb  y       $&      fooaAbBaAbBbBb
1200 foo(?:aA)?+b    fooaAb  y       $&      fooaAb
1201 foo(aA)?+b      fooaAb  y       $&      fooaAb
1202 foo(aA|bB)?+b   foobBb  y       $&      foobBb
1203 foo(?:aA|bB)?+b foobBb  y       $&      foobBb
1204
1205 ([^()]++|\([^()]*\))+   ((abc(ade)ufh()()x      y       $&      abc(ade)ufh()()x
1206 round\(([^()]++)\)      _I(round(xs * sz),1)    y       $1      xs * sz
1207
1208 (foo[1x]|bar[2x]|baz[3x])+y     foo1bar2baz3y   y       $1      baz3
1209 (foo[1x]|bar[2x]|baz[3x])+y     foo1bar2baz3y   y       $&      foo1bar2baz3y
1210 (foo[1x]|bar[2x]|baz[3x])*y     foo1bar2baz3y   y       $1      baz3
1211 (foo[1x]|bar[2x]|baz[3x])*y     foo1bar2baz3y   y       $&      foo1bar2baz3y
1212
1213 ([yX].|WORDS|[yX].|WORD)S       WORDS   y       $1      WORD
1214 (WORDS|WORLD|WORD)S     WORDS   y       $1      WORD
1215 ([yX].|WORDS|WORD|[xY].)S       WORDS   y       $1      WORD
1216 (foo|fool|[zx].|money|parted)$  fool    y       $1      fool
1217 ([zx].|foo|fool|[zq].|money|parted|[yx].)$      fool    y       $1      fool
1218 (foo|fool|[zx].|money|parted)$  fools   n       -       -
1219 ([zx].|foo|fool|[qx].|money|parted|[py].)$      fools   n       -       -
1220
1221 ([yX].|WORDS|[yX].|WORD)+S      WORDS   y       $1      WORD
1222 (WORDS|WORLD|WORD)+S    WORDS   y       $1      WORD
1223 ([yX].|WORDS|WORD|[xY].)+S      WORDS   y       $1      WORD
1224 (foo|fool|[zx].|money|parted)+$ fool    y       $1      fool
1225 ([zx].|foo|fool|[zq].|money|parted|[yx].)+$     fool    y       $1      fool
1226 (foo|fool|[zx].|money|parted)+$ fools   n       -       -
1227 ([zx].|foo|fool|[qx].|money|parted|[py].)+$     fools   n       -       -
1228
1229 (x|y|z[QW])+(longish|loquatious|excessive|overblown[QW])+       xyzQzWlongishoverblownW y       $1-$2   zW-overblownW
1230 (x|y|z[QW])*(longish|loquatious|excessive|overblown[QW])*       xyzQzWlongishoverblownW y       $1-$2   zW-overblownW
1231 (x|y|z[QW]){1,5}(longish|loquatious|excessive|overblown[QW]){1,5}       xyzQzWlongishoverblownW y       $1-$2   zW-overblownW
1232
1233 (x|y|z[QW])++(longish|loquatious|excessive|overblown[QW])++     xyzQzWlongishoverblownW y       $1-$2   zW-overblownW
1234 (x|y|z[QW])*+(longish|loquatious|excessive|overblown[QW])*+     xyzQzWlongishoverblownW y       $1-$2   zW-overblownW
1235 (x|y|z[QW]){1,5}+(longish|loquatious|excessive|overblown[QW]){1,5}+     xyzQzWlongishoverblownW y       $1-$2   zW-overblownW
1236
1237 a*(?!)  aaaab   n       -       -
1238 a*(*FAIL)       aaaab   n       -       -
1239 a*(*F)  aaaab   n       -       -
1240
1241 (A(A|B(*ACCEPT)|C)D)(E) AB      y       $1      AB
1242 (A(A|B(*ACCEPT)|C)D)(E) ACDE    y       $1$2$3  ACDCE
1243
1244 (a)(?:(?-1)|(?+1))(b)   aab     y       $&-$1-$2        aab-a-b
1245 (a)(?:(?-1)|(?+1))(b)   abb     y       $1-$2   a-b
1246 (a)(?:(?-1)|(?+1))(b)   acb     n       -       -
1247
1248 (foo)(\g-2)     foofoo  y       $1-$2   foo-foo
1249 (foo)(\g-2)(foo)(\g-2)  foofoofoofoo    y       $1-$2-$3-$4     foo-foo-foo-foo
1250 (([abc]+) \g-1)(([abc]+) \g{-1})        abc abccba cba  y       $2-$4   abc-cba
1251 (a)(b)(c)\g1\g2\g3      abcabc  y       $1$2$3  abc
1252
1253 # \k<n> preceded by a literal
1254 /(?'n'foo) \k<n>/       ..foo foo..     y       $1      foo
1255 /(?'n'foo) \k<n>/       ..foo foo..     yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1256 /(?<n>foo) \k'n'/       ..foo foo..     y       $1      foo
1257 /(?<n>foo) \k'n'/       ..foo foo..     yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1258 /(?'a1'foo) \k'a1'/     ..foo foo..     yM      $+{a1}  foo     miniperl cannot load Tie::Hash::NamedCapture
1259 /(?<a1>foo) \k<a1>/     ..foo foo..     yM      $+{a1}  foo     miniperl cannot load Tie::Hash::NamedCapture
1260 /(?'_'foo) \k'_'/       ..foo foo..     yM      $+{_}   foo     miniperl cannot load Tie::Hash::NamedCapture
1261 /(?<_>foo) \k<_>/       ..foo foo..     yM      $+{_}   foo     miniperl cannot load Tie::Hash::NamedCapture
1262 /(?'_0_'foo) \k'_0_'/   ..foo foo..     yM      $+{_0_} foo     miniperl cannot load Tie::Hash::NamedCapture
1263 /(?<_0_>foo) \k<_0_>/   ..foo foo..     yM      $+{_0_} foo     miniperl cannot load Tie::Hash::NamedCapture
1264 /(?'0'foo) bar/ ..foo bar..     c       -       Sequence (?'
1265 /(?<0>foo) bar/ ..foo bar..     c       -       Sequence (?<
1266 /(?'12'foo) bar/        ..foo bar..     c       -       Sequence (?'
1267 /(?<12>foo) bar/        ..foo bar..     c       -       Sequence (?<
1268 /(?'1a'foo) bar/        ..foo bar..     c       -       Sequence (?'
1269 /(?<1a>foo) bar/        ..foo bar..     c       -       Sequence (?<
1270 /(?''foo) bar/  ..foo bar..     c       -       Sequence (?''
1271 /(?<>foo) bar/  ..foo bar..     c       -       Sequence (?<>
1272 /foo \k'n'/     foo foo c       -       Reference to nonexistent named group
1273 /foo \k<n>/     foo foo c       -       Reference to nonexistent named group
1274 /foo \k'a1'/    foo foo c       -       Reference to nonexistent named group
1275 /foo \k<a1>/    foo foo c       -       Reference to nonexistent named group
1276 /foo \k'_'/     foo foo c       -       Reference to nonexistent named group
1277 /foo \k<_>/     foo foo c       -       Reference to nonexistent named group
1278 /foo \k'_0_'/   foo foo c       -       Reference to nonexistent named group
1279 /foo \k<_0_>/   foo foo c       -       Reference to nonexistent named group
1280 /foo \k'0'/     foo foo c       -       Sequence \\k'
1281 /foo \k<0>/     foo foo c       -       Sequence \\k<
1282 /foo \k'12'/    foo foo c       -       Sequence \\k'
1283 /foo \k<12>/    foo foo c       -       Sequence \\k<
1284 /foo \k'1a'/    foo foo c       -       Sequence \\k'
1285 /foo \k<1a>/    foo foo c       -       Sequence \\k<
1286 /foo \k''/      foo foo c       -       Sequence \\k'
1287 /foo \k<>/      foo foo c       -       Sequence \\k<
1288 /(?<as>as) (\w+) \k<as> (\w+)/  as easy as pie  y       $1-$2-$3        as-easy-pie
1289
1290 # \g{...} with a name as the argument
1291 /(?'n'foo) \g{n}/       ..foo foo..     y       $1      foo
1292 /(?'n'foo) \g{n}/       ..foo foo..     yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1293 /(?<n>foo) \g{n}/       ..foo foo..     y       $1      foo
1294 /(?<n>foo) \g{n}/       ..foo foo..     yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1295 /(?<as>as) (\w+) \g{as} (\w+)/  as easy as pie  y       $1-$2-$3        as-easy-pie
1296
1297 # Python style named capture buffer stuff
1298 /(?P<n>foo)(?P=n)/      ..foofoo..      y       $1      foo
1299 /(?P<n>foo)(?P=n)/      ..foofoo..      yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1300 /(?:(?P<n>foo)|(?P<n>bar))(?P=n)/       ..barbar..      yM      $+{n}   bar     miniperl cannot load Tie::Hash::NamedCapture
1301 /^(?P<PAL>(?P<CHAR>.)((?P>PAL)|.?)(?P=CHAR))$/  madamimadam     y       $&      madamimadam
1302 /^(?P<PAL>(?P<CHAR>.)((?P>PAL)|.?)(?P=CHAR))$/  madamiamadam    n       -       -
1303 /(?P<n>foo) (?P=n)/     ..foo foo..     y       $1      foo
1304 /(?P<n>foo) (?P=n)/     ..foo foo..     yM      $+{n}   foo     miniperl cannot load Tie::Hash::NamedCapture
1305 /(?P<as>as) (\w+) (?P=as) (\w+)/        as easy as pie  y       $1-$2-$3        as-easy-pie
1306
1307 #check that non identifiers as names are treated as the appropriate lookaround
1308 (?<=bar>)foo    bar>foo y       $&      foo
1309 (?<!bar>)foo    bar>foo n       -       -
1310 (?<=bar>ABC)foo bar>ABCfoo      y       $&      foo
1311 (?<!bar>ABC)foo bar>ABCfoo      n       -       -
1312 (?<bar>)foo     bar>ABCfoo      y       $&      foo
1313 (?<bar>ABC)foo  bar>ABCfoo      y       $&      ABCfoo
1314
1315 (?<=abcd(?<=(aaaabcd))) ..aaaabcd..     y       $1      aaaabcd
1316 (?=xy(?<=(aaxy)))       ..aaxy..        y       $1      aaxy
1317
1318 X(\w+)(?=\s)|X(\w+)     Xab     y       [$1-$2] [-ab]
1319
1320 #check that branch reset works ok.
1321 (?|(a)) a       y       $1-$+-$^N       a-a-a
1322 (?|a(.)b|d(.(o).)d|i(.)(.)j)(.) d!o!da  y       $1-$2-$3        !o!-o-a
1323 (?|a(.)b|d(.(o).)d|i(.)(.)j)(.) aabc    y       $1-$2-$3        a--c
1324 (?|a(.)b|d(.(o).)d|i(.)(.)j)(.) ixyjp   y       $1-$2-$3        x-y-p
1325 (?|(?|(a)|(b))|(?|(c)|(d)))     a       y       $1      a
1326 (?|(?|(a)|(b))|(?|(c)|(d)))     b       y       $1      b
1327 (?|(?|(a)|(b))|(?|(c)|(d)))     c       y       $1      c
1328 (?|(?|(a)|(b))|(?|(c)|(d)))     d       y       $1      d
1329 (.)(?|(.)(.)x|(.)d)(.)  abcde   y       $1-$2-$3-$4-$5- b-c--e--
1330 (\N)(?|(\N)(\N)x|(\N)d)(\N)     abcde   y       $1-$2-$3-$4-$5- b-c--e--
1331 (?|(?<foo>x))   x       yM      $+{foo} x       miniperl cannot load Tie::Hash::NamedCapture
1332 (?|(?<foo>x)|(?<bar>y)) x       yM      $+{foo} x       miniperl cannot load Tie::Hash::NamedCapture
1333 (?|(?<bar>y)|(?<foo>x)) x       yM      $+{foo} x       miniperl cannot load Tie::Hash::NamedCapture
1334 (?<bar>)(?|(?<foo>x))   x       yM      $+{foo} x       miniperl cannot load Tie::Hash::NamedCapture
1335 # Used to crash, because the last branch was ignored when the parens
1336 # were counted:
1337 (?|(b)|()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()(a))     a       y       $&      a
1338
1339 #Bug #41492
1340 (?(DEFINE)(?<A>(?&B)+)(?<B>a))(?&A)     a       y       $&      a
1341 (?(DEFINE)(?<A>(?&B)+)(?<B>a))(?&A)     aa      y       $&      aa
1342 \x{100}?(??{""})xxx     xxx     y       $&      xxx
1343
1344 foo(\R)bar      foo\r\nbar      y       $1      \r\n
1345 foo(\R)bar      foo\nbar        y       $1      \n
1346 foo(\R)bar      foo\rbar        y       $1      \r
1347
1348 foo(\R+)bar     foo\r\n\x{85}\r\n\nbar  y       $1      \r\n\x{85}\r\n\n
1349 (\V+)(\R)       foo\r\n\x{85}\r\n\nbar  y       $1-$2   foo-\r\n
1350 (\R+)(\V)       foo\r\n\x{85}\r\n\nbar  y       $1-$2   \r\n\x{85}\r\n\n-b
1351 foo(\R)bar      foo\x{85}bar    y       $1      \x{85}
1352 (\V)(\R)        foo\x{85}bar    y       $1-$2   o-\x{85}
1353 (\R)(\V)        foo\x{85}bar    y       $1-$2   \x{85}-b
1354 foo(\R)bar      foo\r\nbar      y       $1      \r\n
1355 (\V)(\R)        foo\r\nbar      y       $1-$2   o-\r\n
1356 (\R)(\V)        foo\r\nbar      y       $1-$2   \r\n-b
1357 foo(\R)bar      foo\r\nbar      y       $1      \r\n
1358 (\V)(\R)        foo\r\nbar      y       $1-$2   o-\r\n
1359 (\R)(\V)        foo\r\nbar      y       $1-$2   \r\n-b
1360 foo(\R)bar      foo\rbar        y       $1      \r
1361 (\V)(\R)        foo\rbar        y       $1-$2   o-\r
1362 (\R)(\V)        foo\rbar        y       $1-$2   \r-b
1363
1364 foo(\v+)bar     foo\r\n\x{85}\r\n\nbar  y       $1      \r\n\x{85}\r\n\n
1365 (\V+)(\v)       foo\r\n\x{85}\r\n\nbar  y       $1-$2   foo-\r
1366 (\v+)(\V)       foo\r\n\x{85}\r\n\nbar  y       $1-$2   \r\n\x{85}\r\n\n-b
1367 foo(\v)bar      foo\x{85}bar    y       $1      \x{85}
1368 (\V)(\v)        foo\x{85}bar    y       $1-$2   o-\x{85}
1369 (\v)(\V)        foo\x{85}bar    y       $1-$2   \x{85}-b
1370 foo(\v)bar      foo\rbar        y       $1      \r
1371 (\V)(\v)        foo\rbar        y       $1-$2   o-\r
1372 (\v)(\V)        foo\rbar        y       $1-$2   \r-b
1373
1374
1375 foo(\h+)bar     foo\t\x{A0}bar  y       $1      \t\x{A0}
1376 (\H+)(\h)       foo\t\x{A0}bar  y       $1-$2   foo-\t
1377 (\h+)(\H)       foo\t\x{A0}bar  y       $1-$2   \t\x{A0}-b
1378 foo(\h)bar      foo\x{A0}bar    y       $1      \x{A0}
1379 (\H)(\h)        foo\x{A0}bar    y       $1-$2   o-\x{A0}
1380 (\h)(\H)        foo\x{A0}bar    y       $1-$2   \x{A0}-b
1381 foo(\h)bar      foo\tbar        y       $1      \t
1382 (\H)(\h)        foo\tbar        y       $1-$2   o-\t
1383 (\h)(\H)        foo\tbar        y       $1-$2   \t-b
1384
1385 .*\z    foo\n   y       -$&-    --
1386 \N*\z   foo\n   y       -$&-    --
1387 .*\Z    foo\n   y       -$&-    -foo-
1388 \N*\Z   foo\n   y       -$&-    -foo-
1389 ^(?:(\d)x)?\d$  1       y       ${\(defined($1)?1:0)}   0
1390 .*?(?:(\w)|(\w))x       abx     y       $1-$2   b-
1391
1392 0{50}   000000000000000000000000000000000000000000000000000     y       -       -
1393 ^a?(?=b)b       ab      y       $&      ab      # Bug #56690
1394 ^a*(?=b)b       ab      y       $&      ab      # Bug #56690
1395 />\d+$ \n/ix    >10\n   y       $&      >10
1396 />\d+$ \n/ix    >1\n    y       $&      >1
1397 /\d+$ \n/ix     >10\n   y       $&      10
1398 />\d\d$ \n/ix   >10\n   y       $&      >10
1399 />\d+$ \n/x     >10\n   y       $&      >10
1400
1401 # Two regressions in 5.8.x (only) introduced by change 30638
1402 # Simplification of the test failure in XML::LibXML::Simple:
1403 /^\s*i.*?o\s*$/s        io\n io y       -       -
1404 # As reported in #59168 by Father Chrysostomos:
1405 /(.*?)a(?!(a+)b\2c)/    baaabaac        y       $&-$1   baa-ba
1406 # [perl #60344] Regex lookbehind failure after an (if)then|else in perl 5.10
1407 /\A(?(?=db2)db2|\D+)(?<!processed)\.csv\z/xms   sql_processed.csv       n       -       -
1408 /\N{U+0100}/    \x{100} y       $&      \x{100} # Bug #59328
1409 /[a\N{U+0100}]/ \x{100} y       $&      \x{100}
1410 /[a\N{U+0100}]/ a       y       $&      a
1411
1412 # Verify that \N{U+...} forces Unicode semantics
1413 /\N{U+41}\x{c1}/i       a\x{e1} y       $&      a\x{e1}
1414 /[\N{U+41}\x{c1}]/i     \x{e1}  y       $&      \x{e1}
1415
1416 [\s][\S]        \x{a0}\x{a0}    n       -       -       # Unicode complements should not match same character
1417
1418 # was generating malformed utf8
1419 '[\x{100}\xff]'i        \x{ff}  y       $&      \x{ff}
1420
1421 ((??{ "(?:|)" }))\s     C\x20   y       -       -
1422
1423 # Verify that \ escapes the { after \N, and causes \N to match non-newline
1424 abc\N\{U+BEEF}  abc\n{UBEEF}    n
1425 abc\N\{U+BEEF}  abc.{UBEEF}     y       $&      abc.{UBEEF}
1426 [abc\N\{U+BEEF}]        -       c       -       \\N in a character class must be a named character
1427
1428 # Verify that \N can be trailing and causes \N to match non-newline
1429 abc\N   abcd    y       $&      abcd
1430 abc\N   abc\n   n
1431
1432 # Verify get errors.  For these, we need // or else puts it in single quotes,
1433 # and bypasses the lexer.
1434 /\N{U+}/        -       c       -       Invalid hexadecimal number
1435 # Below currently gives a misleading message
1436 /[\N{U+}]/      -       c       -       Unmatched
1437 /abc\N{def/     -       c       -       Missing right brace
1438 /\N{U+4AG3}/    -       c       -       Illegal hexadecimal digit
1439 /[\N{U+4AG3}]/  -       c       -       Illegal hexadecimal digit
1440
1441 # And verify that in single quotes which bypasses the lexer, the regex compiler
1442 # figures it out.
1443 \N{U+}  -       c       -       Invalid hexadecimal number
1444 [\N{U+}]        -       c       -       Invalid hexadecimal number
1445 \N{U+4AG3}      -       c       -       Illegal hexadecimal digit
1446 [\N{U+4AG3}]    -       c       -       Invalid hexadecimal number
1447 abc\N{def       -       c       -       \\N{NAME} must be resolved by the lexer
1448
1449 # Verify that under /x that still cant have space before left brace
1450 /abc\N {U+41}/x -       c       -       Missing braces
1451 /abc\N {SPACE}/x        -       c       -       Missing braces
1452
1453 # Verifies catches hex errors, and doesn't expose our . notation to the outside
1454 /\N{U+0xBEEF}/  -       c       -       Illegal hexadecimal digit
1455 /\N{U+BEEF.BEAD}/       -       c       -       Illegal hexadecimal digit
1456
1457 # Verify works in single quotish context; regex compiler delivers slightly different msg
1458 # \N{U+BEEF.BEAD} succeeds here, because can't completely hide it from the outside.
1459 \N{U+0xBEEF}    -       c       -       Illegal hexadecimal digit
1460 \c`     -       c       -       \"\\c`\" is more clearly written simply as \"\\ \"
1461 \c1     -       c       -       \"\\c1\" is more clearly written simply as \"q\"
1462 \cA     \001    y       $&      \1
1463
1464 \400    \x{100} y       $&      \x{100}
1465 \600    \x{180} y       $&      \x{180}
1466 \777    \x{1FF} y       $&      \x{1FF}
1467 [a\400] \x{100} y       $&      \x{100}
1468 [b\600] \x{180} y       $&      \x{180}
1469 [c\777] \x{1FF} y       $&      \x{1FF}
1470 \o{120} \x{50}  y       $&      \x{50}
1471 \o{400} \x{100} y       $&      \x{100}
1472 \o{1000}        \x{200} y       $&      \x{200}
1473 [a\o{120}]      \x{50}  y       $&      \x{50}
1474 [a\o{400}]      \x{100} y       $&      \x{100}
1475 [a\o{1000}]     \x{200} y       $&      \x{200}
1476
1477 # The below was inserting a NULL into the character class.
1478 [\8\9]  \000    n       -       -
1479 [\8\9]  8       y       $&      8
1480 [\8\9]  9       y       $&      9
1481
1482 # Verify that reads 1-3 octal digits, and that \_ works in char class
1483 [\0]    \000    y       $&      \000
1484 [\07]   \007    y       $&      \007
1485 [\07]   7\000   n       -       -
1486 [\006]  \006    y       $&      \006
1487 [\006]  6\000   n       -       -
1488 [\0005] \0005   y       $&      \000
1489 [\0005] 5\000   y       $&      5
1490 [\_]    _       y       $&      _
1491
1492 # RT #79152
1493 (q1|.)*(q2|.)*(x(a|bc)*y){2,}   xayxay  y       $&      xayxay
1494 (q1|.)*(q2|.)*(x(a|bc)*y){2,3}  xayxay  y       $&      xayxay
1495 (q1|z)*(q2|z)*z{15}-.*?(x(a|bc)*y){2,3}Z        zzzzzzzzzzzzzzzz-xayxayxayxayZ  y       $&      zzzzzzzzzzzzzzzz-xayxayxayxayZ
1496
1497 (?:(?:)foo|bar|zot|rt78356)     foo     y       $&      foo
1498 /\xe0\pL/i      \xc0a   y       $&      \xc0a
1499
1500 # RT #85528
1501 (?{})[\x{100}]  \x{100} y       $&      \x{100}
1502
1503 # RT #85964
1504 ^m?(\S)(.*)\1$  aba     y       $1      a
1505 ^m?(\S)(.*)\1$  \tb\t   n       -       -
1506 ^m?(\s)(.*)\1$  \tb\t   y       $1      \t
1507 ^m?(\s)(.*)\1$  aba     n       -       -
1508 ^m?(\W)(.*)\1$  :b:     y       $1      :
1509 ^m?(\W)(.*)\1$  aba     n       -       -
1510 ^m?(\w)(.*)\1$  aba     y       $1      a
1511 ^m?(\w)(.*)\1$  :b:     n       -       -
1512 ^m?(\D)(.*)\1$  aba     y       $1      a
1513 ^m?(\D)(.*)\1$  5b5     n       -       -
1514 ^m?(\d)(.*)\1$  5b5     y       $1      5
1515 ^m?(\d)(.*)\1$  aba     n       -       -
1516
1517 # 17F is 'Long s';  This makes sure the a's in /aa can be separate
1518 /s/ai   \x{17F} y       $&      \x{17F}
1519 /s/aia  \x{17F} n       -       -
1520 /s/aia  S       y       $&      S
1521 /(?aia:s)/      \x{17F} n       -       -
1522 /(?aia:s)/      S       y       $&      S
1523
1524 # Normally 1E9E generates a multi-char fold, but not in inverted class;
1525 # See [perl #89750].  This makes sure that the simple fold gets generated
1526 # in that case, to DF.
1527 /[^\x{1E9E}]/i  \x{DF}  n       -       -
1528
1529 # RT #96354
1530 /^.*\d\H/       X1      n       -       -
1531 /^.*\d\V/       X1      n       -       -
1532
1533 # \p{L_} was being misinterpreted as \p{L}.  L_ matches cased letters, which
1534 # the ideograph below isn't, whereas it does match L
1535 /^\p{L_}/       \x{3400}        n       -       -
1536 /^\p{L}/        \x{3400}        y       $&      \x{3400}
1537
1538 # RT #89774
1539 /[s\xDF]/ui     \xDFs   ybT     $&      \xDFs
1540
1541 # RT #99928
1542 /^\R\x0A$/      \x0D\x0A        n       -       -
1543
1544 /ff/i   \x{FB00}\x{FB01}        y       $&      \x{FB00}
1545 /ff/i   \x{FB01}\x{FB00}        y       $&      \x{FB00}
1546 /fi/i   \x{FB01}\x{FB00}        y       $&      \x{FB01}
1547 /fi/i   \x{FB00}\x{FB01}        y       $&      \x{FB01}
1548 #
1549 # Make sure we don't see code blocks where there aren't, and vice-versa
1550 (?#( (?{1+)a    a       y       -       -
1551 'a# (?{1+'x     a       y       -       -
1552 ab[(?{1]        ab1     y       -       -
1553 ab[(?{1\](?{2]  ab2     y       -       -
1554 ab(?{"["})cd    abcd    y       -       -
1555 ab\[(?{1})c     ab[c    y       -       -
1556
1557 # These test that doesn't cut-off matching too soon in the string for
1558 # multi-char folds
1559 /ffiffl/i       abcdef\x{FB03}\x{FB04}  y       $&      \x{FB03}\x{FB04}
1560 /\xdf\xdf/ui    abcdefssss      y       $&      ssss
1561
1562 /st/i   \x{DF}\x{FB05}  y       $&      \x{FB05}
1563 /ssst/i \x{DF}\x{FB05}  y       $&      \x{DF}\x{FB05}
1564
1565 # [perl #101970]
1566 /[[:lower:]]/i  \x{100} y       $&      \x{100}
1567 /[[:upper:]]/i  \x{101} y       $&      \x{101}
1568
1569 # Was matching 'ss' only and failing the entire match, not seeing the
1570 # alternative that would succeed
1571 /s\xDF/ui       \xDFs   y       $&      \xDFs
1572 /sst/ui s\N{LATIN SMALL LIGATURE ST}    y       $&      s\N{LATIN SMALL LIGATURE ST}
1573 /sst/ui s\N{LATIN SMALL LIGATURE LONG S T}      y       $&      s\N{LATIN SMALL LIGATURE LONG S T}
1574
1575 # /i properties shouldn't match more than the property itself
1576 /[[:ascii:]]/i  \N{KELVIN SIGN} n       -       -
1577
1578 # [[:lower:]]/i and [[:upper:]]/i should match what \p{Lower} and \p{Upper} do.
1579 # which is \p{Cased}, not \p{Alpha},
1580 /[[:lower:]]/i  \N{U+3400}      n       -       -
1581 /[[:upper:]]/i  \N{U+01BB}      n       -       -
1582
1583 # [perl #110648]
1584 [^\p{Alphabetic}]       \x{100} n       -       -
1585
1586 # [perl #111400].  Tests the first Y/N boundary above 255 for each of these.
1587 /[[:alnum:]]/   \x{2c1} y       -       -
1588 /[[:alnum:]]/   \x{2c2} n       -       -
1589 /[[:alpha:]]/   \x{2c1} y       -       -
1590 /[[:alpha:]]/   \x{2c2} n       -       -
1591 /[[:graph:]]/   \x{377} y       -       -
1592 /[[:graph:]]/   \x{378} n       -       -
1593 /[[:lower:]]/   \x{100} n       -       -
1594 /[[:lower:]]/   \x{101} y       -       -
1595 /[[:lower:]]/   \x{102} n       -       -
1596 /[[:print:]]/   \x{377} y       -       -
1597 /[[:print:]]/   \x{378} n       -       -
1598 /[[:punct:]]/   \x{37D} n       -       -
1599 /[[:punct:]]/   \x{37E} y       -       -
1600 /[[:punct:]]/   \x{388} n       -       -
1601 /[[:upper:]]/   \x{100} y       -       -
1602 /[[:upper:]]/   \x{101} n       -       -
1603 /[[:word:]]/    \x{2c1} y       -       -
1604 /[[:word:]]/    \x{2c2} n       -       -
1605
1606 # [perl #113400]
1607 /syntax OK\s+\z/si      t/bin/good.pl syntax OK\n       y       -       -
1608
1609 /^(.*?)\s*\|\s*(?:\/\s*|)'(.+)'$/       text|'sec'      y       <$1><$2>        <text><sec>
1610 /^(foo|)bar$/   bar     y       <$&>    <bar>
1611 /^(foo||baz)bar$/       bar     y       <$&>    <bar>
1612 /^(foo||baz)bar$/       bazbar  y       <$1>    <baz>
1613 /^(foo||baz)bar$/       foobar  y       <$1>    <foo>
1614
1615 /^(?:foo|)bar$/ bar     y       <$&>    <bar>
1616 /^(?:foo||baz)bar$/     bar     y       <$&>    <bar>
1617 /^(?:foo||baz)bar$/     bazbar  y       <$&>    <bazbar>
1618 /^(?:foo||baz)bar$/     foobar  y       <$&>    <foobar>
1619
1620 /^(?i:foo|)bar$/        bar     y       <$&>    <bar>
1621 /^(?i:foo||baz)bar$/    bar     y       <$&>    <bar>
1622 /^(?i:foo||baz)bar$/    bazbar  y       <$&>    <bazbar>
1623 /^(?i:foo||baz)bar$/    foobar  y       <$&>    <foobar>
1624
1625 # vim: softtabstop=0 noexpandtab