Devel-Size-0.83/t/recurse.t

33 my $ptr_size = total_size($array) - total_size( [] ) - total_size(1) * 2;
54 is (total_size($hash),
55     total_size( { a => undef } ) + total_size(1) - total_size($undef),
68   my $hash_size = total_size($hash) - total_size(1);
73   my $pvnv_size = total_size(\$hash->{a}) - total_size([]);
75   my $ref_size = total_size(\\1) - total_size(1);
114   my $element_size = total_size(\$hash->{a});
116   cmp_ok($element_size, '<', total_size($hash), "element < hash with one element");
117   cmp_ok($element_size, '>', total_size(\[]), "PVNV + [] > [] alone");
121   is (total_size($hash->{a}), total_size([]), '[] vs. []');
128   my $full_hash = total_size($hash);
129   my $array_size = total_size([]);
136   is (total_size([0..$size]), total_size( $hash->{a} ), "hash element vs. array");
140   isnt (total_size(\[0..$size]), total_size( \$hash->{a} ), "[0..size] vs PVNV");
142   cmp_ok(total_size(\[0..$size]), '<', total_size( \$hash->{a} ), "[0..size] vs. PVNV");
144   $full_hash = total_size($hash);
145   $element_size = total_size(\$hash->{a});
146   $array_size = total_size(\[0..$size]);
168   $array_size = total_size(\[0..$size, undef, undef]);
171   $element_size = total_size(\$hash->{a});
172   $full_hash = total_size($hash);
188   $array_size = total_size($array);
189   my $scalar_size = total_size(1) * (1+$size) + total_size($undef) * 1 + $ptr_size
190     + $ptr_size * ($size + 2) + total_size([]);
194   $full_hash = total_size($hash);
195   $element_size = total_size(\$hash->{a});
196   $array_size = total_size(\$array);
236     my $undef_size = total_size($undef);
239     my $iv_size = total_size(1);
246     my $array_1_size = total_size(\@array);
254     my $array_2_size = total_size(\@array);
266     is(total_size(\@array), $array_2_size + $undef_size,
297 	cmp_ok(total_size(\$a->[0]), '>', 1024,
383     my $sub_size = total_size(\&SWIT::sees_test_more);
388     cmp_ok(total_size(\%Test::More::), '>=', 102400,
392 cmp_ok(total_size(\%Exporter::), '>', total_size(\%Exporter::Heavy::));