11 lines
239 B
Perl
11 lines
239 B
Perl
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use Test::More tests => 4;
|
||
|
|
BEGIN { use_ok 'director_frob' }
|
||
|
|
require_ok 'director_frob';
|
||
|
|
|
||
|
|
my $foo = director_frob::Bravo->new();
|
||
|
|
isa_ok $foo, 'director_frob::Bravo';
|
||
|
|
|
||
|
|
is($foo->abs_method(), 'Bravo::abs_method()');
|