specify type of bracket in "Unmatched bracket" diagnostic;

[p5sagit/p5-mst-13.2.git] / t / op / re_tests

diff --git a/t/op/re_tests b/t/op/re_tests
index 7ac20c3..5abe217 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -151,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
@@ -291,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
@@ -335,6 +335,9 @@ a(?:b|(c|e){1,2}?|d)+?(.)   ace     y       $1$2    ce
 ^(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       -       -
@@ -399,7 +402,7 @@ 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 bracket
+a(?{"{"}})b    -       c       -       Unmatched right curly bracket
 a(?{$bl="\{"}).b       caxbd   y       $bl     {
 x(~~)*(?:(?:F)?)?      x~~     y       -       -
 ^a(?#xxx){3}c  aaac    y       $&      aaac
@@ -483,3 +486,9 @@ 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-