diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/Mock/Bing.pm | 17 | ||||
| -rw-r--r-- | t/geocode/bing.t | 6 |
2 files changed, 23 insertions, 0 deletions
diff --git a/t/Mock/Bing.pm b/t/Mock/Bing.pm index 77045950f..cc4dab845 100644 --- a/t/Mock/Bing.pm +++ b/t/Mock/Bing.pm @@ -19,6 +19,7 @@ sub dispatch_request { my $results = [ { point => { coordinates => [ 51, -1 ] }, name => 'Constitution Hill, London, SW1A', + confidence => 'High', address => { addressLine => 'Constitution Hill', locality => 'London', @@ -29,6 +30,7 @@ sub dispatch_request { push @$results, { point => { coordinates => [ 51, -1 ] }, name => 'Constitution Hill again, United Kingdom', + confidence => 'High', address => { addressLine => 'Constitution Hill again', locality => 'London', @@ -36,6 +38,21 @@ sub dispatch_request { } }; } + if ($query->{q} =~ /low/) { + push @$results, { + point => { coordinates => [ 52, -2 ] }, + name => 'Constitution Hill elsewhere, United Kingdom', + confidence => 'Low', + address => { + addressLine => 'Constitution Hill elsewhere', + locality => 'London', + countryRegion => 'United Kingdom', + } + }; + } + if ($query->{q} =~ /onlylow/) { + @$results = map { $_->{confidence} = 'Low'; $_ } @$results; + } my $data = { statusCode => 200, resourceSets => [ { resources => $results } ], diff --git a/t/geocode/bing.t b/t/geocode/bing.t index 32cffaa4e..156f983e1 100644 --- a/t/geocode/bing.t +++ b/t/geocode/bing.t @@ -21,4 +21,10 @@ FixMyStreet::override_config { 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; |