1use strict;
2use warnings;
3
4use Test::More;
5
6use DateTime::Locale;
7
8my @aliases = qw( C POSIX chi per khm );
9
10plan tests => 5 + scalar @aliases;
11
12for my $alias (@aliases) {
13    ok( DateTime::Locale->load($alias), "alias mapping for $alias exists" );
14}
15
16my $locale = DateTime::Locale->load('eng_US');
17
18is( $locale->id, 'eng_US', 'variant()' );
19
20is( $locale->name,      'English United States', 'name()' );
21is( $locale->language,  'English',               'language()' );
22is( $locale->territory, 'United States',         'territory()' );
23is( $locale->variant,   undef,                   'variant()' );
24