#!perl -w
use strict;
use Test::More;
use Acme::Hidek;
use Time::Piece;
my $hidek = Acme::Hidek->new();
cmp_ok $hidek->age, '>=', 39;
cmp_ok $hidek->agef, '>', 39;
is $hidek->birthdate->year, 1970;
is $hidek->birthdate->mon, 9;
is $hidek->birthdate->mday, 2;
eval { $hidek->is_birthday };
ok(!$@);
{
close STDOUT;
open STDOUT, '>', \my $buff;
$hidek->we_love_hidek();
close STDOUT;
is $buff, "We love hidek!\n" x ($hidek->age * 100);
}
done_testing;