Merge branch 'admin-using-normal-login'

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;