[perl #56526] m/a{1,0}/ compiles but doesn't match a literal string

[perl5.git] / t / op / re_tests

diff --git a/t/op/re_tests b/t/op/re_tests
index 2b74175..0992b15 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -618,6 +618,7 @@ $(?<=^(a))  a       y       $1      a
 ((?>[^()]+)|\([^()]*\))+       ((abc(ade)ufh()()x      y       $&      abc(ade)ufh()()x
 (?<=x+)y       -       c       -       Variable length lookbehind not implemented
 a{37,17}       -       c       -       Can't do {n,m} with n > m
+a{37,0}        -       c       -       Can't do {n,m} with n > m
 \Z     a\nb\n  y       $-[0]   3
 \z     a\nb\n  y       $-[0]   4
 $      a\nb\n  y       $-[0]   3