diff options
| -rw-r--r-- | perllib/FixMyStreet/TestMech.pm | 3 |
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} || []; |