Commit | Line | Data |
b94c4996 |
1 | use strict; |
2 | use warnings; |
3 | use Test::More tests => 3; |
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' ); |
7289cea0 |
19 | is( request('/')->content, "User:namexyz\nmy_user_name:namexyz", |
20 | 'testing "source" + "cutname" 2' ); |