From 15601b5b42127da2e06459f2681ce24e47e13103 Mon Sep 17 00:00:00 2001
From: hylom <hylom@users.sourceforge.jp>
Date: Fri, 31 Mar 2017 20:10:39 +0900
Subject: [PATCH] Util::Test: create_user can take passwd argument

---
 src/newslash_web/lib/Newslash/Util/Test.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/newslash_web/lib/Newslash/Util/Test.pm b/src/newslash_web/lib/Newslash/Util/Test.pm
index 872a6f67..3a0e5790 100644
--- a/src/newslash_web/lib/Newslash/Util/Test.pm
+++ b/src/newslash_web/lib/Newslash/Util/Test.pm
@@ -52,9 +52,9 @@ user hashref
 =cut
 
 sub create_user {
-    my ($app, $user_name) = @_;
+    my ($app, $user_name, $passwd) = @_;
     my $users = $app->model('users');
-    my $passwd = $users->generate_random_password;
+    $passwd ||= $users->generate_random_password;
     my $uid = $users->create($user_name, $user_name . '@example.com', $passwd);
     my $user;
     if ($uid) {
-- 
2.11.0