aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMatthew Somerville <matthew@mysociety.org>2011-05-27 12:52:45 +0100
committerMatthew Somerville <matthew@mysociety.org>2011-05-27 12:52:45 +0100
commit42aafe5c9077d2102b8b8d7f46958f534cb27441 (patch)
treeadd3d311c8e2551a78aa4faca392c720458c17b6
parent66612b10719e9412a7d4964b227149fd6ad98195 (diff)
Delete questionnaires when deleting a user's problems, and fetch all errors separately from a ul.error, not munged together.
-rw-r--r--perllib/FixMyStreet/TestMech.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/TestMech.pm b/perllib/FixMyStreet/TestMech.pm
index 4c13831ba..c9f1d7dde 100644
--- a/perllib/FixMyStreet/TestMech.pm
+++ b/perllib/FixMyStreet/TestMech.pm
@@ -148,6 +148,7 @@ sub delete_user {
$mech->log_out_ok;
for my $p ( $user->problems ) {
ok( $_->delete, "delete comment " . $_->text ) for $p->comments;
+ ok( $_->delete, "delete questionnaire " . $_->id ) for $p->questionnaires;
ok( $p->delete, "delete problem " . $p->title );
}
ok( $_->delete, "delete comment " . $_->text ) for $user->comments;
@@ -239,7 +240,7 @@ sub page_errors {
my $mech = shift;
my $result = scraper {
process 'p.error', 'errors[]', 'TEXT';
- process 'ul.error', 'errors[]', 'TEXT';
+ process 'ul.error li', 'errors[]', 'TEXT';
}
->scrape( $mech->response );
return $result->{errors} || [];