diff options
Diffstat (limited to 'perllib/FixMyStreet/TestMech.pm')
| -rw-r--r-- | perllib/FixMyStreet/TestMech.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/perllib/FixMyStreet/TestMech.pm b/perllib/FixMyStreet/TestMech.pm index 2ad820d1f..937780a31 100644 --- a/perllib/FixMyStreet/TestMech.pm +++ b/perllib/FixMyStreet/TestMech.pm @@ -63,11 +63,10 @@ Create a test user (or find it and return if it already exists). sub create_user_ok { my $self = shift; - my ($email) = @_; + my ( $email, %extra ) = @_; - my $user = - FixMyStreet::DB->resultset('User') - ->find_or_create( { email => $email } ); + my $params = { email => $email, %extra }; + my $user = FixMyStreet::DB->resultset('User')->find_or_create($params); ok $user, "found/created user for $email"; return $user; |