Mega rename to Devel::Memory commit
[p5sagit/Devel-Size.git] / t / code.t
CommitLineData
57fcdb5b 1#!/usr/bin/perl -w
2
3use strict;
219b7d34 4use Test::More tests => 12;
d3b8a135 5use Devel::Memory ':all';
57fcdb5b 6
7sub zwapp;
8sub swoosh($$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$);
9sub crunch {
10}
11
12my $whack_size = total_size(\&whack);
13my $zwapp_size = total_size(\&zwapp);
14my $swoosh_size = total_size(\&swoosh);
15my $crunch_size = total_size(\&crunch);
16
17cmp_ok($whack_size, '>', 0, 'CV generated at runtime has a size');
18cmp_ok($zwapp_size, '>', $whack_size,
19 'CV stubbed at compiletime is larger (CvOUTSIDE is set and followed)');
20cmp_ok(length prototype \&swoosh, '>', 0, 'prototype has a length');
21cmp_ok($swoosh_size, '>', $zwapp_size + length prototype \&swoosh,
22 'prototypes add to the size');
23cmp_ok($crunch_size, '>', $zwapp_size, 'sub bodies add to the size');
24
25my $anon_proto = sub ($$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$) {};
26my $anon_size = total_size(sub {});
27my $anon_proto_size = total_size($anon_proto);
28cmp_ok($anon_size, '>', 0, 'anonymous subroutines have a size');
29cmp_ok(length prototype $anon_proto, '>', 0, 'prototype has a length');
30cmp_ok($anon_proto_size, '>', $anon_size + length prototype $anon_proto,
31 'prototypes add to the size');
574d9fd9 32
4c229154 33SKIP: {
574d9fd9 34 use vars '@b';
35 my $aelemfast_lex = total_size(sub {my @a; $a[0]});
36 my $aelemfast = total_size(sub {my @a; $b[0]});
37
4c229154 38 # This one is sane even before Dave's lexical aelemfast changes:
574d9fd9 39 cmp_ok($aelemfast_lex, '>', $anon_size,
40 'aelemfast for a lexical is handled correctly');
4c229154 41 skip('alemfast was extended to lexicals after this perl was released', 1)
42 if $] < 5.008004;
574d9fd9 43 cmp_ok($aelemfast, '>', $aelemfast_lex,
44 'aelemfast for a package variable is larger');
45}
219b7d34 46
47my $short_pvop = total_size(sub {goto GLIT});
48my $long_pvop = total_size(sub {goto KREEK_KREEK_CLANK_CLANK});
49cmp_ok($short_pvop, '>', $anon_size, 'OPc_PVOP can be measured');
50is($long_pvop, $short_pvop + 19, 'the only size difference is the label length');