#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

use Devel::MAT::Dumper;
use Devel::MAT;

my $DUMPFILE = "test.pmat";

our $EMPTY_SVIV = 123;
our @EMPTY_AV = ();

our @ARRAY = ( 123, 45, [ 6, 7 ] );

Devel::MAT::Dumper::dump( $DUMPFILE );
END { unlink $DUMPFILE; }

my $pmat = Devel::MAT->load( $DUMPFILE );
ok ( scalar( grep { $_ eq "Sizes" } $pmat->available_tools ), 'Sizes tool is available' );

$pmat->load_tool( "Sizes" );

my $sviv_size = $pmat->find_symbol( '$EMPTY_SVIV' )->size;
my $av_size   = $pmat->find_symbol( '@EMPTY_AV' )->size;

my $av = $pmat->find_symbol( '@ARRAY' );
my $av2 = $av->elem(2)->rv;

# Structure
{
   is( scalar $av->structure_set, 4, '$av->structure_set' );

   cmp_ok( $av->size, '>', $av_size, '$av->size > $av_size' );
   is( $av->structure_size,
       $av->size + 3*$sviv_size,
       '$av->structure_size' );
}

# Owned
{
   is( scalar $av->owned_set, 7, '$av->owned_set' );

   is( $av->owned_size,
       $av->size + 3*$sviv_size + $av2->size + 2*$sviv_size,
       '$av->owned_size' );
}

done_testing;