t/lib/time-piece.t

   1 BEGIN {
   2     chdir 't' if -d 't';
   3     @INC = '../lib';
   4 }
   5
   6 print "1..4\n";
   7
   8 use Time::Piece;
   9 print "ok 1\n";
  10
  11 my $t = gmtime(315532800); # 00:00:00 1/1/1980
  12
  13 print "not " unless $t->year == 1980;
  14 print "ok 2\n";
  15
  16 print "not " unless $t->hour == 0;
  17 print "ok 3\n";
  18
  19 print "not " unless $t->mon == 1;
  20 print "ok 4\n";