diff options
| -rwxr-xr-x | bin/test-run | 55 |
1 files changed, 53 insertions, 2 deletions
diff --git a/bin/test-run b/bin/test-run index dc9bc48be..a4227e46b 100755 --- a/bin/test-run +++ b/bin/test-run @@ -19,7 +19,7 @@ # RSS # Whatever I've missed! -my $rcsid = ''; $rcsid .= '$Id: test-run,v 1.13 2009-08-31 18:32:13 louise Exp $'; +my $rcsid = ''; $rcsid .= '$Id: test-run,v 1.14 2009-09-02 13:43:11 louise Exp $'; use strict; require 5.8.0; @@ -31,12 +31,13 @@ use mySociety::DBHandle qw(dbh); use mySociety::WebTestHarness; use Test::Harness; -my @actions = ('report', 'update', 'questionnaire', 'alert', 'static', 'cobrand', 'unit'); +my @actions = ('report', 'update', 'questionnaire', 'alert', 'static', 'cobrand', 'unit', 'eha_alert'); my %actions_desc = ( 'report' => 'report a problem', 'update' => 'leave an update on a report', 'questionnaire' => 'receive and answer a questionnaire or two', 'alert' => 'sign up for a local alert, and an update alert, check they arrive', + 'eha_alert' => 'sign up for an eha alert, cheeck cobranding and localization', 'static' => 'check static pages', 'cobrand' => 'check cobranding', 'unit' => 'run the unit tests' @@ -89,6 +90,7 @@ foreach (@actions) { do_static() if $_ eq 'static'; do_cobrand() if $_ eq 'cobrand'; do_unit() if $_ eq 'unit'; + do_eha_alert() if $_ eq 'eha_alert'; } # Check for any unhandled mails or errors @@ -159,6 +161,20 @@ sub call_send_emails { $wth->multi_spawn($multispawn, "./send-questionnaires " . ($verbose > 1 ? qw(--verbose) : ''), $verbose); } +# Load the EHA alert types +sub load_eha_schema { + $wth->database_drop_reload('../db/schema.sql'); + $wth->database_load_schema('../db/alert_types_eha.sql'); + $wth->database_cycle_sequences(200); +} + +# Load the basic alert types +sub load_basic_schema { + $wth->database_drop_reload('../db/schema.sql'); + $wth->database_load_schema('../db/alert_types.sql'); + $wth->database_cycle_sequences(200); +} + sub submit_postcode{ my $cobrand = shift; my $postcode = shift; @@ -266,6 +282,41 @@ sub do_alert { } +sub do_eha_alert { + load_eha_schema(); + # sign up for alerts in an area + my $postcode = 'EH1 2NG'; + my $x = 2015; + my $y = 4175; + submit_postcode('emptyhomes', $postcode); + $wth->browser_follow_link(text => 'Email me new local problems'); + $wth->browser_submit_form(form_name => 'alerts', + fields => {feed => "local:" . $x . ":" . $y, + rznvy => email_n(2)} ); + $wth->browser_check_contents('Nearly Done!'); + my $confirmation_email = $wth->email_get_containing( + '%Subject: Confirm your alert on FixMyStreet'. + '%To: '.email_n(2).''. + '%to confirm the alert%'); + die "Alert confirmation link not found" if ($confirmation_email !~ m#^\s*($base_url.*$)#m); + print "Message confirm URL is $1\n" if $verbose > 1; + $wth->browser_get($1); + $wth->browser_check_contents('successfully confirmed your alert'); + + # create and confirm a new problem in the area + submit_report($postcode, $x, $y, 325000, 673387.096774193, 3); + + # run the alert script + call_send_emails(); + + # expect an update + $confirmation_email = $wth->email_get_containing( + '%Subject: New nearby problems'. + '%To: '.email_n(2). + '%The following nearby problems%'); + load_basic_schema(); +} + sub do_cobrand { set_base_url('emptyhomes.'); $wth->browser_get($base_url); |