use strict;
use warnings;

use Test::More tests => 21;

use Subtitle::Utils qw(:timing);

## parse_timing()
# valid timecodes
is(parse_timing('123:11:15.459'), (123 * 3600 + 11 * 60 + 15 + 0.459));
is(parse_timing('123:11:15.45'),  (123 * 3600 + 11 * 60 + 15 + 0.450));
is(parse_timing('123:11:15.4'),   (123 * 3600 + 11 * 60 + 15 + 0.400));
is(parse_timing('123:11:15,4'),   (123 * 3600 + 11 * 60 + 15 + 0.400));
# invalid timecodes
is(parse_timing('123:60:15.45'),   -1);
is(parse_timing('123:11:65.45'),   -1);
is(parse_timing('123:11:15.4500'), -1);

## parse_timeshift()
is(parse_timeshift('1'),              +1.0);
is(parse_timeshift('-1.2'),           -1.2);
is(parse_timeshift('+2:15'),        +135.0);
is(parse_timeshift('+03:07.35'),    +187.35);
is(parse_timeshift('4:05:17.312'), 14717.312);
# invalid timecodes
is(parse_timeshift('o.17'),    undef);
is(parse_timeshift('-.05'),    undef);
is(parse_timeshift('1:60'),    undef);
is(parse_timeshift('57.4321'), undef);
is(parse_timeshift('1:62:03'), undef);

## make_timing()
my @ts = make_timing(8*3600 + 11*60 + 15 + 0.46);
is($ts[0],   8);
is($ts[1],  11);
is($ts[2],  15);
is($ts[3], 460);