zeroclickinfo-goodies/t/DateMath.t

#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;

zci answer_type => 'date_math';
zci is_cached => 1;

my $year = 1900 + ( localtime() )[5];
ddg_goodie_test(
	[qw(
		DDG::Goodie::DateMath
	)],
	'Jan 1 2012 plus 32 days'       => test_zci( 'Jan 1 2012 plus 32 days is 2/2/2012' ),
	'January 1 2012 plus 32 days'   => test_zci( 'January 1 2012 plus 32 days is 2/2/2012' ),
	'January 1, 2012 plus 32 days'  => test_zci( 'January 1, 2012 plus 32 days is 2/2/2012' ),
	'January 1st 2012 plus 32 days' => test_zci( 'January 1st 2012 plus 32 days is 2/2/2012' ),
	'January 1st plus 32 days'      => test_zci( "January 1st $year plus 32 days is 2/2/$year" ),
	'1/1/2012 plus 32 days'         => test_zci( '1/1/2012 plus 32 days is 2/2/2012' ),
	'1/1 plus 32 days'              => test_zci( "1/1/$year plus 32 days is 2/2/$year" ),
	'1/1/2012 plus 5 weeks'         => test_zci( '1/1/2012 plus 5 weeks is 2/5/2012' ),
	'1/1/2012 plus 5 months'        => test_zci( '1/1/2012 plus 5 months is 6/1/2012' ),
	'1/1/2012 PLUS 5 years'         => test_zci( '1/1/2012 plus 5 years is 1/1/2017' ),
	'1/1/2012 plus 1 day'           => test_zci( '1/1/2012 plus 1 day is 1/2/2012' ),
	'1/1/2012 plus 1 days'          => test_zci( '1/1/2012 plus 1 day is 1/2/2012' ),
	'01/01/2012 + 1 day'            => test_zci( '01/01/2012 + 1 day is 1/2/2012' ),
	'1/1/2012 minus ten days'       => test_zci( '1/1/2012 minus 10 days is 12/22/2011' ),
    'January First plus ten days'   => test_zci( "January 1 $year plus 10 days is 1/11/$year" ),
    'January first minus ten days' => test_zci('January 1 2014 minus 10 days is 12/22/2013'),
);

done_testing;