#!/usr/bin/perl

use strict;
use warnings;

use DateTime::Format::Natural;
use DateTime::Format::Natural::Test ':set';
use DateTime::TimeZone;
use Test::More;

my @simple = (
    { 'now'                          => '24.11.2006 01:13:08'     },
    { 'today'                        => '24.11.2006 00:00:00'     },
    { 'yesterday'                    => '23.11.2006 00:00:00'     },
    { 'tomorrow'                     => '25.11.2006 00:00:00'     },
    { 'morning'                      => '24.11.2006 08:00:00'     },
    { 'afternoon'                    => '24.11.2006 14:00:00'     },
    { 'evening'                      => '24.11.2006 20:00:00'     },
    { 'noon'                         => '24.11.2006 12:00:00'     },
    { 'midnight'                     => '24.11.2006 00:00:00'     },
    { 'yesterday {at} noon'          => '23.11.2006 12:00:00'     },
    { 'yesterday {at} midnight'      => '23.11.2006 00:00:00'     },
    { 'today {at} noon'              => '24.11.2006 12:00:00'     },
    { 'today {at} midnight'          => '24.11.2006 00:00:00'     },
    { 'tomorrow {at} noon'           => '25.11.2006 12:00:00'     },
    { 'tomorrow {at} midnight'       => '25.11.2006 00:00:00'     },
    { 'this morning'                 => '24.11.2006 08:00:00'     },
    { 'this afternoon'               => '24.11.2006 14:00:00'     },
    { 'this evening'                 => '24.11.2006 20:00:00'     },
    { 'yesterday morning'            => '23.11.2006 08:00:00'     },
    { 'yesterday afternoon'          => '23.11.2006 14:00:00'     },
    { 'yesterday evening'            => '23.11.2006 20:00:00'     },
    { 'today morning'                => '24.11.2006 08:00:00'     },
    { 'today afternoon'              => '24.11.2006 14:00:00'     },
    { 'today evening'                => '24.11.2006 20:00:00'     },
    { 'tomorrow morning'             => '25.11.2006 08:00:00'     },
    { 'tomorrow afternoon'           => '25.11.2006 14:00:00'     },
    { 'tomorrow evening'             => '25.11.2006 20:00:00'     },
    { 'march'                        => '01.03.2006 00:00:00'     },
    { '4th february'                 => '04.02.2006 00:00:00'     },
    { 'november 3rd'                 => '03.11.2006 00:00:00'     },
    { 'saturday'                     => '25.11.2006 00:00:00'     },
    { 'last wednesday'               => '15.11.2006 00:00:00'     },
    { 'last june'                    => '01.06.2005 00:00:00'     },
    { 'last month'                   => '01.10.2006 00:00:00'     },
    { 'last year'                    => '01.01.2005 00:00:00'     },
    { 'next friday'                  => '01.12.2006 00:00:00'     },
    { 'next october'                 => '01.10.2007 00:00:00'     },
    { 'next month'                   => '01.12.2006 00:00:00'     },
    { 'next year'                    => '01.01.2007 00:00:00'     },
    { 'this thursday'                => '23.11.2006 00:00:00'     },
    { 'this month'                   => '01.11.2006 00:00:00'     },
    { '5{min_sec}{ }am'              => '24.11.2006 05:{min_sec}' },
    { '5{min_sec}{ }am yesterday'    => '23.11.2006 05:{min_sec}' },
    { '5{min_sec}{ }am today'        => '24.11.2006 05:{min_sec}' },
    { '5{min_sec}{ }am tomorrow'     => '25.11.2006 05:{min_sec}' },
    { '4{min_sec}{ }pm'              => '24.11.2006 16:{min_sec}' },
    { '4{min_sec}{ }pm yesterday'    => '23.11.2006 16:{min_sec}' },
    { '4{min_sec}{ }pm today'        => '24.11.2006 16:{min_sec}' },
    { '4{min_sec}{ }pm tomorrow'     => '25.11.2006 16:{min_sec}' },
    { 'sunday {at} 11:00{sec}'       => '26.11.2006 11:00:{sec}'  },
    { 'mon {at} 2:35{sec}'           => '20.11.2006 02:35:{sec}'  },
    { '13:45{sec}'                   => '24.11.2006 13:45:{sec}'  },
    { 'may 2002'                     => '01.05.2002 00:00:00'     },
    { '2nd monday'                   => '13.11.2006 00:00:00'     },
    { '100th day'                    => '10.04.2006 00:00:00'     },
    { '6 in the morning'             => '24.11.2006 06:00:00'     },
    { 'sat 7 in the evening'         => '25.11.2006 19:00:00'     },
    { 'this second'                  => '24.11.2006 01:13:08'     },
    { 'yesterday {at} 4:00{sec}'     => '23.11.2006 04:00:{sec}'  },
    { 'last january'                 => '01.01.2005 00:00:00'     },
    { 'last friday {at} 20:00{sec}'  => '17.11.2006 20:00:{sec}'  },
    { 'tomorrow {at} 6:45{sec}{ }pm' => '25.11.2006 18:45:{sec}'  },
    { 'yesterday afternoon'          => '23.11.2006 14:00:00'     },
    { 'thursday last week'           => '16.11.2006 00:00:00'     },
);

_run_tests(260, [ [ \@simple ] ], \&compare);

sub compare
{
    my $aref = shift;

    foreach my $tz ('Asia/Tokyo', DateTime::TimeZone->new(name => 'Asia/Tokyo')) {
        foreach my $href (@$aref) {
            my $key = (keys %$href)[0];
            foreach my $entry ($time_entries->($key, $href->{$key})) {
                foreach my $string ($case_strings->($entry->[0])) {
                    compare_strings($string, $entry->[1], $tz);
                }
            }
        }
    }
}

sub compare_strings
{
    my ($string, $result, $tz) = @_;

    my $parser = DateTime::Format::Natural->new(time_zone => 'UTC');
    $parser->_set_datetime(\%time, $tz);

    my $dt = $parser->parse_datetime($string);

    if ($parser->success) {
        is(_result_string($dt), $result, _message($string));
    }
    else {
        fail(_message($string));
    }
}