-
Notifications
You must be signed in to change notification settings - Fork 4
/
Geocoder.t
154 lines (132 loc) · 3.93 KB
/
Geocoder.t
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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
use strict;
use warnings;
use utf8;
use Test::More;
use VegGuide::Config;
BEGIN {
use Test::MockObject;
Test::MockObject->new()->fake_module('Geo::Coder::Google');
}
{
package Geo::Coder::Google;
our $VERSION = 42;
sub new {
return bless {}, shift;
}
sub geocode {
my $self = shift;
my $address = shift;
my @coords = (
[ qr/\Q2600 Emerson/ => [ 44.955565, -93.294425 ] ],
[ qr/\Q27 King/ => [ -25.335448, 135.745076 ] ],
[ qr/\Q254 Spadina/ => [ 43.651664, -79.397848 ] ],
[ qr/\Q中区央/ => [ 123, 456 ] ],
);
for my $pair (@coords) {
if ( $address =~ $pair->[0] ) {
return $self->_fake_return( @{ $pair->[1] } );
}
}
return $self->_fake_return();
}
sub _fake_return {
shift;
my $lat = shift;
my $long = shift;
return {
geometry => {
location => {
lat => $lat,
lng => $long,
},
},
};
}
}
require VegGuide::Geocoder;
my %addresses = address_test_data();
{
for my $c ( sort keys %addresses ) {
my $geocoder = VegGuide::Geocoder->new( country => $c );
my $result = $geocoder->geocode( %{ $addresses{$c}{address} } );
is(
$result->latitude(), $addresses{$c}{expect}{lat},
"lat for $c is $addresses{$c}{expect}{lat}"
);
is(
$result->longitude(), $addresses{$c}{expect}{long},
"long for $c is $addresses{$c}{expect}{long}"
);
}
}
{
for my $c ( sort keys %addresses ) {
my $geocoder = VegGuide::Geocoder->new( country => $c );
my $meth = $geocoder->{method};
my $address = $geocoder->$meth( %{ $addresses{$c}{address} } );
is(
$address, $addresses{$c}{expect}{processed},
"address processing for $c"
);
}
}
done_testing();
sub address_test_data {
return (
'United States' => {
address => {
address1 => '2600 Emerson Ave S',
city => 'Minneapolis',
region => 'MN',
postal_code => '55408-1234',
},
expect => {
lat => 44.955565,
long => -93.294425,
processed => '2600 Emerson Ave S, 55408-1234, USA',
},
},
'Australia' => {
address => {
address1 => '27 King Street',
city => 'Sydney',
region => 'New South Wales',
postal_code => '2000'
},
expect => {
lat => -25.335448,
long => 135.745076,
processed => '27 King Street, 2000, Australia',
},
},
'Canada',
{
address => {
address1 => '254 Spadina Avenue',
city => 'Toronto',
region => 'Ontario',
postal_code => 'M5T 2E2',
},
expect => {
lat => 43.651664,
long => -79.397848,
processed => '254 Spadina Avenue, M5T 2E2, Canada',
},
},
'Japan' => {
address => {
address1 => 'Ginza Kosaka buildings 7-9F, 6-9-4 Ginza',
localized_address1 => '銀座小坂ビル7〜9F, 銀座',
city => 'Ginza',
localized_city => '銀座',
region => 'Chou-Ku',
localized_region => '中区央',
},
expect => {
lat => 123,
long => 456,
processed => '中区央, 銀座',
},
},
);
}