You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
312 B
20 lines
312 B
6 years ago
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Test::More tests => 7;
|
||
|
|
|
||
|
|
use Subtitle::Event;
|
||
|
|
|
||
|
|
my $e = Subtitle::Event->new;
|
||
|
|
is(ref $e, 'Subtitle::Event');
|
||
|
|
can_ok($e, qw(new t_start t_end text));
|
||
|
|
|
||
|
|
is($e->t_start, 0.0);
|
||
|
|
is($e->t_start(17.2), 17.2);
|
||
|
|
is($e->t_start(-5.4), 17.2);
|
||
|
|
|
||
|
|
is($e->text, '');
|
||
|
|
is($e->text('test'), 'test');
|
||
|
|
|
||
|
|
1;
|