6 use Catalyst::Test qw/RemoteTestApp1/;
8 $RemoteTestEngine::REMOTE_USER = undef;
9 ok( request('/public')->is_success, 'anonymous user (undef) - /public' );
10 ok( request('/')->is_error, 'anonymous user (undef) - /' );
12 $RemoteTestEngine::REMOTE_USER = '';
13 ok( request('/public')->is_success, 'anonymous user (empty) - /public' );
14 ok( request('/')->is_error, 'anonymous user (empty) - /' );
16 $RemoteTestEngine::REMOTE_USER = 'john';
17 ok( request('/')->is_success, 'valid user' );
19 $RemoteTestEngine::REMOTE_USER = 'nonexisting';
20 ok( request('/')->is_error, 'non-existing user' );
22 $RemoteTestEngine::REMOTE_USER = 'denieduser';
23 ok( request('/')->is_error, 'explicitly denied user' );
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' );
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' );