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
|
use strict;
use warnings;
use lib 't/lib';
use Test::GeoIP2 qw(
test_model_class
test_model_class_with_empty_record
test_model_class_with_unknown_keys
);
use Test::More 0.88;
use GeoIP2::Model::City;
{
my %raw = (
city => {
geoname_id => 9876,
names => { en => 'Minneapolis' },
},
continent => {
code => 'NA',
geoname_id => 42,
names => { en => 'North America' },
},
country => {
geoname_id => 1,
iso_code => 'US',
names => {
'de' => 'Nordamerika',
'en' => 'North America',
'es' => 'América del Norte',
'fr' => 'Amérique du Nord',
'ja' => '北アメリカ',
'pt-BR' => 'América do Norte',
'ru' => 'Северная Америка',
'zh-CN' => '北美洲',
},
},
location => {
accuracy_radius => 1500,
latitude => 44.98,
longitude => 93.2636,
metro_code => 765,
time_zone => 'America/Chicago',
},
maxmind => {
queries_remaining => 42,
},
postal => {
code => '12345',
},
registered_country => {
geoname_id => 2,
iso_code => 'CA',
names => { en => 'Canada' },
},
represented_country => {
geoname_id => 3,
iso_code => 'GB',
names => { en => 'United Kingdom' },
},
subdivisions => [
{
geoname_id => 574635,
iso_code => 'MN',
names => { en => 'Minnesota' },
},
],
traits => {
autonomous_system_number => 1234,
autonomous_system_organization => 'AS Organization',
domain => 'example.com',
ip_address => '1.2.3.4',
is_satellite_provider => 1,
isp => 'Comcast',
organization => 'Blorg',
},
);
test_model_class( 'GeoIP2::Model::City', \%raw );
}
{
test_model_class_with_empty_record('GeoIP2::Model::City');
test_model_class_with_unknown_keys('GeoIP2::Model::City');
}
done_testing();
|
