aboutsummaryrefslogtreecommitdiffstats
path: root/t/Mock/Nominatim.pm
diff options
context:
space:
mode:
authorMatthew Somerville <matthew@mysociety.org>2016-01-27 11:38:11 +0000
committerMatthew Somerville <matthew@mysociety.org>2016-01-27 11:38:11 +0000
commit2679b30e530861ba7c2bef6f36a60242872bd6a7 (patch)
tree7cec1bc797b30f7efb8b4eae0549bcebd1c96e07 /t/Mock/Nominatim.pm
parentb8083a462aebf542f6f39c4201e1f09248b7e0e7 (diff)
Move test mocks to their own directory.
Diffstat (limited to 't/Mock/Nominatim.pm')
-rw-r--r--t/Mock/Nominatim.pm37
1 files changed, 37 insertions, 0 deletions
diff --git a/t/Mock/Nominatim.pm b/t/Mock/Nominatim.pm
new file mode 100644
index 000000000..3f3cef69a
--- /dev/null
+++ b/t/Mock/Nominatim.pm
@@ -0,0 +1,37 @@
+package t::Mock::Nominatim;
+
+use JSON;
+use Web::Simple;
+
+has json => (
+ is => 'lazy',
+ default => sub {
+ JSON->new->pretty->allow_blessed->convert_blessed;
+ },
+);
+
+sub dispatch_request {
+ my $self = shift;
+
+ sub (GET + /search + ?q=) {
+ my ($self, $q) = @_;
+ my $response = $self->query($q);
+ my $json = $self->json->encode($response);
+ return [ 200, [ 'Content-Type' => 'application/json' ], [ $json ] ];
+ },
+}
+
+sub query {
+ my ($self, $q) = @_;
+ if ($q eq 'high street') {
+ return [
+ {"osm_type"=>"way","osm_id"=>"4684282","lat"=>"55.9504009","lon"=>"-3.1858425","display_name"=>"High Street, Old Town, City of Edinburgh, Scotland, EH1 1SP, United Kingdom","class"=>"highway","type"=>"tertiary","importance"=>0.55892577838734},
+ {"osm_type"=>"node","osm_id"=>"27424410","lat"=>"55.8596449","lon"=>"-4.240377","display_name"=>"High Street, Collegelands, Merchant City, Glasgow, Glasgow City, Scotland, G, United Kingdom","class"=>"railway","type"=>"station","importance"=>0.53074299592768}
+ ];
+ }
+ return [];
+}
+
+
+
+__PACKAGE__->run_if_script;