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