1use strict; 2use warnings; 3use Test::More tests => 6; 4BEGIN { use_ok 'director_default' } 5require_ok 'director_default'; 6 7my $f; 8 9$f = director_default::Foo->new(); 10isa_ok $f, 'director_default::Foo'; 11$f = director_default::Foo->new(1); 12isa_ok $f, 'director_default::Foo'; 13 14 15$f = director_default::Bar->new(); 16isa_ok $f, 'director_default::Bar'; 17$f = director_default::Bar->new(1); 18isa_ok $f, 'director_default::Bar'; 19