#!/usr/bin/perl

use strict;
use warnings;
use lib '.';

use Test::More tests => 21;
use DateTime;
use DateTime::Format::Flexible;
my $base = 'DateTime::Format::Flexible';

use t::lib::helper;

my $curr_year = DateTime->now->year;

my ( $base_dt ) = $base->parse_datetime( '2005-06-07' );
$base->base( $base_dt );

t::lib::helper::run_tests(
    "5-8   => 2005-05-08T00:00:00" ,
    "10-8  => 2005-10-08T00:00:00" ,
    "5-08  => 2005-05-08T00:00:00" ,
    "05-08 => 2005-05-08T00:00:00" ,

    "18-Mar   => 2005-03-18T00:00:00" ,
    "8-Mar    => 2005-03-08T00:00:00" ,
    "Mar-18   => 2005-03-18T00:00:00" ,
    "Mar-8    => 2005-03-08T00:00:00" ,
    "Dec-18   => 2005-12-18T00:00:00" ,
    "Dec-8    => 2005-12-08T00:00:00" ,
    "March-18 => 2005-03-18T00:00:00" ,
    "Dec-18   => 2005-12-18T00:00:00" ,

    "21 dec 17:05     => 2005-12-21T17:05:00" ,
    "21-dec 17:05     => 2005-12-21T17:05:00" ,
    "21/dec 17:05     => 2005-12-21T17:05:00" ,
    "///Dec///08      => 2005-12-08T00:00:00" ,
    "///Dec///08///// => 2005-12-08T00:00:00" ,
    "8:00pm December tenth => 2005-12-10T20:00:00",
    "12/10 at 05:30:25 => 2005-12-10T05:30:25",
    "12/10 at 05:30:25 GMT => 2005-12-10T05:30:25 => UTC",
);