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
|
use strict;
use warnings;
use Test::More;
use POSIX::strftime::Compiler;
use File::Basename;
my $inc = join ' ', map { "-I\"$_\"" } @INC;
my $dir = dirname(__FILE__);
my $found;
for my $tz (qw( Europe/Paris CET-1CEST )) {
$ENV{TZ} = $tz;
if (`$^X $inc $dir/02_timezone.pl %z 0 0 0 1 1 112` =~ /^\+0[12]00$/) {
$found = 1;
last;
};
};
if ($found) {
plan tests => 4;
}
else {
plan skip_all => 'Missing tzdata on this system';
};
my @t1 = (0, 0, 0, 1, 1, 112);
my @t2 = (0, 0, 0, 1, 7, 112);
is `$^X $inc $dir/02_timezone.pl %z @t1`, '+0100', "tmzone1($ENV{TZ})";
is `$^X $inc $dir/02_timezone.pl %Z @t1`, 'CET', "tmname1($ENV{TZ})";
is `$^X $inc $dir/02_timezone.pl %z @t2`, '+0200', "tmzone2($ENV{TZ})";
is `$^X $inc $dir/02_timezone.pl %Z @t2`, 'CEST', "tmname2($ENV{TZ})";
|
