aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/FixMyStreet/TestMech.pm
diff options
context:
space:
mode:
authorEdmund von der Burg <evdb@mysociety.org>2011-04-07 15:26:04 +0100
committerEdmund von der Burg <evdb@mysociety.org>2011-04-07 15:26:04 +0100
commita932cf24e53109204e304ba68263d55326bee78f (patch)
tree088fb5e33ceffe88290bea1ebe7f767a520b5b42 /perllib/FixMyStreet/TestMech.pm
parente0588cc87363389cc688e4ae2e6b165732fc3008 (diff)
Fix bugs introduced with overrides form
Diffstat (limited to 'perllib/FixMyStreet/TestMech.pm')
-rw-r--r--perllib/FixMyStreet/TestMech.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perllib/FixMyStreet/TestMech.pm b/perllib/FixMyStreet/TestMech.pm
index 04d825da7..3d011d708 100644
--- a/perllib/FixMyStreet/TestMech.pm
+++ b/perllib/FixMyStreet/TestMech.pm
@@ -256,9 +256,9 @@ Return all the visible form values on the page - ie not the hidden ones.
sub visible_form_values {
my $mech = shift;
- my @forms = $mech->forms;
-
- # insert form filtering here (eg ignore login form)
+ my @forms =
+ grep { ( $_->attr('name') || '' ) ne 'overrides_form' } # ignore overrides
+ $mech->forms;
croak "Found no forms - can't continue..."
unless @forms;