specify type of bracket in "Unmatched bracket" diagnostic;
[p5sagit/p5-mst-13.2.git] / t / op / re_tests
index ce4c5a5..5abe217 100644 (file)
@@ -8,6 +8,8 @@ ab*c    abc     y       $&      abc
 ab*bc  abc     y       $&      abc
 ab*bc  abbc    y       $&      abbc
 ab*bc  abbbbc  y       $&      abbbbc
+.{1}   abbbbc  y       $&      a
+.{3,4} abbbbc  y       $&      abbb
 ab{0,}bc       abbbbc  y       $&      abbbbc
 ab+bc  abbc    y       $&      abbc
 ab+bc  abc     n       -       -
@@ -29,6 +31,7 @@ ab{0,1}c      abc     y       $&      abc
 ^abc   abcc    y       $&      abc
 ^abc$  aabc    n       -       -
 abc$   aabc    y       $&      abc
+abc$   aabcd   n       -       -
 ^      abc     y       $&      
 $      abc     y       $&      
 a.c    abc     y       $&      abc
@@ -148,8 +151,8 @@ a[bcd]+dcdcde       adcdcde n       -       -
 (bc+d$|ef*g.|h?i(j|k)) reffgz  y       $&-$1-$2        effgz-effgz-
 ((((((((((a))))))))))  a       y       $10     a
 ((((((((((a))))))))))\10       aa      y       $&      aa
-((((((((((a))))))))))\41       aa      n       -       -
-((((((((((a))))))))))\41       a!      y       $&      a!
+((((((((((a))))))))))${bang}   aa      n       -       -
+((((((((((a))))))))))${bang}   a!      y       $&      a!
 (((((((((a)))))))))    a       y       $&      a
 multiple words of text uh-uh   n       -       -
 multiple words multiple words, yeah    y       $&      multiple words
@@ -161,6 +164,16 @@ a(bc)d     abcd    y       $1-\$1-\\$1     bc-$1-\bc
 a[-]?c ac      y       $&      ac
 (abc)\1        abcabc  y       $1      abc
 ([a-c]*)\1     abcabc  y       $1      abc
+\1     -       c       -       /\1/: reference to nonexistent group
+\2     -       c       -       /\2/: reference to nonexistent group
+(a)|\1 a       y       -       -
+(a)|\1 x       n       -       -
+(a)|\2 -       c       -       /(a)|\2/: reference to nonexistent group
+(([a-c])b*?\2)*        ababbbcbc       y       $&-$1-$2        ababb-bb-b
+(([a-c])b*?\2){3}      ababbbcbc       y       $&-$1-$2        ababbbcbc-cbc-c
+((\3|b)\2(a)x)+        aaxabxbaxbbx    n       -       -
+((\3|b)\2(a)x)+        aaaxabaxbaaxbbax        y       $&-$1-$2-$3     bbax-bbax-b-a
+((\3|b)\2(a)){2,}      bbaababbabaaaaabbaaaabba        y       $&-$1-$2-$3     bbaaaabba-bba-b-a
 'abc'i ABC     y       $&      ABC
 'abc'i XBC     n       -       -
 'abc'i AXC     n       -       -
@@ -278,8 +291,8 @@ a[-]?c      ac      y       $&      ac
 '(bc+d$|ef*g.|h?i(j|k))'i      REFFGZ  y       $&-$1-$2        EFFGZ-EFFGZ-
 '((((((((((a))))))))))'i       A       y       $10     A
 '((((((((((a))))))))))\10'i    AA      y       $&      AA
-'((((((((((a))))))))))\41'i    AA      n       -       -
-'((((((((((a))))))))))\41'i    A!      y       $&      A!
+'((((((((((a))))))))))${bang}'i        AA      n       -       -
+'((((((((((a))))))))))${bang}'i        A!      y       $&      A!
 '(((((((((a)))))))))'i A       y       $&      A
 '(?:(?:(?:(?:(?:(?:(?:(?:(?:(a))))))))))'i     A       y       $1      A
 '(?:(?:(?:(?:(?:(?:(?:(?:(?:(a|b|c))))))))))'i C       y       $1      C
@@ -299,10 +312,183 @@ a(?=c|d).        abad    y       $&      ad
 a(?:b|c|d)(.)  ace     y       $1      e
 a(?:b|c|d)*(.) ace     y       $1      e
 a(?:b|c|d)+?(.)        ace     y       $1      e
