This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don’t leak subs containing syntax errors
[perl5.git] / t / op / svleak.t
index 8134b56..8416656 100644 (file)
@@ -15,7 +15,7 @@ BEGIN {
 
 use Config;
 
-plan tests => 64;
+plan tests => 65;
 
 # run some code N times. If the number of SVs at the end of loop N is
 # greater than (N-1)*delta at the end of loop 1, we've got a leak
@@ -195,6 +195,7 @@ SKIP: {
 }
 
 eleak(2, 0, '+sub:a{}', 'anon subs with invalid attributes');
+eleak(2, 0, 'no warnings; sub a{1 1}', 'sub with syntax error');
 
 # Syntax errors
 eleak(2, 0, '"${<<END}"