use strict;
use warnings;
use Test::Base;
use Acme::DateTime::Duration::Numeric;
use DateTime;
filters { expected => 'chomp', input => 'chomp' };
my $base = DateTime->new(year => 2008, month => 1, day => 15);
plan tests => 1 * blocks;
run {
my $block = shift;
my $datetime = eval "use Acme::DateTime::Duration::Numeric;" . $block->input . "(\$base)";
die $@ if $@;
is $datetime->iso8601, $block->expected, $block->input;
};
__END__
===
--- input: 1->year->ago
--- expected: 2007-01-15T00:00:00
===
--- input: 2->minutes->until
--- expected: 2008-01-14T23:58:00
===
--- input: 2->hours->from_now
--- expected: 2008-01-15T02:00:00
===
--- input: 3->years->since
--- expected: 2011-01-15T00:00:00