Util::TestMan: add login(), logout()

diff --git a/src/newslash_web/lib/Newslash/Util/TestMan.pm b/src/newslash_web/lib/Newslash/Util/TestMan.pm
index 4b9bf46..eb93e71 100644 (file)
--- a/src/newslash_web/lib/Newslash/Util/TestMan.pm
+++ b/src/newslash_web/lib/Newslash/Util/TestMan.pm
@@ -10,6 +10,8 @@ use Newslash::Util::Test;
 use constant REMOTE_IP => "192.168.1.1";
 use Newslash::Plugin::UserAuth;
 
+use Test::More;
+
 sub new {
     my ($class, $test, $options) = @_;
     $options ||= {};
@@ -32,6 +34,9 @@ sub app {
     return shift->{test}->app;
 }
 
+sub t {
+    return shift->{test};
+}
 
 sub srcid {
     my ($self, $ip, $mask) = @_;
@@ -42,18 +47,34 @@ sub create_user {
     my ($self, $name, $passwd) = @_;
     my $user = Newslash::Util::Test::create_user($self->app, $name, $passwd);
     if (!$user) {
-        warn "user create failed!";
+        fail("create test user - $name / $passwd");
         return;
     }
     $user->{srcids} = {
                        24 => Newslash::Util::Test::srcid(REMOTE_IP, 24),
                        32 => Newslash::Util::Test::srcid(REMOTE_IP, 32),
                       };
+    $user->{_passwd} = $passwd;
 
     push @{$self->{users}}, $user;
     return $user;
 }
 
+sub login {
+    my ($self, $user, $passwd) = @_;
+    $passwd //= $user->{_passwd};
+    $self->t->post_ok('/login'
+                      => {Accept => '*/*'}
+                      => form
+                      => {nickname => $user->{nickname}, passwd => $passwd})
+      ->status_is(302);
+}
+
+sub logout {
+    my ($self) = @_;
+    $self->t->get_ok('/logout')->status_is(302);
+}
+
 sub create_admin {
     my ($self, $name, $passwd) = @_;
     my $user = Newslash::Util::Test::create_admin_user($self->app, $name, $passwd);