use strict;
use warnings;
use Test::More tests => 3;
use DateTime;
use DateTime::TimeZone;
use DateTime::TimeZone::Alias;
# remove an alias
{
DateTime::TimeZone::Alias->set( yap => 'Pacific/Yap' );
my $dt = DateTime->now( time_zone => 'yap' );
isa_ok( $dt, 'DateTime' );
DateTime::TimeZone::Alias->remove( qw( yap ) );
eval { DateTime::TimeZone->new( name => 'yap' ) };
like( $@, qr/Invalid offset/ );
}
# attempt to remove an alias that doesn't exist
{
eval { DateTime::TimeZone::Alias->remove( qw( yap ) ) };
like( $@, qr/Attempt to delete a nonexistant alias/ );
}