[p5sagit/p5-mst-13.2.git] / t / lib / time-piece.t

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

print "1..4\n";

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

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

print "not " unless $t->year == 1980;
print "ok 2\n";

print "not " unless $t->hour == 0;
print "ok 3\n";

print "not " unless $t->mon == 1;
print "ok 4\n";
Commit	Line	Data
302d38aa	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";