use strict;
my @aliases = qw( C POSIX chi per khm );
plan tests => 5 + scalar @aliases;
for my $alias (@aliases)
{
my $locale = eval { DateTimeX::Lite::Locale->load($alias) };
ok( !$@ && $locale, "alias mapping for $alias exists" );
}
my $locale = DateTimeX::Lite::Locale->load('eng_US');
is( $locale->id, 'eng_US', 'variant()' );
is( $locale->name, 'English United States', 'name()' );
is( $locale->language, 'English', 'language()' );
is( $locale->territory, 'United States', 'territory()' );
is( $locale->variant, undef, 'variant()' );