Commit | Line | Data |
b94c4996 |
1 | use strict; |
2 | use warnings; |
d055ce0c |
3 | use Test::More; |
b94c4996 |
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' ); |
d055ce0c |
31 | |
32 | done_testing; |
33 | |