Delete questionnaires when deleting a user's problems, and fetch all errors separately from a ul.error, not munged together.

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} || [];