From 947f5f9d6c9c74bc5acea7fbc605b653e44f7ce7 Mon Sep 17 00:00:00 2001 From: Matthew Somerville Date: Fri, 11 Feb 2011 11:14:20 +0000 Subject: Helper function for all latlon to OSGB36 calls. --- bin/test-run | 1 - 1 file changed, 1 deletion(-) (limited to 'bin/test-run') diff --git a/bin/test-run b/bin/test-run index b2fea2fb5..1c41e7c3a 100755 --- a/bin/test-run +++ b/bin/test-run @@ -27,7 +27,6 @@ use FindBin; use mySociety::Config; mySociety::Config::set_file('../conf/general'); use mySociety::DBHandle qw(dbh); -use mySociety::GeoUtil; use mySociety::WebTestHarness; use Test::Harness; use File::Find; -- cgit v1.2.3 From 6722cb5711e23a0e801e415bb3928adf7eafaec8 Mon Sep 17 00:00:00 2001 From: Matthew Somerville Date: Mon, 21 Feb 2011 11:19:18 +0000 Subject: Store lat/lon manually in test. --- bin/test-run | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to 'bin/test-run') diff --git a/bin/test-run b/bin/test-run index 1c41e7c3a..e7baf62fa 100755 --- a/bin/test-run +++ b/bin/test-run @@ -391,10 +391,7 @@ sub do_alert { my $e = 325066; my $n = 673533; - # get the lat,lon from the postcode so that it matches - my ( $lat, $lon ) = - map { Utils::truncate_coordinate($_) } - FixMyStreet::Geocode::lookup( $postcode, undef ); + my ( $lat, $lon ) = (55.948967, -3.201478); my $messages = english_fms_messages(); submit_postcode('', $postcode, 'Problems in this area'); @@ -437,10 +434,7 @@ sub do_eha_alert { my $x = 2015; my $e = 325066; my $y = 4175; my $n = 673533; - # get the lat,lon from the postcode so that it matches - my ( $lat, $lon ) = - map { Utils::truncate_coordinate($_) } - FixMyStreet::Geocode::lookup( $postcode, undef ); + my ( $lat, $lon ) = (55.948967, -3.201478); my @texts = ('Eiddo gwag yn yr ardal hon', 'Adrodd am eiddo gwag', -- cgit v1.2.3 From 0405110b80e5702927ebc9d5d818c23c266fb1fc Mon Sep 17 00:00:00 2001 From: Matthew Somerville Date: Mon, 21 Feb 2011 11:50:20 +0000 Subject: RSS fixes for testing. --- bin/test-run | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'bin/test-run') diff --git a/bin/test-run b/bin/test-run index e7baf62fa..76b4f0fbb 100755 --- a/bin/test-run +++ b/bin/test-run @@ -533,10 +533,10 @@ sub do_rss { my %redirects = ( - # should always go to lat lon + # should always go to lat lon, except postcode (actually, query string) '/rss/n/406886,289126' => '/rss/l/52.499994,-1.899993', '/rss/2524/1779' => '/rss/l/52.480294,-1.896931', - '/rss/pc/SW1A1AA' => '/rss/l/51.50101,-0.141587', + '/rss/pc/SW1A1AA' => '/rss/pc/SW1A1AA', '/rss/l/52.5/-1.9' => '/rss/l/52.5/-1.9', # go to reports -- cgit v1.2.3 From d41edbd41ddfec8263fba59f0a76d4a30de558a6 Mon Sep 17 00:00:00 2001 From: Matthew Somerville Date: Mon, 21 Feb 2011 14:20:31 +0000 Subject: Fix RSS redirect, uses actual council name. --- bin/test-run | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'bin/test-run') diff --git a/bin/test-run b/bin/test-run index 76b4f0fbb..9c3142207 100755 --- a/bin/test-run +++ b/bin/test-run @@ -541,7 +541,7 @@ sub do_rss { # go to reports '/rss/area/Birmingham' => '/rss/reports/Birmingham', - '/rss/area/Birmingham/Lozells' => '/rss/reports/Birmingham/Lozells', + '/rss/area/Birmingham/Lozells' => '/rss/reports/Birmingham/Lozells+and+East+Handsworth', ); my $error_count = 0; -- cgit v1.2.3