t/live_app_remote2.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 use lib 't/lib';
   6 use Catalyst::Test qw/RemoteTestApp2/;
   7
   8 $RemoteTestEngine::REMOTE_USER = undef;
   9
  10 # WARNING: this requires $c->engine->env to work properly
  11 # $c->engine->env was slightly broken in 5.8004 but this test should pass
  12 # as it uses Engine::CGI that works fine even in 5.80004
  13
  14 $RemoteTestEngine::SSL_CLIENT_S_DN = 'CN=anyuser/OU=Test/C=Company';
  15 ok( request('/')->is_success, 'testing "source" option' );
  16
  17 $RemoteTestEngine::SSL_CLIENT_S_DN = 'CN=namexyz/OU=Test/C=Company';
  18 ok( request('/')->is_success, 'testing "source" + "cutname" 1' );
  19 is( request('/')->content, "my_user_name:namexyz",
  20    'testing "source" + "cutname" 2' );
  21
  22 done_testing;
  23