+a(?:b|c|d)+?(.)        acdbcdbe        y       $1      d
+a(?:b|c|d)+(.) acdbcdbe        y       $1      e
+a(?:b|c|d){2}(.)       acdbcdbe        y       $1      b
+a(?:b|c|d){4,5}(.)     acdbcdbe        y       $1      b
+a(?:b|c|d){4,5}?(.)    acdbcdbe        y       $1      d
+((foo)|(bar))* foobar  y       $1-$2-$3        bar-foo-bar
+:(?:   -       c       -       /(?/: Sequence (? incomplete
+a(?:b|c|d){6,7}(.)     acdbcdbe        y       $1      e
+a(?:b|c|d){6,7}?(.)    acdbcdbe        y       $1      e
+a(?:b|c|d){5,6}(.)     acdbcdbe        y       $1      e
+a(?:b|c|d){5,6}?(.)    acdbcdbe        y       $1      b
+a(?:b|c|d){5,7}(.)     acdbcdbe        y       $1      e
+a(?:b|c|d){5,7}?(.)    acdbcdbe        y       $1      b
 a(?:b|(c|e){1,2}?|d)+?(.)      ace     y       $1$2    ce
 ^(.+)?B        AB      y       $1      A
-'([a-z]+)\s\1'i        Aa aa   y       $&-$1   Aa aa-Aa
-'([a-z]+)\s\1'i        Ab ab   y       $&-$1   Ab ab-Ab
+^([^a-z])|(\^)$        .       y       $1      .
+^[<>]& <&OUT   y       $&      <&
+^(a\1?){4}$    aaaaaaaaaa      y       $1      aaaa
+^(a\1?){4}$    aaaaaaaaa       n       -       -
+^(a\1?){4}$    aaaaaaaaaaa     n       -       -
+^(a(?(1)\1)){4}$       aaaaaaaaaa      y       $1      aaaa
+^(a(?(1)\1)){4}$       aaaaaaaaa       n       -       -
+^(a(?(1)\1)){4}$       aaaaaaaaaaa     n       -       -
+((a{4})+)      aaaaaaaaa       y       $1      aaaaaaaa
+(((aa){2})+)   aaaaaaaaaa      y       $1      aaaaaaaa
+(((a{2}){2})+) aaaaaaaaaa      y       $1      aaaaaaaa
+(?:(f)(o)(o)|(b)(a)(r))*       foobar  y       $1:$2:$3:$4:$5:$6       f:o:o:b:a:r
+(?<=a)b        ab      y       $&      b
+(?<=a)b        cb      n       -       -
+(?<=a)b        b       n       -       -
+(?<!c)b        ab      y       $&      b
+(?<!c)b        cb      n       -       -
+(?<!c)b        b       y       -       -
+(?<!c)b        b       y       $&      b
+(?<%)b -       c       -       /(?<%)b/: Sequence (?%...) not recognized
+(?:..)*a       aba     y       $&      aba
+(?:..)*?a      aba     y       $&      a
+^(?:b|a(?=(.)))*\1     abc     y       $&      ab
+^(){3,5}       abc     y       a$1     a
+^(a+)*ax       aax     y       $1      a
+^((a|b)+)*ax   aax     y       $1      a
+^((a|bc)+)*ax  aax     y       $1      a
+(a|x)*ab       cab     y       y$1     y
+(a)*ab cab     y       y$1     y
+(?:(?i)a)b     ab      y       $&      ab
+((?i)a)b       ab      y       $&:$1   ab:a
+(?:(?i)a)b     Ab      y       $&      Ab
+((?i)a)b       Ab      y       $&:$1   Ab:A
+(?:(?i)a)b     aB      n       -       -
+((?i)a)b       aB      n       -       -
+(?i:a)b        ab      y       $&      ab
+((?i:a))b      ab      y       $&:$1   ab:a
+(?i:a)b        Ab      y       $&      Ab
+((?i:a))b      Ab      y       $&:$1   Ab:A
+(?i:a)b        aB      n       -       -
+((?i:a))b      aB      n       -       -
+'(?:(?-i)a)b'i ab      y       $&      ab
+'((?-i)a)b'i   ab      y       $&:$1   ab:a
+'(?:(?-i)a)b'i aB      y       $&      aB
+'((?-i)a)b'i   aB      y       $&:$1   aB:a
+'(?:(?-i)a)b'i Ab      n       -       -
+'((?-i)a)b'i   Ab      n       -       -
+'(?:(?-i)a)b'i aB      y       $&      aB
+'((?-i)a)b'i   aB      y       $1      a
+'(?:(?-i)a)b'i AB      n       -       -
+'((?-i)a)b'i   AB      n       -       -
+'(?-i:a)b'i    ab      y       $&      ab
+'((?-i:a))b'i  ab      y       $&:$1   ab:a
+'(?-i:a)b'i    aB      y       $&      aB
+'((?-i:a))b'i  aB      y       $&:$1   aB:a
+'(?-i:a)b'i    Ab      n       -       -
+'((?-i:a))b'i  Ab      n       -       -
+'(?-i:a)b'i    aB      y       $&      aB
+'((?-i:a))b'i  aB      y       $1      a
+'(?-i:a)b'i    AB      n       -       -
+'((?-i:a))b'i  AB      n       -       -
+'((?-i:a.))b'i a\nB    n       -       -
+'((?s-i:a.))b'i        a\nB    y       $1      a\n
+'((?s-i:a.))b'i        B\nB    n       -       -
+(?:c|d)(?:)(?:a(?:)(?:b)(?:b(?:))(?:b(?:)(?:b)))       cabbbb  y       $&      cabbbb
+(?:c|d)(?:)(?:aaaaaaaa(?:)(?:bbbbbbbb)(?:bbbbbbbb(?:))(?:bbbbbbbb(?:)(?:bbbbbbbb)))    caaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb       y       $&      caaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
+'(ab)\d\1'i    Ab4ab   y       $1      Ab
+'(ab)\d\1'i    ab4Ab   y       $1      ab
 foo\w*\d{4}baz foobar1234baz   y       $&      foobar1234baz
-((foo)|(bar))* foobar  y       $1-$2-$3        bar-foo-bar
-:(?:   -       c       -       Sequence (? incomplete
+a(?{})b        cabd    y       $&      ab
+a(?{)b -       c       -       /a(?{)b/: Sequence (?{...}) not terminated or not {}-balanced
+a(?{{})b       -       c       -       /a(?{{})b/: Sequence (?{...}) not terminated or not {}-balanced
+a(?{}})b       -       c       -       /a(?{}})b/: Sequence (?{...}) not terminated or not {}-balanced
+a(?{"{"})b     -       c       -       /a(?{"{"})b/: Sequence (?{...}) not terminated or not {}-balanced
+a(?{"\{"})b    cabd    y       $&      ab
+a(?{"{"}})b    -       c       -       Unmatched right curly bracket
+a(?{$bl="\{"}).b       caxbd   y       $bl     {
+x(~~)*(?:(?:F)?)?      x~~     y       -       -
+^a(?#xxx){3}c  aaac    y       $&      aaac
+'^a (?#xxx) (?#yyy) {3}c'x     aaac    y       $&      aaac
+(?<![cd])b     dbcb    n       -       -
+(?<![cd])[ab]  dbaacb  y       $&      a
+(?<!(c|d))b    dbcb    n       -       -
+(?<!(c|d))[ab] dbaacb  y       $&      a
+(?<!cd)[ab]    cdaccb  y       $&      b
+^(?:a?b?)*$    a--     n       -       -
+((?s)^a(.))((?m)^b$)   a\nb\nc\n       y       $1;$2;$3        a\n;\n;b
+((?m)^b$)      a\nb\nc\n       y       $1      b
+(?m)^b a\nb\n  y       $&      b
+(?m)^(b)       a\nb\n  y       $1      b
+((?m)^b)       a\nb\n  y       $1      b
+\n((?m)^b)     a\nb\n  y       $1      b
+((?s).)c(?!.)  a\nb\nc\n       y       $1      \n
+((?s).)c(?!.)  a\nb\nc\n       y       $1:$&   \n:\nc
+((?s)b.)c(?!.) a\nb\nc\n       y       $1      b\n
+((?s)b.)c(?!.) a\nb\nc\n       y       $1:$&   b\n:b\nc
+^b     a\nb\nc\n       n       -       -
+()^b   a\nb\nc\n       n       -       -
+((?m)^b)       a\nb\nc\n       y       $1      b
+(?(1)a|b)      a       n       -       -
+(?(1)b|a)      a       y       $&      a
+(x)?(?(1)a|b)  a       n       -       -
+(x)?(?(1)b|a)  a       y       $&      a
+()?(?(1)b|a)   a       y       $&      a
+()(?(1)b|a)    a       n       -       -
+()?(?(1)a|b)   a       y       $&      a
+^(\()?blah(?(1)(\)))$  (blah)  y       $2      )
+^(\()?blah(?(1)(\)))$  blah    y       ($2)    ()
+^(\()?blah(?(1)(\)))$  blah)   n       -       -
+^(\()?blah(?(1)(\)))$  (blah   n       -       -
+^(\(+)?blah(?(1)(\)))$ (blah)  y       $2      )
+^(\(+)?blah(?(1)(\)))$ blah    y       ($2)    ()
+^(\(+)?blah(?(1)(\)))$ blah)   n       -       -
+^(\(+)?blah(?(1)(\)))$ (blah   n       -       -
+(?(1?)a|b)     a       c       -       /(?(1?)a|b)/: Switch (?(number? not recognized
+(?(1)a|b|c)    a       c       -       /(?(1)a|b|c)/: Switch (?(condition)... contains too many branches
+(?(?{0})a|b)   a       n       -       -
+(?(?{0})b|a)   a       y       $&      a
+(?(?{1})b|a)   a       n       -       -
+(?(?{1})a|b)   a       y       $&      a
+(?(?!a)a|b)    a       n       -       -
+(?(?!a)b|a)    a       y       $&      a
+(?(?=a)b|a)    a       n       -       -
+(?(?=a)a|b)    a       y       $&      a
+(?=(a+?))(\1ab)        aaab    y       $2      aab
+^(?=(a+?))\1ab aaab    n       -       -
+(\w+:)+        one:    y       $1      one:
+$(?<=^(a))     a       y       $1      a
+(?=(a+?))(\1ab)        aaab    y       $2      aab
+^(?=(a+?))\1ab aaab    n       -       -
+([\w:]+::)?(\w+)$      abcd:   n       -       -
+([\w:]+::)?(\w+)$      abcd    y       $1-$2   -abcd
+([\w:]+::)?(\w+)$      xy:z:::abcd     y       $1-$2   xy:z:::-abcd
+^[^bcd]*(c+)   aexycd  y       $1      c
+(a*)b+ caab    y       $1      aa
+([\w:]+::)?(\w+)$      abcd:   n       -       -
+([\w:]+::)?(\w+)$      abcd    y       $1-$2   -abcd
+([\w:]+::)?(\w+)$      xy:z:::abcd     y       $1-$2   xy:z:::-abcd
+^[^bcd]*(c+)   aexycd  y       $1      c
+(?{$a=2})a*aa(?{local$a=$a+1})k*c(?{$b=$a})    yaaxxaaaacd     y       $b      3
+(?{$a=2})(a(?{local$a=$a+1}))*aak*c(?{$b=$a})  yaaxxaaaacd     y       $b      4
+(>a+)ab        aaab    n       -       -
+(?>a+)b        aaab    y       -       -
+([[:]+)        a:[b]:  y       $1      :[
+([[=]+)        a=[b]=  y       $1      =[
+([[.]+)        a.[b].  y       $1      .[
+[a[:xyz:       -       c       -       /[a[:xyz:/: unmatched [] in regexp
+[a[:xyz:]      -       c       -       /[a[:xyz:]/: unmatched [] in regexp
+([a[:xyz:]b]+) pbaq    y       $1      ba
+((?>a+)b)      aaab    y       $1      aaab
+(?>(a+))b      aaab    y       $1      aaa
+((?>[^()]+)|\([^()]*\))+       ((abc(ade)ufh()()x      y       $&      abc(ade)ufh()()x
+(?<=x+)y       -       c       -       /(?<=x+)y/: variable length lookbehind not implemented
+a{37,17}       -       c       -       /a{37,17}/: Can't do {n,m} with n > m
+a\Z    a\nb\n  n       -       -
+b\Z    a\nb\n  y       -       -
+b\z    a\nb\n  n       -       -
+b\Z    a\nb    y       -       -
+b\z    a\nb    y       -       -
+(^|x)(c)       ca      y       $2      c
+a*abc?xyz+pqr{3}ab{2,}xy{4,5}pq{0,6}AB{0,}zz   x       n       -       -
+a(?{$a=2;$b=3;($b)=$a})b       yabz    y       $b      2
+round\(((?>[^()]+))\)  _I(round(xs * sz),1)    y       $1      xs * sz
+'((?x:.) )'    x       y       $1-     x -
+'((?-x:.) )'x  x       y       $1-     x-