#!/usr/bin/perl
use strict;
use warnings;
use lib '.';
use Test::More tests => 6;
use DateTime;
use t::lib::helper;
use DateTime::Format::Flexible;
my $base = 'DateTime::Format::Flexible';
my $curr_year = DateTime->now->year;
{
my $dt = DateTime->new( year => 2006 );
is( $base->_pick_year( '06' , $dt->clone ) , '2006' , '06 becomes 2006 in 2006' );
is( $base->_pick_year( 6 , $dt->clone ) , '2006' , '6 becomes 2006 in 2006' );
}
{
my $dt = DateTime->new( year => 1999 );
is( $base->_pick_year( '06' , $dt->clone ) , '2006' , '06 becomes 2006 in 1999' );
is( $base->_pick_year( 98 , $dt->clone ) , '1998' , '98 becomes 1998 in 1999' );
}
{
my $dt = DateTime->new( year => 1969 );
is( $base->_pick_year( 50 , $dt->clone ) , '1950' , '50 becomes 1950 in 1969' );
is( $base->_pick_year( 5 , $dt->clone ) , '1905' , '5 becomes 1905 in 1969' );
}