aboutsummaryrefslogtreecommitdiffstats
path: root/t/MapIt.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/MapIt.pm
parentb8083a462aebf542f6f39c4201e1f09248b7e0e7 (diff)
Move test mocks to their own directory.
Diffstat (limited to 't/MapIt.pm')
-rw-r--r--t/MapIt.pm51
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;