aboutsummaryrefslogtreecommitdiffstats
path: root/bin/test-run
diff options
context:
space:
mode:
Diffstat (limited to 'bin/test-run')
-rwxr-xr-xbin/test-run17
1 files changed, 5 insertions, 12 deletions
diff --git a/bin/test-run b/bin/test-run
index b2fea2fb5..9c3142207 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;
@@ -392,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');
@@ -438,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',
@@ -540,15 +533,15 @@ 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
'/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;