21 lines
415 B
Perl
21 lines
415 B
Perl
use strict;
|
|
use warnings;
|
|
use Test::More tests => 5;
|
|
BEGIN { use_ok 'director_enum' }
|
|
require_ok 'director_enum';
|
|
|
|
{
|
|
package MyFoo;
|
|
use base 'director_enum::Foo';
|
|
sub say_hi { my($self, $val) = @_;
|
|
return $val;
|
|
}
|
|
}
|
|
|
|
my $b = director_enum::Foo->new();
|
|
isa_ok $b, 'director_enum::Foo';
|
|
my $a = MyFoo->new();
|
|
isa_ok $a, 'MyFoo';
|
|
|
|
is $a->say_hi($director_enum::hello),
|
|
$a->say_hello($director_enum::hi);
|