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 outdated version of Devel::Size")
  26   unless is ($Devel::Size::VERSION, '0.66', '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 ok (total_size(\@x) < total_size(\@y), 'total_size() of array refs');
  49
  50 # the arrays alone shouldn't be the same size
  51 $size_1 = size(\@x);
  52 $size_2 = size(\@y);
  53
  54 isnt ( $size_1, $size_2, 'size() of array refs');
  55
  56 #############################################################################
  57 # IV vs IV+PV (bug #17586)
  58
  59 $x = 12;
  60 $y = 12; $y .= '';
  61
  62 $size_1 = size($x);
  63 $size_2 = size($y);
  64
  65 ok ($size_1 < $size_2, ' ."" makes string longer');
  66
  67 #############################################################################
  68 # check that the tracking_hash is working
  69
  70 my($a,$b) = (1,2);
  71 my @ary1 = (\$a, \$a);
  72 my @ary2 = (\$a, \$b);
  73
  74 isnt ( total_size(\@ary2) - total_size(\@ary1), 0,
  75         'total_size(\@ary1) < total_size(\@ary2)');
  76
  77 #############################################################################
  78 # check that circular references don't mess things up
  79
  80 my($c1,$c2); $c2 = \$c1; $c1 = \$c2;
  81
  82 is (total_size($c1), total_size($c2), 'circular references');
  83
  84 #############################################################################
  85 # GLOBS
  86
  87 isnt (total_size(*foo), 0, 'total_size(*foo) > 0');
  88
  89 #############################################################################
  90 # CODE ref
  91
  92 my $code = sub { '1' };
  93
  94 isnt (total_size($code), 0, 'total_size($code) > 0');