Allow negative indexing in recursive patterns

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

diff --git a/t/op/re_tests b/t/op/re_tests
index 99c6824..078caa9 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -1186,3 +1186,6 @@ a*(*F)    aaaab   n       -       -
 (A(A|B(*ACCEPT)|C)D)(E)        AB      y       $1      AB
 (A(A|B(*ACCEPT)|C)D)(E)        ACDE    y       $1$2$3  ACDCE
 
+(a)(?:(?-1)|(?+1))(b)  aab     y       $&-$1-$2        aab-a-b
+(a)(?:(?-1)|(?+1))(b)  abb     y       $&-$1-$2        abb-a-b
+(a)(?:(?-1)|(?+1))(b)  acb     n       -       -