CatalystX-Plugin-Authorization-ACL-Paranoid/t/live.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use lib 't/lib';
   7
   8 use Test::More 'no_plan';
   9
  10 BEGIN {
  11     eval {
  12         require Test::WWW::Mechanize::Catalyst;
  13         require Catalyst::Plugin::Authentication;
  14         require Catalyst::Plugin::Session;
  15         require Catalyst::Plugin::Session::State::Cookie;
  16     };
  17
  18     plan skip_all => 'Many plugins are required' if $@;
  19
  20     use_ok 'Test::WWW::Mechanize::Catalyst', 'TestApp';
  21 }
  22
  23 my $m = Test::WWW::Mechanize::Catalyst->new;
  24
  25 is_allowed( '/', 'index page' );
  26
  27 is_allowed( '/user_login', 'index page' );
  28
  29 is_denied( '/post_delete', 'post delete' );
  30
  31 is_denied( '/user_logout', 'logout before login' );
  32
  33 login( 'user', 'password');
  34
  35 is_denied( '/user_login', 'login again after login' );
  36
  37 is_allowed( '/post_delete', 'delete post after login');
  38
  39 is_allowed( '/user_logout', 'logout after login' );
  40
  41 sub login {
  42     my ( $l, $p ) = @_;
  43     is_allowed( "/user_login?user=$l&password=$p" );
  44 }
  45
  46 sub is_denied {
  47     my $path = shift;
  48     my $res = $m->get( $path );
  49     is( $res->status_line, '403 Forbidden' );
  50 }
  51
  52 sub is_allowed {
  53     my ( $path, $text ) = @_;
  54     $m->get_ok( $path );
  55 }
  56