# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as
# `perl TagLib_ID3v2_FrameFactory.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
#use Test::More tests => 5;
BEGIN { use_ok(
'Audio::TagLib::ID3v2::Footer'
) };
#########################
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
my
@methods
=
qw(createFrame defaultTextEncoding
setDefaultTextEncoding instance)
;
can_ok(
"Audio::TagLib::ID3v2::FrameFactory"
,
@methods
) or
diag(
"can_ok failed"
);
my
$i
= Audio::TagLib::ID3v2::FrameFactory->instance();
isa_ok(
$i
,
"Audio::TagLib::ID3v2::FrameFactory"
) or
diag(
"method instance() failed"
);
SKIP: {
skip
"more test needed"
, 1
if
1;
ok(1);
}