7 use Test::More tests => 9;
9 # go to UTC to avoid DST issues around the world when testing. SUS3 says that
10 # null should get you UTC, but some environments want the explicit names.
11 # Those with a working tzset() should be able to use the TZ below.
15 # It looks like POSIX.xs claims that only VMS and Mac OS traditional
16 # don't have tzset(). Win32 works to call the function, but it doesn't
17 # actually do anything. Cygwin works in some places, but not others. The
18 # other Win32's below are guesses.
20 if $^O eq "MacOS" || $^O eq "VMS" || $^O eq "cygwin" || $^O eq "djgpp" ||
21 $^O eq "MSWin32" || $^O eq "dos" || $^O eq "interix";
23 my @tzname = tzname();
24 like($tzname[0], qr/[GMT|UTC]/i, "tzset() to GMT/UTC");
26 skip "Mac OS X/Darwin doesn't handle this", 1 if $^O =~ /darwin/i;
27 like($tzname[1], qr/[GMT|UTC]/i, "The whole year?");
31 # asctime and ctime...Let's stay below INT_MAX for 32-bits and
32 # positive for some picky systems.
34 is(asctime(localtime(0)), ctime(0), "asctime() and ctime() at zero");
35 is(asctime(localtime(12345678)), ctime(12345678), "asctime() and ctime() at 12345678");
37 # Careful! strftime() is locale sensative. Let's take care of that
38 my $orig_loc = setlocale(LC_TIME, "C") || die "Cannot setlocale() to C: $!";
39 if ($^O eq "MSWin32") {
40 is(ctime(0), strftime("%a %b %d %H:%M:%S %Y\n", localtime(0)),
41 "get ctime() equal to strftime()");
43 is(ctime(0), strftime("%a %b %e %H:%M:%S %Y\n", localtime(0)),
44 "get ctime() equal to strftime()");
46 setlocale(LC_TIME, $orig_loc) || die "Cannot setlocale() back to orig: $!";
48 # clock() seems to have different definitions of what it does between POSIX
49 # and BSD. Cygwin, Win32, and Linux lean the BSD way. So, the tests just
51 like(clock(), qr/\d*/, "clock() returns a numeric value");
52 ok(clock() >= 0, "...and it returns something >= 0");
55 skip "No difftime()", 1 if $Config{d_difftime} ne 'define';
56 is(difftime(2, 1), 1, "difftime()");
60 skip "No mktime()", 1 if $Config{d_mktime} ne 'define';
62 is(mktime(localtime($time)), $time, "mktime()");