diff options
| author | Dave Arter <davea@mysociety.org> | 2017-11-27 17:14:18 +0000 |
|---|---|---|
| committer | Dave Arter <davea@mysociety.org> | 2017-12-04 09:47:24 +0000 |
| commit | e46d63a48d0830185395580d139d400f5ad05073 (patch) | |
| tree | e23d1aac1c1bd60a38f6cfd84bd721ce8ca7ce8a /perllib/FixMyStreet/TestMech.pm | |
| parent | c16b2fb5f8a78b7896fc82a8a2f69739a8702ca6 (diff) | |
Only allow one auto-response template per category/state.
Diffstat (limited to 'perllib/FixMyStreet/TestMech.pm')
| -rw-r--r-- | perllib/FixMyStreet/TestMech.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/TestMech.pm b/perllib/FixMyStreet/TestMech.pm index dbfc94286..ac2ac023d 100644 --- a/perllib/FixMyStreet/TestMech.pm +++ b/perllib/FixMyStreet/TestMech.pm @@ -630,6 +630,14 @@ sub delete_defect_type { $defect_type->delete; } +sub delete_response_template { + my $mech = shift; + my $response_template = shift; + + $response_template->contact_response_templates->delete_all; + $response_template->delete; +} + sub create_contact_ok { my $self = shift; my %contact_params = ( |