use strict;
use Test::More;
use Time::Piece::Plus;
use Time::Seconds;
subtest "from class method" => sub {
my $now = localtime();
my $one_day_ago = $now - ONE_DAY;
my $yesterday = Time::Piece::Plus->yesterday;
is($yesterday->strftime("%Y%m%d") => $one_day_ago->strftime("%Y%m%d"), "yesterday method returns yesterday");
is($yesterday->strftime("%H%M%S") => "000000", "yesterday method truncate times");
done_testing;
};
subtest "from instance method" => sub {
my $sometime = "2011-11-25 15:00:02";
my $time = localtime(Time::Piece::Plus->strptime($sometime, "%Y-%m-%d %H:%M:%S"));
my $one_day_ago = $time - ONE_DAY;
my $yesterday = $time->yesterday;
is($yesterday->strftime("%Y%m%d") => $one_day_ago->strftime("%Y%m%d"), "yesterday method returns yesterday");
is($yesterday->strftime("%H%M%S") => "000000", "yesterday method truncate times");
done_testing;
};
done_testing();