1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
use strict;
use warnings;
use utf8;
use Test::Builder;
use Test::More 0.88;
use GeoIP2::Model::Country;
{
my $tb = Test::Builder->new();
## no critic (InputOutput::RequireCheckedSyscalls
binmode $_, ':encoding(UTF-8)' for $tb->output(),
$tb->failure_output(),
$tb->todo_output();
## use critic
}
my %raw = (
continent => {
code => 'NA',
geoname_id => 42,
names => {
en => 'North America',
'zh-CN' => '北美洲',
},
},
country => {
geoname_id => 1,
iso_code => 'US',
names => {
en => 'United States of America',
ru => 'объединяет государства',
'zh-CN' => '美国',
},
},
traits => {
ip_address => '1.2.3.4',
},
);
{
my $model = GeoIP2::Model::Country->new(
%raw,
locales => [ 'ru', 'zh-CN', 'en' ],
);
is(
$model->continent()->name(),
'北美洲',
'continent name is in Chinese (no Russian available)'
);
is(
$model->country()->name(),
'объединяет государства',
'country name is in Russian'
);
}
{
my $model = GeoIP2::Model::Country->new(
%raw,
locales => [ 'ru', 'ja' ],
);
is(
$model->continent()->name(),
undef,
'continent name is undef (no Russian or Japanese available)'
);
is(
$model->country()->name(),
'объединяет государства',
'country name is in Russian'
);
}
{
my $model = GeoIP2::Model::Country->new(
%raw,
locales => ['ja'],
);
is(
$model->continent()->name(),
undef,
'continent name is undef (no Japanese available) '
);
is(
$model->country()->name(),
undef,
'country name is undef (no Japanese available) '
);
}
done_testing();
|
