t/basic.t

   1 #!/usr/bin/perl -w
   2
   3 use Test::More;
   4 use strict;
   5
   6 my $tests;
   7
   8 BEGIN
   9    {
  10    chdir 't' if -d 't';
  11    plan tests => 13;
  12
  13    use lib '../lib';
  14    use lib '../blib/arch';
  15    use_ok('Devel::Size');
  16    }
  17
  18 can_ok ('Devel::Size', qw/
  19   size
  20   total_size
  21   /);
  22
  23 Devel::Size->import( qw(size total_size) );
  24
  25 die ("Uhoh, test uses an outdated version of Devel::Size")
  26   unless is ($Devel::Size::VERSION, '0.72_50', 'VERSION MATCHES');
  27
  28 #############################################################################
  29 # some basic checks:
  30
  31 use vars qw($foo @foo %foo);
  32 $foo = "12";
  33 @foo = (1,2,3);
  34 %foo = (a => 1, b => 2);
  35
  36 my $x = "A string";
  37 my $y = "A much much longer string";        # need to be at least 7 bytes longer for 64 bit
  38 ok (size($x) < size($y), 'size() of strings');
  39 ok (total_size($x) < total_size($y), 'total_size() of strings');
  40
  41 my @x = (1..4);
  42 my @y = (1..200);
  43
  44 my $size_1 = total_size(\@x);
  45 my $size_2 = total_size(\@y);
  46
  47 ok ( $size_1 < $size_2, 'size() of array refs');
  48
  49 # the arrays alone shouldn't be the same size
  50 $size_1 = size(\@x);
  51 $size_2 = size(\@y);
  52
  53 isnt ( $size_1, $size_2, 'size() of array refs');
  54
  55 #############################################################################
  56 # IV vs IV+PV (bug #17586)
  57
  58 $x = 12;
  59 $y = 12; $y .= '';
  60
  61 $size_1 = size($x);
  62 $size_2 = size($y);
  63
  64 ok ($size_1 < $size_2, ' ."" makes string longer');
  65
  66 #############################################################################
  67 # check that the tracking_hash is working
  68
  69 my($a,$b) = (1,2);
  70 my @ary1 = (\$a, \$a);
  71 my @ary2 = (\$a, \$b);
  72
  73 isnt ( total_size(\@ary2) - total_size(\@ary1), 0,
  74     'total_size(\@ary1) < total_size(\@ary2)');
  75
  76 #############################################################################
  77 # check that circular references don't mess things up
  78
  79 my($c1,$c2); $c2 = \$c1; $c1 = \$c2;
  80
  81 is (total_size($c1), total_size($c2), 'circular references');
  82
  83 #############################################################################
  84 # GLOBS
  85
  86 isnt (total_size(*foo), 0, 'total_size(*foo) > 0');
  87
  88 #############################################################################
  89 # CODE ref
  90
  91 my $code = sub { '1' };
  92
  93 isnt (total_size($code), 0, 'total_size($code) > 0');
  94
  95 ##########################################################
  96 # RT#14849 (& RT#26781 and possibly RT#29238?)
  97 isnt( total_size( sub{ do{ my $t=0 }; } ), 0, 'total_size( sub{ my $t=0 } ) > 0' );