#!/perl -I..

use strict;
use Test::More tests => 12;

BEGIN { $Time::Format::NOXS = 1 }
BEGIN { use_ok 'Time::Format', qw(time_format %time) }

my $manip_bad;
BEGIN
{
    eval 'use Date::Manip ()';
    if ($@)
    {
        $manip_bad = 'Date::Manip is not available';
    }
    else
    {
        # If Date::Manip can't determine the time zone, it'll bomb out of the tests.
        eval 'Date::Manip::Date_TimeZone()';
        $manip_bad = "Date::Manip cannot determine time zone" if $@;
    }
}

# Get day/month names in current locale
my ($Thursday, $Thu, $June, $Jun);
eval
{
    require I18N::Langinfo;
    I18N::Langinfo->import qw(langinfo DAY_3 MON_12 DAY_5 ABDAY_5 MON_6 ABMON_6);
    ($Thursday, $Thu, $June, $Jun) = map ucfirst lc langinfo($_), (DAY_5(), ABDAY_5(), MON_6(), ABMON_6());
};
if ($@)
{
    ($Thursday, $Thu, $June, $Jun) = qw(Thursday Thu June Jun);
}

SKIP:
{
    skip $manip_bad, 11  if $manip_bad;

    my $t = Date::Manip::ParseDate('June 5, 2003 at 1:58:09 pm');

    # time_format tests (5)
    is time_format('yyyymmdd', $t),  '20030605'    => 'mm month';
    is time_format('hhmmss',   $t),  '135809'      => 'mm minute';
    is time_format('MONTH',    $t),  uc $June      => 'uc month name';
    is time_format('weekday',  $t),  lc $Thursday  => 'lc weekday';
    is time_format('\QToday is\E yyyy/mm/dd hh:mm:ss',  $t),  'Today is 2003/06/05 13:58:09'  => 'Full timestamp';

    is $time{'yyyymmdd', $t},  '20030605'    => 'month: mm';
    is $time{'hhmmss',   $t},  '135809'      => 'mm minute';
    is $time{'MONTH',    $t},  uc $June      => 'uc month name';
    is $time{'weekday',  $t},  lc $Thursday  => 'lc weekday';
    is  $time{'\QToday is\E yyyy/mm/dd hh:mm:ss',  $t},  'Today is 2003/06/05 13:58:09'  => 'Full timestamp';
    is "$time{'\QToday is\E yyyy/mm/dd hh:mm:ss',  $t}", 'Today is 2003/06/05 13:58:09'  => 'Full timestamp';
}