Browse Source

* t/format-ssa-event.t : check class inheritance

master
Alex 'AdUser' Z 6 years ago
parent
commit
0f9a409cfb
  1. 3
      t/format-ssa-event.t

3
t/format-ssa-event.t

@ -1,7 +1,7 @@
use strict;
use warnings;
use Test::More tests => 30;
use Test::More tests => 31;
use Subtitle::Format::SSA::Event;
@ -11,6 +11,7 @@ my ($fields, @fields, $format, $sample, $event, $output);
$format = 'Format: Marked, Start, End, Style, Name, MarginL, MarginR, MarginV, Effect, Text';
@fields = qw(marked start end style name marginl marginr marginv effect text);
$event = Subtitle::Format::SSA::Event->new(type => 'ssa');
can_ok($event, qw(new parse t_start t_end text));
$fields = $event->parse_format_line($format);
is(ref $fields, 'ARRAY');
is_deeply($fields, \@fields);

Loading…
Cancel
Save