#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 6;

use DateTime::Format::Flexible;

{
    my $dt = DateTime::Format::Flexible->parse_datetime('12/2010');
    is ( $dt->datetime, '2010-12-01T00:00:00', 'MM/YYYY in past works' );
}
{
    my $curr_year = DateTime->now->year;
    my $dt = DateTime::Format::Flexible->parse_datetime('12/13');
    is ( $dt->datetime, $curr_year.'-12-13T00:00:00', 'MM/DD works' );
}
{
    my $dt = DateTime::Format::Flexible->parse_datetime(
        '12/13', MMYY => 1
    );
    is ( $dt->datetime, '2013-12-01T00:00:00', 'MM/YY works with MMYY' );
}

{
    my $dt = DateTime::Format::Flexible->parse_datetime(
        '1/10', MMYY => 1
    );
    is ( $dt->datetime, '2010-01-01T00:00:00', 'M/YY works with MMYY' );
}

{
    my $dt = DateTime::Format::Flexible->parse_datetime(
        '1/1', MMYY => 1
    );
    is ( $dt->datetime, '2001-01-01T00:00:00', 'M/Y works with MMYY' );
}

{
    my $dt = DateTime::Format::Flexible->parse_datetime('1/32');
    is ( $dt->datetime, '2032-01-01T00:00:00', 'M/YY works when year > 31' );
}