Catalyst-Authentication-Store-RDBO/t/04-authsessions.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5 use DBI;
   6 use File::Path;
   7 use FindBin;
   8 use Test::More;
   9 use lib "$FindBin::Bin/lib";
  10
  11 BEGIN {
  12     eval { require Test::WWW::Mechanize::Catalyst }
  13       or plan skip_all =>
  14       "Test::WWW::Mechanize::Catalyst is required for this test";
  15
  16     eval { require DBD::SQLite }
  17         or plan skip_all =>
  18         "DBD::SQLite is required for this test";
  19
  20     eval { require DBIx::Class }
  21         or plan skip_all =>
  22         "DBIx::Class is required for this test";
  23
  24     eval { require Catalyst::Plugin::Session;
  25            die unless $Catalyst::Plugin::Session::VERSION >= 0.02 }
  26         or plan skip_all =>
  27         "Catalyst::Plugin::Session >= 0.02 is required for this test";
  28
  29     eval { require Catalyst::Plugin::Session::State::Cookie; }
  30         or plan skip_all =>
  31         "Catalyst::Plugin::Session::State::Cookie is required for this test";
  32
  33
  34     plan tests => 8;
  35
  36     $ENV{TESTAPP_DB_FILE} = "$FindBin::Bin/auth.db" unless exists($ENV{TESTAPP_DB_FILE});
  37
  38     $ENV{TESTAPP_CONFIG} = {
  39         name => 'TestApp',
  40         authentication => {
  41             default_realm => "users",
  42             realms => {
  43                 users => {
  44                     credential => {
  45                         'class' => "Password",
  46                         'password_field' => 'password',
  47                         'password_type' => 'clear'
  48                     },
  49                     store => {
  50                         'class' => 'RDBO',
  51                         'user_class' => 'User',
  52                         'use_userdata_from_session' => 0,
  53                     },
  54                 },
  55             },
  56         },
  57     };
  58
  59     $ENV{TESTAPP_PLUGINS} = [
  60         qw/Authentication
  61            Session
  62            Session::Store::Dummy
  63            Session::State::Cookie
  64            /
  65     ];
  66 }
  67
  68 use SetupDB;
  69
  70 use Test::WWW::Mechanize::Catalyst 'TestApp';
  71 my $m = Test::WWW::Mechanize::Catalyst->new;
  72
  73 # log a user in
  74 {
  75     $m->get_ok( 'http://localhost/user_login?username=joeuser&password=hackme', undef, 'request ok' );
  76     $m->content_is( 'joeuser logged in', 'user logged in ok' );
  77 }
  78
  79 # verify the user is still logged in
  80 {
  81     $m->get_ok( 'http://localhost/get_session_user', undef, 'request ok' );
  82     $m->content_is( 'joeuser', 'user still logged in' );
  83 }
  84
  85 # log the user out
  86 {
  87     $m->get_ok( 'http://localhost/user_logout', undef, 'request ok' );
  88     $m->content_is( 'logged out', 'user logged out ok' );
  89 }
  90
  91 # verify there is no session
  92 {
  93     $m->get_ok( 'http://localhost/get_session_user', undef, 'request ok' );
  94     $m->content_is( '', "user's session deleted" );
  95 }
  96
  97 # clean up
  98 unlink $ENV{TESTAPP_DB_FILE};