|
|
|
@ -1,7 +1,7 @@
|
|
|
|
|
use strict; |
|
|
|
|
use warnings; |
|
|
|
|
|
|
|
|
|
use Test::More tests => 5; |
|
|
|
|
use Test::More tests => 6; |
|
|
|
|
|
|
|
|
|
require_ok('Subtitle::Format'); |
|
|
|
|
|
|
|
|
@ -21,6 +21,8 @@ require_ok('Subtitle::Format');
|
|
|
|
|
|
|
|
|
|
my $obj = Subtitle::Dummy->new; |
|
|
|
|
isa_ok($obj, 'Subtitle::Dummy'); |
|
|
|
|
can_ok($obj, qw(new parse build log events sort_events |
|
|
|
|
from_file to_file from_string to_string)); |
|
|
|
|
|
|
|
|
|
is(scalar @{ $obj->{log} }, 0); |
|
|
|
|
$obj->log(warn => "something"); |
|
|
|
|