Migrate alert sending script, add test for it, fix some small bugs and strings.

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;