diff options
Diffstat (limited to 'bin/test-run')
| -rwxr-xr-x | bin/test-run | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/bin/test-run b/bin/test-run index b0969053a..3e5f76afa 100755 --- a/bin/test-run +++ b/bin/test-run @@ -377,13 +377,13 @@ sub do_alert { # sign up for alerts in an area my $postcode = 'EH1 2NG'; - my $x = 2015; - my $y = 4175; + my $x = 2015; my $e = 325000; + my $y = 4175; my $n = 673548; my $messages = english_fms_messages(); submit_postcode('', $postcode, 'Problems in this area'); $wth->browser_follow_link(text => 'Email me new local problems'); $wth->browser_submit_form(form_name => 'alerts', - fields => {feed => "local:" . $x . ":" . $y, + fields => {feed => "local:" . $e . ":" . $n, rznvy => email_n(2)} ); $wth->browser_check_contents('Nearly Done!'); my $confirmation_email = $wth->email_get_containing( @@ -417,8 +417,8 @@ sub do_alert { sub do_eha_alert { # sign up for alerts in an area my $postcode = 'EH1 2NG'; - my $x = 2015; - my $y = 4175; + my $x = 2015; my $e = 325000; + my $y = 4175; my $n = 673548; my @texts = ('Eiddo gwag yn yr ardal hon', 'Adrodd am eiddo gwag', 'Nawr, gwiriwch eich e-bost', @@ -428,7 +428,7 @@ sub do_eha_alert { submit_postcode('cy.emptyhomes.', $postcode, $texts[0]); $wth->browser_follow_link(text => 'Anfonwch fanylion eiddo gwag lleol newydd ataf i drwy\'r e-bost'); $wth->browser_submit_form(form_name => 'alerts', - fields => {feed => "local:" . $x . ":" . $y, + fields => {feed => "local:" . $e . ":" . $n, rznvy => email_n(4)} ); $wth->browser_check_contents($texts[2]); my $confirmation_email = $wth->email_get_containing( @@ -514,11 +514,13 @@ sub do_static { # Just checks header, doesn't check any contents. sub do_rss { $wth->browser_get($base_url . '/rss/l/52.5/-1.9'); - die "Lat/lon redirect failed" unless $wth->browser_uri() =~ m{/rss/2522/1792$}; + die "Lat/lon redirect failed" unless $wth->browser_uri() =~ m{/rss/n/406886,289126$}; $wth->browser_get($base_url . '/rss/2524/1779'); + die "Tile redirect failed" unless $wth->browser_uri() =~ m{/rss/n/407097,286935$}; + $wth->browser_get($base_url . '/rss/n/407097,286935'); $wth->browser_check_contents('New local problems on FixMyStreet'); $wth->browser_get($base_url . '/rss/pc/SW1A1AA'); - die "Postcode redirect failed" unless $wth->browser_uri() =~ m{/rss/3279/1113$}; + die "Postcode redirect failed" unless $wth->browser_uri() =~ m{/rss/n/529090,179645$}; $wth->browser_get($base_url . '/rss/area/Birmingham'); die "One-tier redirect failed" unless $wth->browser_uri() =~ m{/rss/reports/Birmingham$}; $wth->browser_get($base_url . '/rss/reports/Birmingham'); |