diff options
Diffstat (limited to 'perllib/FixMyStreet/TestMech.pm')
-rw-r--r-- | perllib/FixMyStreet/TestMech.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/TestMech.pm b/perllib/FixMyStreet/TestMech.pm index c9f1d7dde..3dd4e84e9 100644 --- a/perllib/FixMyStreet/TestMech.pm +++ b/perllib/FixMyStreet/TestMech.pm @@ -151,8 +151,11 @@ sub delete_user { ok( $_->delete, "delete questionnaire " . $_->id ) for $p->questionnaires; ok( $p->delete, "delete problem " . $p->title ); } + for my $a ( $user->alerts ) { + $a->alert_sents->delete; + ok( $a->delete, "delete alert " . $a->alert_type ); + } ok( $_->delete, "delete comment " . $_->text ) for $user->comments; - ok( $_->delete, "delete alert " . $_->alert_type ) for $user->alerts; ok $user->delete, "delete test user " . $user->email; return 1; |