1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
#!perl -w
BEGIN {
unshift @INC, "../../t";
require 'loc_tools.pl';
}
use strict;
use Config;
use POSIX;
use Test::More tests => 19;
# go to UTC to avoid DST issues around the world when testing. SUS3 says that
# null should get you UTC, but some environments want the explicit names.
# Those with a working tzset() should be able to use the TZ below.
$ENV{TZ} = "UTC0UTC";
SKIP: {
# It looks like POSIX.xs claims that only VMS and Mac OS traditional
# don't have tzset(). Win32 works to call the function, but it doesn't
# actually do anything. Cygwin works in some places, but not others. The
# other Win32's below are guesses.
skip "No tzset()", 2
if $^O eq "VMS" || $^O eq "cygwin" || $^O eq "djgpp" ||
$^O eq "MSWin32" || $^O eq "dos" || $^O eq "interix";
tzset();
my @tzname = tzname();
like($tzname[0], qr/(GMT|UTC)/i, "tzset() to GMT/UTC");
SKIP: {
skip "Mac OS X/Darwin doesn't handle this", 1 if $^O =~ /darwin/i;
like($tzname[1], qr/(GMT|UTC)/i, "The whole year?");
}
}
if ($^O eq "hpux" && $Config{osvers} >= 11.3) {
# HP does not support UTC0UTC and/or GMT0GMT, as they state that this is
# legal syntax but as it has no DST rule, it cannot be used. That is the
# conclusion of bug
# QXCR1000896916: Some timezone valuesfailing on 11.31 that work on 11.23
$ENV{TZ} = "UTC";
}
# asctime and ctime...Let's stay below INT_MAX for 32-bits and
# positive for some picky systems.
is(asctime(CORE::localtime(0)), ctime(0), "asctime() and ctime() at zero");
is(asctime(POSIX::localtime(0)), ctime(0), "asctime() and ctime() at zero");
is(asctime(CORE::localtime(12345678)), ctime(12345678),
"asctime() and ctime() at 12345678");
is(asctime(POSIX::localtime(12345678)), ctime(12345678),
"asctime() and ctime() at 12345678");
# Careful! strftime() is locale sensitive. Let's take care of that
my $orig_time_loc = 'C';
my $orig_ctype_loc = 'C';
if (locales_enabled('LC_TIME')) {
$orig_time_loc = setlocale(LC_TIME) || die "Cannot get time locale information: $!";
setlocale(LC_TIME, "C") || die "Cannot setlocale() to C: $!";
}
if (locales_enabled('LC_CTYPE')) {
$orig_ctype_loc = setlocale(LC_CTYPE) || die "Cannot get ctype locale information: $!";
setlocale(LC_CTYPE, "C") || die "Cannot setlocale() to C: $!";
}
my $jan_16 = 15 * 86400;
is(ctime($jan_16), strftime("%a %b %d %H:%M:%S %Y\n", CORE::localtime($jan_16)),
"get ctime() equal to strftime()");
is(ctime($jan_16), strftime("%a %b %d %H:%M:%S %Y\n", POSIX::localtime($jan_16)),
"get ctime() equal to strftime()");
is(strftime("%Y\x{5e74}%m\x{6708}%d\x{65e5}", CORE::gmtime($jan_16)),
"1970\x{5e74}01\x{6708}16\x{65e5}",
"strftime() can handle unicode chars in the format string");
is(strftime("%Y\x{5e74}%m\x{6708}%d\x{65e5}", POSIX::gmtime($jan_16)),
"1970\x{5e74}01\x{6708}16\x{65e5}",
"strftime() can handle unicode chars in the format string");
my $ss = chr 223;
unlike($ss, qr/\w/, 'Not internally UTF-8 encoded');
is(ord strftime($ss, CORE::localtime), 223,
'Format string has correct character');
is(ord strftime($ss, POSIX::localtime(time)),
223, 'Format string has correct character');
unlike($ss, qr/\w/, 'Still not internally UTF-8 encoded');
if (locales_enabled('LC_TIME')) {
setlocale(LC_TIME, $orig_time_loc) || die "Cannot setlocale(LC_TIME) back to orig: $!";
}
if (locales_enabled('LC_CTYPE')) {
setlocale(LC_TIME, $orig_ctype_loc) || die "Cannot setlocale(LC_CTYPE) back to orig: $!";
}
# clock() seems to have different definitions of what it does between POSIX
# and BSD. Cygwin, Win32, and Linux lean the BSD way. So, the tests just
# check the basics.
like(clock(), qr/\d*/, "clock() returns a numeric value");
cmp_ok(clock(), '>=', 0, "...and it returns something >= 0");
SKIP: {
skip "No difftime()", 1 if $Config{d_difftime} ne 'define';
is(difftime(2, 1), 1, "difftime()");
}
SKIP: {
skip "No mktime()", 2 if $Config{d_mktime} ne 'define';
my $time = time();
is(mktime(CORE::localtime($time)), $time, "mktime()");
is(mktime(POSIX::localtime($time)), $time, "mktime()");
}
|
