From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 10 May 2013 08:38:43 +0000 (+0200)
Subject: Test that we can measure that recursion increases the size of the PADLIST.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=49a07034b9613683c5a80c1be2626e72a0bab5c8;p=p5sagit%2FDevel-Size.git

Test that we can measure that recursion increases the size of the PADLIST.
---

diff --git a/t/code.t b/t/code.t
index eed0779..1a76276 100644
--- a/t/code.t
+++ b/t/code.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Test::More tests => 12;
+use Test::More tests => 13;
 use Devel::Size ':all';
 
 sub zwapp;
@@ -53,3 +53,16 @@ my $short_pvop = total_size(sub {goto GLIT});
 my $long_pvop = total_size(sub {goto KREEK_KREEK_CLANK_CLANK});
 cmp_ok($short_pvop, '>', $anon_size, 'OPc_PVOP can be measured');
 is($long_pvop, $short_pvop + 19, 'the only size difference is the label length');
+
+sub bloop {
+    my $clunk = shift;
+    if (--$clunk > 0) {
+	bloop($clunk);
+    }
+}
+
+my $before_size = total_size(\&bloop);
+bloop(42);
+my $after_size = total_size(\&bloop);
+
+cmp_ok($after_size, '>', $before_size, 'Recursion increases the PADLIST');