From d1c38a2bdbe5891fa63bde40e398e3cc33881566 Mon Sep 17 00:00:00 2001
From: Matthew Somerville <matthew@mysociety.org>
Date: Tue, 23 Jun 2020 14:32:42 +0100
Subject: Improve Bing geocoder results.

Add a couple of parameters to hopefully improve results, and make
sure the returned locality is included in the summary address.
---
 t/Mock/Bing.pm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

(limited to 't/Mock/Bing.pm')

diff --git a/t/Mock/Bing.pm b/t/Mock/Bing.pm
index 3dfb8fbe0..77045950f 100644
--- a/t/Mock/Bing.pm
+++ b/t/Mock/Bing.pm
@@ -14,6 +14,36 @@ has json => (
 sub dispatch_request {
     my $self = shift;
 
+    sub (GET + /REST/v1/Locations + ?*) {
+        my ($self, $query) = @_;
+        my $results = [ {
+            point => { coordinates => [ 51, -1 ] },
+            name => 'Constitution Hill, London, SW1A',
+            address => {
+                addressLine => 'Constitution Hill',
+                locality => 'London',
+                countryRegion => 'United Kingdom',
+            }
+        } ];
+        if ($query->{q} =~ /two results/) {
+            push @$results, {
+                point => { coordinates => [ 51, -1 ] },
+                name => 'Constitution Hill again, United Kingdom',
+                address => {
+                    addressLine => 'Constitution Hill again',
+                    locality => 'London',
+                    countryRegion => 'United Kingdom',
+                }
+            };
+        }
+        my $data = {
+            statusCode => 200,
+            resourceSets => [ { resources => $results } ],
+        };
+        my $json = $self->json->encode($data);
+        return [ 200, [ 'Content-Type' => 'application/json' ], [ $json ] ];
+    },
+
     sub (GET + /REST/v1/Locations/* + ?*) {
         my ($self, $location, $query) = @_;
         my $data = {
-- 
cgit v1.2.3