Add tests for regex recursion

d5a00e4af introduced a bug in reginsert that was fixed by da7cf1cc7,
originally documented in [perl #128109]. This patch adds two
regression tests for the testcase reported by Jan Goyvaerts in
[perl #128420].

diff --git a/t/re/re_tests b/t/re/re_tests
index 34ac94a..7e8522d 100644 (file)
--- a/t/re/re_tests
+++ b/t/re/re_tests
@@ -1966,6 +1966,8 @@ ab(?#Comment){2}c abbc    y       $&      abbc
 .{1}?? -       c       -       Nested quantifiers
 .{1}?+ -       c       -       Nested quantifiers
 (?:.||)(?|)000000000@  000000000@      y       $&      000000000@              #  [perl #126405]
+aa$|a(?R)a|a   aaa     y       $&      aaa             # [perl 128420] recursive matches
+(?:\1|a)([bcd])\1(?:(?R)|e)\1  abbaccaddedcb   y       $&      abbaccaddedcb           # [perl 128420] recursive match with backreferences
 
 # Keep these lines at the end of the file
 # vim: softtabstop=0 noexpandtab