+ t/format-srt.t

t/format-srt.t

@@ -0,0 +1,36 @@
+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 @lines = split(/\r?\n/, $sample);
+my $cnt = $srt->parse(\@lines);
+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;