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
|
use Date::Format qw(time2str strftime);
use Date::Parse qw(strptime str2time);
print "1..8\n";
my $i = 1;
{ # RT#45067 Date::Format with %z gives wrong results for half-hour timezones
foreach my $zone (qw(-0430 -0445)) {
my $zone_str = time2str("%Z %z", time, $zone);
print "# $zone => $zone_str\n";
print "not " unless $zone_str eq "$zone $zone";
print "ok ", $i++, "\n";
}
}
{ # RT#48164: Date::Parse unable to set seconds correctly
foreach my $str ("2008.11.30 22:35 CET", "2008-11-30 22:35 CET") {
my @t = strptime($str);
my $t = join ":", map { defined($_) ? $_ : "-" } @t;
print "# $str => $t\n";
print "not " unless $t eq "-:35:22:30:10:108:3600";
print "ok ", $i++, "\n";
}
}
{ # RT#17396: Parse error for french date with 'mars' (march) as month
use Date::Language;
my $dateP = Date::Language->new('French');
my $timestamp = $dateP->str2time('4 mars 2005');
my ($ss, $mm, $hh, $day, $month, $year, $zone) = localtime $timestamp;
$month++;
$year += 1900;
my $date = "$day/$month/$year";
print "# $date\n";
print "not " unless $date eq "4/3/2005";
print "ok ", $i++, "\n";
}
{ # [rt.cpan.org #52387] seconds since the Epoch, UCT
my $time = time;
my @lt = localtime(time);
print "not " unless strftime("%s", @lt) eq $time;
print "ok ", $i++, "\n";
print "not " unless time2str("%s",$time) eq $time;
print "ok ", $i++, "\n";
}
{ # [rt.cpan.org #51664] Change in str2time behaviour between 1.16 and 1.19
print "not " if str2time('16 Oct 09') < 0;
print "ok ", $i++, "\n";
}
|
