#!/usr/bin/perl

use strict;
use warnings;
use Carp::Always;
use Data::Dumper;
use Test::More;

use StationaryParticle;
use MoveableParticle;

$| = 1;
srand();
$Data::Dumper::Deepcopy = 1;
$Data::Dumper::Sortkeys = 1;

my @particles;
push @particles, MoveableParticle->new( 
        { 
            position => { x => 10, y => 10, z => 10, }, 
            movement => { dx => 5, dy => -5, dz => 0, },
        }
    );
# print Data::Dumper->Dump( [ \@particles, ], [ qw( *particles ) ] ), 
#     qq{\n};

$particles[0]->set( 'is_active', 0, );
isa_ok( $particles[0], 'MoveableParticle' );
isa_ok( $particles[0], 'Particle' );
isa_ok( $particles[0], 'StationaryParticle' );
print qq{Object 0: }, ref( $particles[0] ), qq{\n};
print qq{\n};

push @particles, StationaryParticle->new( 
        { position => { x => 20, y => 20, z => 0, }, }, 
    );

isa_ok( $particles[1], 'MoveableParticle' );
isa_ok( $particles[1], 'Particle' );
isa_ok( $particles[1], 'StationaryParticle' );
print qq{Object 1: }, ref( $particles[1] ), qq{\n};
print qq{\n};

# print Data::Dumper->Dump( [ \@particles, ], [ qw( *particles ) ] ), 
#     qq{\n};

print qq{Particle count: }, 
    Particle->total_count, qq{\n};
print qq{\n};
print qq{Stationary particle count: }, 
    StationaryParticle->total_count, qq{\n};
print qq{\n};
print qq{Moveable particle count: }, 
    MoveableParticle->total_count, qq{\n};
print qq{\n};

Test::More::done_testing();