t/geocode/bing.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

use FixMyStreet::Test;
use FixMyStreet::Geocode::Bing;
use Catalyst::Test 'FixMyStreet::App';
use t::Mock::Bing;

my $c = ctx_request('/');

FixMyStreet::override_config {
    GEOCODING_DISAMBIGUATION => { bing_culture => 'en-GB' }
}, sub {
    my $r = FixMyStreet::Geocode::Bing->string('a result', $c);
    ok $r->{latitude};
    ok $r->{longitude};
};

FixMyStreet::override_config {
    GEOCODING_DISAMBIGUATION => { bing_country => 'United Kingdom' }
}, sub {
    my $r = FixMyStreet::Geocode::Bing->string('two results', $c);
    is scalar @{$r->{error}}, 2;
    is $r->{error}[1]{address}, 'Constitution Hill again, London';
};

my $r = FixMyStreet::Geocode::Bing->string('two results andalow', $c);
is scalar @{$r->{error}}, 2;

$r = FixMyStreet::Geocode::Bing->string('two results onlylow', $c);
is scalar @{$r->{error}}, 3;

done_testing;