#!perl -T
# Base Orignal Test
use Test::More tests => 18;
diag('Loading Orignal and version');
{
#test load scalars
package fee;
use base qw(Orignal);
fee->attributes({SCALARS =>[qw(s1 s2 s3 s4)],
ORDERED_HASHES =>[qw(oh1 oh2 oh3 oh4)],
HASHES =>[qw(h1 h2 h3 h4)],
ARRAYS=>[qw(a1 a2 a3 a4)]});
}
my %attrs = (SCALARS =>[qw(s1 s2 s3 s4)],
HASHES =>[qw(h1 h2 h3 h4)],
ORDERED_HASHES =>[qw(oh1 oh2 oh3 oh4)],
ARRAYS =>[qw(a1 a2 a3 a4)]);
my $base_test;
ok ($base_test = fee->new(),"create a new one");
my $meta = $base_test->my_attributes();
ok($base_test->my_attributes(),"got attributes");
foreach my $key (keys(%attrs)){
foreach my $index (0..3) {
cmp_ok($meta->{$key}->[$index], "=",$attrs{$key}->[$index]," I have a ".$attrs{$key}->[$index]);
}
}