1use strict; 2use warnings; 3 4use Test::More tests => 5; 5 6use DateTime::Locale; 7 8DateTime::Locale->add_aliases( foo => 'root' ); 9DateTime::Locale->add_aliases( bar => 'foo' ); 10DateTime::Locale->add_aliases( baz => 'bar' ); 11eval { DateTime::Locale->add_aliases( bar => 'baz' ) }; 12 13like( $@, qr/loop/, 'cannot add an alias that would cause a loop' ); 14 15my $l = DateTime::Locale->load('baz'); 16isa_ok( $l, 'DateTime::Locale::Base' ); 17is( $l->id, 'baz', 'id is baz' ); 18 19ok( DateTime::Locale->remove_alias('baz'), 20 'remove_alias should return true' ); 21 22eval { DateTime::Locale->load('baz') }; 23like( $@, qr/invalid/i, 'removed alias should be gone' ); 24