#!perl -T
use warnings;
use strict;
use Test::More tests => 6;
use lib qw( t t/lib ./lib );
use OEmployee;
BEGIN { inherit OEmployee }
can_ok('OPerson', 'inherit');
can_ok('OWorker', 'inherit');
can_ok('OEmployee', 'inherit');
is( check_person_isa(), 'OK', 'OPerson::ISA functional test');
is( check_worker_isa(), 'OK', 'OWorker::ISA functional test');
is( check_employee_isa(), 'OK', 'OEmployee::ISA functional test');
exit;
######################################################################
# Functional test
sub check_person_isa {
return _check_class_isa('OPerson', ['Package::Data::Inheritable', 'Exporter', 'UNIVERSAL']);
}
# Functional test
sub check_worker_isa {
return _check_class_isa('OWorker', ['OWorker', 'Package::Data::Inheritable', 'Exporter', 'UNIVERSAL']);
}
# Functional test
sub check_employee_isa {
return _check_class_isa('OEmployee', ['OEmployee', 'OWorker', 'Package::Data::Inheritable', 'Exporter', 'UNIVERSAL']);
}
######################################################################
# TEST UTILITIES
sub _check_class_isa {
my ($class, $isa_list) = @_;
foreach my $upper (@$isa_list) {
next if UNIVERSAL::isa($class, $upper);
return "$class is not a $upper";
}
return 'OK';
}