1 files changed, 10 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/TestMech.pm b/perllib/FixMyStreet/TestMech.pm
index c3583bb3e..ee9631bdf 100644
--- a/perllib/FixMyStreet/TestMech.pm
+++ b/perllib/FixMyStreet/TestMech.pm
@@ -600,12 +600,21 @@ sub delete_body {
     my $body = shift;
 
     $mech->delete_problems_for_body($body->id);
-    $body->contacts->delete;
+    $mech->delete_contact($_) for $body->contacts;
     $mech->delete_user($_) for $body->users;
+    $_->delete for $body->response_templates;
     $body->body_areas->delete;
     $body->delete;
 }
 
+sub delete_contact {
+    my $mech = shift;
+    my $contact = shift;
+
+    $contact->contact_response_templates->delete_all;
+    $contact->delete;
+}
+
 sub delete_problems_for_body {
     my $mech = shift;
     my $body = shift;