Commit | Line | Data |
2da668d2 |
1 | #!perl -w |
2 | |
3 | use strict; |
4 | |
5 | use Config; |
6 | use POSIX; |
7 | use Test::More qw(no_plan); |
8 | |
9 | # go to UTC to avoid DST issues around the world when testing |
10 | { |
11 | no warnings 'uninitialized'; |
12 | $ENV{TZ} = undef; |
13 | } |
14 | |
15 | SKIP: { |
16 | # It looks like POSIX.xs claims that only VMS and Mac OS traditional |
17 | # don't have tzset(). A config setting might be helpful. Win32 actually |
18 | # seems ambiguous |
19 | skip "No tzset()", 2 |
20 | if $^O eq "MacOS" || $^O eq "VMS" || $^O eq "cygwin" || |
21 | $^O eq "MSWin32" || $^O eq "dos" || $^O eq "interix"; |
22 | tzset(); |
23 | my @tzname = tzname(); |
24 | like($tzname[0], qr/[GMT|UTC]/i, "tzset() to GMT/UTC"); |
25 | like($tzname[1], qr/[GMT|UTC]/i, "The whole year?"); |
26 | } |
27 | |
28 | # asctime and ctime...Let's stay below INT_MAX for 32-bits and |
29 | # positive for some picky systems. |
30 | |
31 | is(asctime(localtime(0)), ctime(0), "asctime() and ctime() at zero"); |
32 | is(asctime(localtime(12345678)), ctime(12345678), "asctime() and ctime() at 12345678"); |
33 | |
34 | # Careful! strftime() is locale sensative. Let's take care of that |
35 | SKIP: { |
36 | skip "Win32's is missing a %e" if $^O eq "MSWin32"; |
37 | my $orig_loc = setlocale(LC_TIME, "C") || die "Cannot setlocale() to C: $!"; |
38 | is(ctime(86400), strftime("%a %b %e %H:%M:%S %Y\n", localtime(86400)), |
39 | "get ctime() equal to strftime()"); |
40 | setlocale(LC_TIME, $orig_loc) || die "Cannot setlocale() back to orig: $!"; |
41 | } |
42 | |
43 | # Hard to test other than to make sure it returns something numeric and < 0 |
44 | like(clock(), qr/\d*/, "clock() returns a numeric value"); |
45 | ok(clock() > 0, "...and its greater than zero"); |
46 | |
47 | SKIP: { |
48 | skip "No difftime()", 1 if $Config{d_difftime} ne 'define'; |
49 | is(difftime(2, 1), 1, "difftime()"); |
50 | } |
51 | |
52 | SKIP: { |
53 | skip "No mktime()", 1 if $Config{d_mktime} ne 'define'; |
54 | my $time = time(); |
55 | is(mktime(localtime($time)), $time, "mktime()"); |
56 | } |