This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Additional tests for B and POSIX. The POSIX ones concern me a bit,
[perl5.git] / ext / POSIX / t / time.t
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 }