libsubtitle-perl/t/format-msub.t

use strict;
use warnings;

use Test::More tests => 9;

use Subtitle::Format::MSub;

my $msub = Subtitle::Format::MSub->new(debug => 1);
is(ref $msub, 'Subtitle::Format::MSub');
can_ok($msub, qw(new parse));

my $sample = <<"EOF";
{1}{1} 15.0
{30}{45} Test event
{45}{60} Test event|with line wrap

EOF

my $cnt = $msub->from_string($sample);
is($cnt, 2);
my @events = @{ $msub->{events} };
is($events[0]->t_start, 2.0);
is($events[0]->t_end,   3.0);
is($events[0]->text, "Test event");
is($events[1]->t_start, 3.0);
is($events[1]->t_end,   4.0);
is($events[1]->text, "Test event\nwith line wrap");

exit 0;