use strict;
use Test::More tests => 8;
use DateTime;
{
my $dt = DateTime->new( year => 1934, month => 2, day => 26,
hour => 0, minute => 59, second => 59,
time_zone => 'UTC',
);
$dt->set_time_zone( 'Africa/Niamey' );
is( $dt->year, 1934, 'local year should be 1934 (1934-02-25 23:59:59)' );
is( $dt->month, 2, 'local month should be 2 (1934-02-25 23:59:59)' );
is( $dt->day, 25, 'local day should be 25 (1934-02-25 23:59:59)' );
is( $dt->hour, 23, 'local hour should be 23 (1934-02-25 23:59:59)' );
is( $dt->minute, 59, 'local minute should be 59 (1934-02-25 23:59:59)' );
is( $dt->second, 59, 'local second should be 59 (1934-02-25 23:59:59)' );
is( $dt->is_dst, 0, 'is_dst should be 0 (1934-02-25 23:59:59)' );
is( $dt->offset, -3600, 'offset should be -3600 (1934-02-25 23:59:59)' );
}