t/09-simpledb-auth-roles-column.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 DBD::SQLite }
  13         or plan skip_all =>
  14         "DBD::SQLite is required for this test";
  15
  16     eval { require DBIx::Class }
  17         or plan skip_all =>
  18         "DBIx::Class is required for this test";
  19
  20     eval { require Catalyst::Plugin::Authorization::Roles }
  21         or plan skip_all =>
  22         "Catalyst::Plugin::Authorization::Roles is required for this test";
  23
  24     plan tests => 8;
  25
  26     $ENV{TESTAPP_DB_FILE} = "$FindBin::Bin/auth.db" unless exists($ENV{TESTAPP_DB_FILE});
  27
  28
  29     $ENV{TESTAPP_CONFIG} = {
  30         name => 'TestApp',
  31         'Plugin::Authentication' => {
  32             default => {
  33                                 class => 'SimpleDB',
  34                                 user_model => 'TestApp::User',
  35                                 role_column => 'role_text'
  36                         }
  37                 }
  38
  39     };
  40
  41     $ENV{TESTAPP_PLUGINS} = [
  42         qw/Authentication
  43            Authorization::Roles
  44            /
  45     ];
  46 }
  47
  48 use SetupDB;
  49
  50 use Catalyst::Test 'TestApp';
  51
  52 # test user's admin access
  53 {
  54     ok( my $res = request('http://localhost/user_login?username=joeuser&password=hackme&detach=is_admin'), 'request ok' );
  55     is( $res->content, 'ok', 'user is an admin' );
  56 }
  57
  58 # test unauthorized user's admin access
  59 {
  60     ok( my $res = request('http://localhost/user_login?username=jayk&password=letmein&detach=is_admin'), 'request ok' );
  61     is( $res->content, 'failed', 'user is not an admin' );
  62 }
  63
  64 # test multiple auth roles
  65 {
  66     ok( my $res = request('http://localhost/user_login?username=nuffin&password=much&detach=is_admin_user'), 'request ok' );
  67     is( $res->content, 'ok', 'user is an admin and a user' );
  68 }
  69
  70 # test multiple unauth roles
  71 {
  72     ok( my $res = request('http://localhost/user_login?username=joeuser&password=hackme&detach=is_admin_user'), 'request ok' );
  73     is( $res->content, 'failed', 'user is not an admin and a user' );
  74 }
  75
  76 # clean up
  77 unlink $ENV{TESTAPP_DB_FILE};