Bind op fix.

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

diff --git a/t/op/re_tests b/t/op/re_tests
index 357b705..421442d 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -748,3 +748,17 @@ tt+$       xxxtt   y       -       -
 '\.c(pp|xx|c)?$'i      IO.c    y       -       -
 '(\.c(pp|xx|c)?$)'i    IO.c    y       $1      .c
 ^([a-z]:)      C:/     n       -       -
+'^\S\s+aa$'m   \nx aa  y       -       -
+(^|a)b ab      y       -       -
+^([ab]*?)(b)?(c)$      abac    y       -$2-    --
+(\w)?(abc)\1b  abcab   n       -       -
+^(?:.,){2}c    a,b,c   y       -       -
+^(.,){2}c      a,b,c   y       $1      b,
+^(?:[^,]*,){2}c        a,b,c   y       -       -
+^([^,]*,){2}c  a,b,c   y       $1      b,
+(?i)           y       -       -
+'(?!\A)x'm     a\nxb\n y       -       -
+^(a(b)?)+$     aba     y       -$1-$2- -a--
+^(aa(bb)?)+$   aabbaa  y       -$1-$2- -aa--
+^(a)?a$        a       y       -$1-    --
+^(a)?(?(1)a|b)+$       a       n       -       -