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