diff options
author | Matthew Somerville <matthew@mysociety.org> | 2016-01-27 11:38:11 +0000 |
---|---|---|
committer | Matthew Somerville <matthew@mysociety.org> | 2016-01-27 11:38:11 +0000 |
commit | 2679b30e530861ba7c2bef6f36a60242872bd6a7 (patch) | |
tree | 7cec1bc797b30f7efb8b4eae0549bcebd1c96e07 /t/MapIt.pm | |
parent | b8083a462aebf542f6f39c4201e1f09248b7e0e7 (diff) |
Move test mocks to their own directory.
Diffstat (limited to 't/MapIt.pm')
-rw-r--r-- | t/MapIt.pm | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/t/MapIt.pm b/t/MapIt.pm deleted file mode 100644 index a10118013..000000000 --- a/t/MapIt.pm +++ /dev/null @@ -1,51 +0,0 @@ -package t::MapIt; - -use JSON; -use Web::Simple; - -use mySociety::Locale; - -has json => ( - is => 'lazy', - default => sub { - JSON->new->pretty->allow_blessed->convert_blessed; - }, -); - -sub dispatch_request { - my $self = shift; - - sub (GET + /postcode/*) { - my ($self, $postcode) = @_; - my $response = $self->postcode($postcode); - # We must make sure we output correctly for testing purposes, we might - # be within a different locale here... - my $json = mySociety::Locale::in_gb_locale { - $self->json->encode($response) }; - return [ 200, [ 'Content-Type' => 'application/json' ], [ $json ] ]; - }, - - sub (GET + /point/**) { - my ($self, $point) = @_; - my $response = { - "63999" => {"parent_area" => 2245, "generation_high" => 25, "all_names" => {}, "id" => 63999, "codes" => {"ons" => "00HYNS", "gss" => "E05008366", "unit_id" => "44025"}, "name" => "Kington", "country" => "E", "type_name" => "Unitary Authority electoral division (UTE)", "generation_low" => 12, "country_name" => "England", "type" => "UTE"}, - "65822" => {"parent_area" => undef, "generation_high" => 25, "all_names" => {}, "id" => 65822, "codes" => {"gss" => "E14000860", "unit_id" => "24903"}, "name" => "North Wiltshire", "country" => "E", "type_name" => "UK Parliament constituency", "generation_low" => 13, "country_name" => "England", "type" => "WMC"}, - "11814" => {"parent_area" => undef, "generation_high" => 25, "all_names" => {}, "id" => 11814, "codes" => {"ons" => "09", "gss" => "E15000009", "unit_id" => "41427"}, "name" => "South West", "country" => "E", "type_name" => "European region", "generation_low" => 1, "country_name" => "England", "type" => "EUR"}, - "2245" => {"parent_area" => undef, "generation_high" => 25, "all_names" => {}, "id" => 2245, "codes" => {"ons" => "00HY", "gss" => "E06000054", "unit_id" => "43925"}, "name" => "Wiltshire Council", "country" => "E", "type_name" => "Unitary Authority", "generation_low" => 11, "country_name" => "England", "type" => "UTA"} - }; - # We must make sure we output correctly for testing purposes, we might - # be within a different locale here... - my $json = mySociety::Locale::in_gb_locale { - $self->json->encode($response) }; - return [ 200, [ 'Content-Type' => 'application/json' ], [ $json ] ]; - }, -} - -sub postcode { - my ($self, $postcode) = @_; - return { - wgs84_lat => 51.5, wgs84_lon => -2.1, postcode => $postcode, coordsyst => 'G', - }; -} - -__PACKAGE__->run_if_script; |