Time-Object-1.00/t/base.t

print "1..4\n";

use Time::Object;
print "ok 1\n";

my $t = gmtime(315532800); # 00:00:00 1/1/1980

print "not " if ($t->year != 1980);
print "ok 2\n";

print "not " if ($t->hour);
print "ok 3\n";

print "not " if ($t->mon != 1);
print "ok 4\n";