t/live_app_remote1.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 10;
   4
   5 use lib 't/lib';
   6 use Catalyst::Test qw/RemoteTestApp1/;
   7
   8 $RemoteTestEngine::REMOTE_USER = undef;
   9 ok( request('/public')->is_success, 'anonymous user (undef) - /public' );
  10 ok( request('/')->is_error, 'anonymous user (undef) - /' );
  11
  12 $RemoteTestEngine::REMOTE_USER = '';
  13 ok( request('/public')->is_success, 'anonymous user (empty) - /public' );
  14 ok( request('/')->is_error, 'anonymous user (empty) - /' );
  15
  16 $RemoteTestEngine::REMOTE_USER = 'john';
  17 ok( request('/')->is_success, 'valid user' );
  18
  19 $RemoteTestEngine::REMOTE_USER = 'nonexisting';
  20 ok( request('/')->is_error, 'non-existing user' );
  21
  22 $RemoteTestEngine::REMOTE_USER = 'denieduser';
  23 ok( request('/')->is_error, 'explicitly denied user' );
  24
  25 $RemoteTestEngine::REMOTE_USER = 'CN=namexyz/OU=Test/C=Company';
  26 ok( request('/')->is_success, 'testing "cutname" option 1' );
  27 is( request('/')->content, 'User:namexyz', 'testing "cutname" option 2' );
  28
  29 $RemoteTestEngine::REMOTE_USER = 'CN=/OU=Test/C=Company';
  30 is( request('/')->content, 'User:CN=/OU=Test/C=Company', 'testing "cutname" option - empty $1 match' );