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.
19 lines
312 B
19 lines
312 B
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;
|
|
|