diff options
| -rwxr-xr-x | bin/test-run | 61 |
1 files changed, 36 insertions, 25 deletions
diff --git a/bin/test-run b/bin/test-run index 19e2321c7..7ce4ecd1c 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.9 2009-08-27 15:57:16 louise Exp $'; +my $rcsid = ''; $rcsid .= '$Id: test-run,v 1.10 2009-08-27 20:03:37 louise Exp $'; use strict; require 5.8.0; @@ -46,7 +46,7 @@ my ($wth, $action, $verbose, $pause, $multispawn) = mySociety::WebTestHarness::s actions => \@actions, actions_desc => \%actions_desc, dbname => 'BCI', - 'sql_extra' => '../db/alert_types.sql', + 'sql_extra' => ['../db/alert_types.sql'], }); $multispawn = 1; @@ -166,29 +166,40 @@ sub do_report { fields => { pc => $postcode}, ); $wth->browser_check_contents('Problems in this area'); - $wth->browser_submit_form(form_name => 'mapForm', - fields => { pc => $postcode, - x => 3287, - y => 1112, - submit_map => 1}, - ); - $wth->browser_check_contents('Reporting a problem'); - $wth->browser_submit_form(form_name => 'mapForm', - fields => { submit_map => 1, - x => 3287, - y => 1112, - pc => $postcode, - council => -1, - easting => 530375.920751842, - northing => 179501.524003048, - title => 'My test problem', - detail => 'Detail of my test problem', - name => name_n(1), - anonymous => 1, - email => email_n(1), - phone => '555 5555'}, - ); - $wth->browser_check_contents('Nearly done!'); + { + # Writing values to hidden fields, so switching + # off errors in a local context + + local $^W = 0; + + # WWW::Mechanize doesn't like the added tile coords, so + # just post them + $wth->browser_post($base_url, + { pc => $postcode, + x => 3287, + y => 1112, + 'tile_3287.1113.x' => 221, + 'tile_3287.1113.y' => 158, + submit_map => 1}); + + $wth->browser_check_contents('<h1>Reporting a problem</h1>'); + $wth->browser_submit_form(form_name => 'mapForm', + fields => { submit_map => 2, + x => 3287, + y => 1112, + pc => $postcode, + council => -1, + easting => 530375.920751842, + northing => 179501.524003048, + title => 'My test problem', + detail => 'Detail of my test problem', + anonymous => 1, + name => name_n(1), + email => email_n(1), + phone => '555 5555'}, + ); + } + $wth->browser_check_contents('Nearly Done!'); my $confirmation_email = $wth->email_get_containing( '%Subject: Confirm your problem on FixMyStreet'. '%To: "'.name_n(1).'" <'.email_n(1).'>'. |