RE: Untested libraries update
[p5sagit/p5-mst-13.2.git] / lib / Time / gmtime.t
1 #!./perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = '../lib';
6 }
7
8 BEGIN {
9     our $hasgm;
10     eval { my $n = gmtime 0 };
11     $hasgm = 1 unless $@ && $@ =~ /unimplemented/;
12     unless ($hasgm) { print "1..0 # Skip: no gmtime\n"; exit 0 }
13 }
14
15 BEGIN {
16     our @gmtime = gmtime 0; # This is the function gmtime.
17     unless (@gmtime) { print "1..0 # Skip: gmtime failed\n"; exit 0 }
18 }
19
20 print "1..10\n";
21
22 use Time::gmtime;
23
24 print "ok 1\n";
25
26 my $gmtime = gmtime 0 ; # This is the OO gmtime.
27
28 print "not " unless $gmtime->sec   == $gmtime[0];
29 print "ok 2\n";
30
31 print "not " unless $gmtime->min   == $gmtime[1];
32 print "ok 3\n";
33
34 print "not " unless $gmtime->hour  == $gmtime[2];
35 print "ok 4\n";
36
37 print "not " unless $gmtime->mday  == $gmtime[3];
38 print "ok 5\n";
39
40 print "not " unless $gmtime->mon   == $gmtime[4];
41 print "ok 6\n";
42
43 print "not " unless $gmtime->year  == $gmtime[5];
44 print "ok 7\n";
45
46 print "not " unless $gmtime->wday  == $gmtime[6];
47 print "ok 8\n";
48
49 print "not " unless $gmtime->yday  == $gmtime[7];
50 print "ok 9\n";
51
52 print "not " unless $gmtime->isdst == $gmtime[8];
53 print "ok 10\n";
54
55
56
57