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