use strict;

use Test::More tests => 13;

use vars qw( $class );

BEGIN {

    $class = 'DateTime::Format::Mail';

    use_ok $class;

}

my $fn = sub {

    DateTime::Format::Mail::_determine_timezone( @_ );

};

my %testsuite = (

    'EDT translates' => { 'EDT' => '-0400' },

    '+0400 remains the same' => { '+0400' => '+0400' },

    'leading GMTs on valids stripped' => {

	'GMT+0300' => '+0300',

	'GMT-0300' => '-0300',

    },

    'slightly off forms' => {

	'400'	=> '+0400',

	'-400'	=> '-0400',

	'+400'	=> '+0400',

    },

    'GMT normals' => {

	'GMT'	=> '+0000',

	'UTC'	=> '+0000',

    },

    'multiple signs' => {

	'+-700'	=> '-0700',

	'--700'	=> '-0700',

    },

    'invalids to -0000' => {

	'fnar'	=> '-0000',

    },

);

for my $label (sort keys %testsuite)

{

    my $tests = $testsuite{$label};

    for my $input (sort keys %$tests)

    {

	my $expected = $tests->{$input};

	is $fn->( $input ) => $expected => "$label ($input)";

    }

}