use 5.012;
use warnings;
use Test::More;
use Test::Deep;
use lib 't/lib'; use PDTest;
tzset('Europe/Moscow');
is(tzname(), 'Europe/Moscow');
tzset('America/New_York');
is(tzname(), 'America/New_York');
if ($^O ne 'MSWin32') {
$ENV{TZ} = 'Europe/Moscow';
tzset();
is(tzname(), 'Europe/Moscow');
$ENV{TZ} = 'America/New_York';
tzset();
is(tzname(), 'America/New_York');
}
delete $ENV{TZ};
tzset();
ok(tzname());
done_testing();