use strict; | |
use warnings; | |
use Test::More tests => 6; | |
BEGIN { use_ok 'director_default' } | |
require_ok 'director_default'; | |
my $f; | |
$f = director_default::Foo->new(); | |
isa_ok $f, 'director_default::Foo'; | |
$f = director_default::Foo->new(1); | |
isa_ok $f, 'director_default::Foo'; | |
$f = director_default::Bar->new(); | |
isa_ok $f, 'director_default::Bar'; | |
$f = director_default::Bar->new(1); | |
isa_ok $f, 'director_default::Bar'; |