t/op/list.t using test.pl

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

diff --git a/t/op/re_tests b/t/op/re_tests
index 4b9ae61..8c8beb1 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -961,3 +961,6 @@ x(?#        x       c       -       Sequence (?#... not terminated
 ^(.)\s+.$(?(1))        A B     y       $1      A       # [perl #37688]
 (?:r?)*?r|(.{2,4})     abcde   y       $1      abcd
 (?!)+?|(.{2,4})        abcde   y       $1      abcd
+^(a*?)(?!(a{6}|a{5})*$)        aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y       $+[1]   12      # super-linear cache bug may return 18
+^((?>(?:aa)?b)?)       aab     y       $1      aab
+^((?:aa)*)(?:X+((?:\d+|-)(?:X+(.+))?))?$       aaaaX5  y       $1      aaaa