Cross Reference: localtime.t
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
lib
/
Time
/
localtime.t
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
1
N/A
#!./perl
1
N/A
1
N/A
BEGIN
{
1
N/A
chdir
't'
if
-d
't'
;
1
N/A
@
INC
=
'../lib'
;
1
N/A
}
1
N/A
1
N/A
BEGIN
{
1
N/A
our
$haslocal
;
1
N/A
eval
{
my
$n =
localtime
0
};
1
N/A
$haslocal
=
1
unless
$@ && $@ =~ /
unimplemented
/;
1
N/A
unless
(
$haslocal
)
{
print
"1..0 # Skip: no localtime\n"
;
exit
0
}
1
N/A
}
1
N/A
1
N/A
BEGIN
{
1
N/A
our
@
localtime
=
localtime
0
;
# This is the function localtime.
1
N/A
unless
(@
localtime
)
{
print
"1..0 # Skip: localtime failed\n"
;
exit
0
}
1
N/A
}
1
N/A
1
N/A
print
"1..10\n"
;
1
N/A
1
N/A
use
Time
::
localtime
;
1
N/A
1
N/A
print
"ok 1\n"
;
1
N/A
1
N/A
my
$localtime
=
localtime
0
;
# This is the OO localtime.
1
N/A
1
N/A
print
"not "
unless
$localtime
->
sec
==
$localtime
[
0
];
1
N/A
print
"ok 2\n"
;
1
N/A
1
N/A
print
"not "
unless
$localtime
->
min
==
$localtime
[
1
];
1
N/A
print
"ok 3\n"
;
1
N/A
1
N/A
print
"not "
unless
$localtime
->
hour
==
$localtime
[
2
];
1
N/A
print
"ok 4\n"
;
1
N/A
1
N/A
print
"not "
unless
$localtime
->
mday
==
$localtime
[
3
];
1
N/A
print
"ok 5\n"
;
1
N/A
1
N/A
print
"not "
unless
$localtime
->
mon
==
$localtime
[
4
];
1
N/A
print
"ok 6\n"
;
1
N/A
1
N/A
print
"not "
unless
$localtime
->
year
==
$localtime
[
5
];
1
N/A
print
"ok 7\n"
;
1
N/A
1
N/A
print
"not "
unless
$localtime
->
wday
==
$localtime
[
6
];
1
N/A
print
"ok 8\n"
;
1
N/A
1
N/A
print
"not "
unless
$localtime
->
yday
==
$localtime
[
7
];
1
N/A
print
"ok 9\n"
;
1
N/A
1
N/A
print
"not "
unless
$localtime
->
isdst
==
$localtime
[
8
];
1
N/A
print
"ok 10\n"
;
1
N/A
1
N/A
1
N/A
1
N/A