diff options
| -rw-r--r-- | perllib/FixMyStreet/TestMech.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perllib/FixMyStreet/TestMech.pm b/perllib/FixMyStreet/TestMech.pm index 188e99a5c..46f5344e2 100644 --- a/perllib/FixMyStreet/TestMech.pm +++ b/perllib/FixMyStreet/TestMech.pm @@ -643,11 +643,12 @@ sub create_contact_ok { } sub create_body_ok { - my $self = shift; - my ( $area_id, $name ) = @_; + my ( $self, $area_id, $name, $params ) = @_; + + $params->{name} = $name; my $body = FixMyStreet::DB->resultset('Body'); - $body = $body->find_or_create({ name => $name }); + $body = $body->find_or_create( $params ); ok $body, "found/created body $name"; $body->body_areas->delete; |