libsubtitle-perl/t/format-srt.t

use strict;
use warnings;

use Test::More tests => 9;

use Subtitle::SRT;

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

my $sample = <<"EOF";
1
00:00:00,100 --> 00:00:08,000
<i>kirari hikaru yume o taisetsu ni dakishimete
 </i>

2
00:00:08,100 --> 00:00:12,000
<i>ippo dzutsu aruite yukou
</i>
EOF

my $cnt = $srt->from_string($sample);
is($cnt, 2);

my @events = @{ $srt->{events} };
is($events[0]->{timing}->[0], 0.1);
is($events[0]->{timing}->[1], 8.0);
is($events[0]->{text}, "<i>kirari hikaru yume o taisetsu ni dakishimete\n</i>");
is($events[1]->{timing}->[0], 8.1);
is($events[1]->{timing}->[1], 12.0);
is($events[1]->{text}, "<i>ippo dzutsu aruite yukou\n</i>");

exit 0;