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 1dca4f0..5abe217 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -402,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
@@ -490,3 +490,5 @@ b\z a\nb    y       -       -
 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-