diff options
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 439796d239..142b82e2ad 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -4,7 +4,7 @@ # the format supported by op/regexp.t. If you want to add a test # that does fit that format, add it to op/re_tests, not here. -print "1..207\n"; +print "1..210\n"; BEGIN { chdir 't' if -d 't'; @@ -978,3 +978,16 @@ $test++; print "not " if "@b" ne "@c"; print "ok $test\n"; $test++; + +# see if backtracking optimization works correctly +"\n\n" =~ /\n $ \n/x or print "not "; +print "ok $test\n"; +$test++; + +"\n\n" =~ /\n* $ \n/x or print "not "; +print "ok $test\n"; +$test++; + +"\n\n" =~ /\n+ $ \n/x or print "not "; +print "ok $test\n"; +$test++; |