use strict;
use warnings;

use lib 't/lib';
use T::RequireDateTime;

use Test::More;
use Test::Fatal;

is(
    exception { DateTime::TimeZone::OffsetOnly->new( offset => 'bad' ) },
    "Invalid offset: bad\n",
    'test that OffsetOnly does not allow invalid offsets'
);

{
    my $off = DateTime::TimeZone::OffsetOnly->new( offset => '-0100' );
    is( $off->name, '-0100', 'name is -0100' );
}

my @good_offsets = (
    [ '0',         'UTC' ],
    [ '0000',      'UTC' ],
    [ '000000',    'UTC' ],
    [ '1000',      '+1000' ],
    [ '100001',    '+100001' ],
    [ '10:00:02',  '+100002' ],
    [ '+0000',     'UTC' ],
    [ '+000000',   'UTC' ],
    [ '+000001',   '+000001' ],
    [ '+00:00:02', '+000002' ],
    [ '-0000',     'UTC' ],
    [ '-000000',   'UTC' ],
    [ '-000001',   '-000001' ],
    [ '-00:00:02', '-000002' ],
    [ '+9959',     '+9959' ],
    [ '+995959',   '+995959' ],
    [ '+99:59:58', '+995958' ],
    [ '-9959',     '-9959' ],
    [ '-995959',   '-995959' ],
    [ '-99:59:58', '-995958' ],
    [ '1:11:11',   '+011111' ],
    [ '+1:11:11',  '+011111' ],
    [ '-1:11:11',  '-011111' ],
    [ '1:11',      '+0111' ],
    [ '+1:11',     '+0111' ],
    [ '-1:11',     '-0111' ],
);

my @bad_offsets = (
    '+0', '-0',
    '1',        '+1',        '-1',
    '1:',       '+1:',       '-1:',
    ':1',       '+:1',       '-:1',
    '11',       '+11',       '-11',
    '11:',      '+11:',      '-11:',
    '1:1',      '+1:1',      '-1:1',
    ':11',      '+:11',      '-:11',
    '111',      '+111',      '-111',
    '111:',     '+111:',     '-111:',
    '11:1',     '+11:1',     '-11:1',
    ':111',     '+:111',     '-:111',
    ':11:1',    '+:11:1',    '-:11:1',
    '1:11:',    '+1:11:',    '-1:11:',
    '1111:',    '+1111:',    '-1111:',
    '111:1',    '+111:1',    '-111:1',
    '1:111',    '+1:111',    '-1:111',
    ':1111',    '+:1111',    '-:1111',
    ':11:11',   '+:11:11',   '-:11:11',
    '1:11:1',   '+1:11:1',   '-1:11:1',
    '11:11:',   '+11:11:',   '-11:11:',
    '11111',    '+11111',    '-11111',
    '11111:',   '+11111:',   '-11111:',
    '1111:1',   '+1111:1',   '-1111:1',
    '111:11',   '+111:11',   '-111:11',
    '11:111',   '+11:111',   '-11:111',
    '1:1111',   '+1:1111',   '-1:1111',
    ':11111',   '+:11111',   '-:11111',
    ':11:111',  '+:11:111',  '-:11:111',
    '11:11:1',  '+11:11:1',  '-11:11:1',
    '111:11:',  '+111:11:',  '-111:11:',
    '111111:',  '+111111:',  '-111111:',
    '11111:1',  '+11111:1',  '-11111:1',
    '1111:11',  '+1111:11',  '-1111:11',
    '111:111',  '+111:111',  '-111:111',
    '11:1111',  '+11:1111',  '-11:1111',
    '1:11111',  '+1:11111',  '-1:11111',
    ':111111',  '+:111111',  '-:111111',
    ':11:1111', '+:11:1111', '-:11:1111',
    '1:11:111', '+1:11:111', '-1:11:111',
    '111:11:1', '+111:11:1', '-111:11:1',
    '1111:11:', '+1111:11:', '-1111:11:',
    '1111111',  '+1111111',  '-1111111',
    '00:60',    '+00:60',    '-00:60',
    '00:99',    '+00:99',    '-00:99',
    '00:60:00', '+00:60:00', '-00:60:00',
    '00:99:00', '+00:99:00', '-00:99:00',
    '00:00:60', '+00:00:60', '-00:00:60',
    '00:00:99', '+00:00:99', '-00:00:99',
    '00:60:60', '+00:60:60', '-00:60:60',
    '00:99:99', '+00:99:99', '-00:99:99',
);

foreach (@good_offsets) {
    my $off = DateTime::TimeZone::OffsetOnly->new( offset => $_->[0] );
    is( $off->name, $_->[1], "name matches $_->[1]" );
}

foreach (@bad_offsets) {
    like(
        exception { DateTime::TimeZone::OffsetOnly->new( offset => $_ ) },
        qr/Invalid offset/,
        "$_ is invalid"
    );
}

done_testing();