# 01_init_core.t
#
# Tests for proper loading of the module

use Test::More tests => 6;

use strict;
use warnings;

ok( eval 'require Class::EHierarchy;', 'Loaded Class::EHierarchy' );

my $obj = new Class::EHierarchy;
ok( defined $obj,                   'Created object 1' );
ok( $obj->isa('Class::EHierarchy'), 'Verified object class' );
ok( $$obj == 0,                     'Verified object ID 1' );

my $obj2 = new Class::EHierarchy;
ok( defined $obj2, 'Created object 2' );
ok( $$obj2 == 1,   'Verified object ID 2' );

# end 01_init_core.t