trunk/clients/perl/OpenXPKI-Client-HTML-Mason/t/20_webserver/05_login.t

   1 use strict;
   2 use warnings;
   3 use English;
   4 use lib 't/20_webserver/lib';
   5
   6 use OpenXPKI::Client::HTML::Mason::Test::Server;
   7 use WWW::Mechanize;
   8 use URI::Escape;
   9
  10 use Test::More;
  11 plan tests => 60;
  12
  13 my $TEST_PORT = 8099;
  14 if ($ENV{MASON_TEST_PORT}) {
  15     # just in case someone wants to overwrite the test webserver port
  16     # for some reason
  17     $TEST_PORT = $ENV{MASON_TEST_PORT};
  18 }
  19
  20 diag("Start page and login");
  21
  22 my $server = OpenXPKI::Client::HTML::Mason::Test::Server->new($TEST_PORT);
  23 $server->started_ok('Webserver start');
  24 my $mech = WWW::Mechanize->new();
  25
  26 # login as anonymous
  27 my $index_page = $mech->get("http://127.0.0.1:$TEST_PORT/")->content();
  28 unlike($index_page, qr/I18N_OPENXPKI_CLIENT_INIT_CONNECTION_FAILED/, 'No connection failed error on start page') or diag "Index: $index_page";
  29 like($index_page, qr/I18N_OPENXPKI_CLIENT_HTML_MASON_GET_AUTHENTICATION_STACK_TITLE/, 'Correct title');
  30
  31 $mech->form_name('OpenXPKI');
  32 $mech->field('auth_stack', 'Anonymous');
  33 $mech->click('submit');
  34 is($mech->response->code(), '200', 'HTTP 200 OK received');
  35 like($mech->response->content, qr/meta http-equiv="refresh"/, 'Redirect page received');
  36
  37 my ($session_id) = ($mech->response->content =~ m{__session_id=([0-9a-f]+)}xms);
  38 if ($ENV{DEBUG}) {
  39     diag "Session ID: $session_id";
  40 }
  41
  42 # go to redirect page
  43 $mech->get("http://127.0.0.1:$TEST_PORT/service/index.html?__session_id=$session_id&__role=");
  44 like($mech->response->content, qr/I18N_OPENXPKI_CLIENT_HTML_MASON_INTRO_TITLE/, 'Correct title');
  45
  46 foreach my $menu_item (qw(
  47     I18N_OPENXPKI_HTML_MENU_HOME
  48     I18N_OPENXPKI_HTML_MENU_REQUEST
  49     I18N_OPENXPKI_HTML_MENU_DOWNLOAD
  50     I18N_OPENXPKI_HTML_MENU_SEARCH
  51     I18N_OPENXPKI_HTML_MENU_LOGOUT
  52     )) {
  53     like($mech->response->content, qr/$menu_item/,
  54         "Menu item $menu_item is present on page");
  55 }
  56 # TODO - check for menu items that should not appear on anonymous page
  57
  58 ok($mech->follow_link(text => 'I18N_OPENXPKI_HTML_MENU_LOGOUT', n => '1'), 'Followed link');
  59 like($mech->response->content, qr/I18N_OPENXPKI_CLIENT_HTML_MASON_LOGOUT_SUCCESS_TITLE/, 'Logout successfull');
  60
  61
  62 # login using external dynamic stack
  63 my %expected_menus = (
  64     'RA Operator' => [
  65     qw(
  66         I18N_OPENXPKI_HTML_MENU_TASKS
  67         I18N_OPENXPKI_HTML_MENU_REQUEST
  68         I18N_OPENXPKI_HTML_MENU_DOWNLOAD
  69         I18N_OPENXPKI_HTML_MENU_APPROVAL
  70         I18N_OPENXPKI_HTML_MENU_SEARCH
  71         I18N_OPENXPKI_HTML_MENU_LOGOUT
  72     )
  73     ],
  74     'User' => [
  75     qw(
  76         I18N_OPENXPKI_HTML_MENU_HOME
  77         I18N_OPENXPKI_HTML_MENU_REQUEST
  78         I18N_OPENXPKI_HTML_MENU_DOWNLOAD
  79         I18N_OPENXPKI_HTML_MENU_SEARCH
  80         I18N_OPENXPKI_HTML_MENU_LOGOUT
  81     )
  82     ],
  83     'CA Operator' => [
  84     qw(
  85         I18N_OPENXPKI_HTML_MENU_TASKS
  86         I18N_OPENXPKI_HTML_MENU_REQUEST
  87         I18N_OPENXPKI_HTML_MENU_DOWNLOAD
  88         I18N_OPENXPKI_HTML_MENU_APPROVAL
  89         I18N_OPENXPKI_HTML_MENU_SEARCH
  90         I18N_OPENXPKI_HTML_MENU_LOGOUT
  91     )
  92     ],
  93 );
  94
  95 my $expected_intro_title = {
  96     'User' => qr/I18N_OPENXPKI_CLIENT_HTML_MASON_INTRO_TITLE/,
  97     'CA Operator' => qr/I18N_OPENXPKI_CLIENT_HTML_MASON_INTRO_CAOP_TITLE/,
  98     'RA Operator' => qr/I18N_OPENXPKI_CLIENT_HTML_MASON_INTRO_RAOP_TITLE/,
  99 };
 100
 101 foreach my $role (keys %expected_menus) {
 102     diag "Login as external dynamic ($role) ...";
 103     my $index_page = $mech->get("http://127.0.0.1:$TEST_PORT/")->content();
 104     unlike($index_page, qr/I18N_OPENXPKI_CLIENT_INIT_CONNECTION_FAILED/, 'No connection failed error on start page') or diag "Index: $index_page";
 105     like($index_page, qr/I18N_OPENXPKI_CLIENT_HTML_MASON_GET_AUTHENTICATION_STACK_TITLE/, 'Correct title');
 106
 107     $mech->form_name('OpenXPKI');
 108     $mech->field('auth_stack', 'External Dynamic');
 109     $mech->click('submit');
 110
 111     like($mech->response->content, qr/I18N_OPENXPKI_CONFIG_AUTH_HANDLER_DESCRIPTION_EXTERNAL/, 'Correct stack');
 112     $mech->form_name('OpenXPKI');
 113     $mech->field('login', 'test');
 114     $mech->field('passwd', $role);
 115     $mech->click('submit');
 116
 117     is($mech->response->code(), '200', 'HTTP 200 OK received');
 118     like($mech->response->content, qr/meta http-equiv="refresh"/, 'Redirect page received');
 119
 120     my ($session_id) = ($mech->response->content =~ m{__session_id=([0-9a-f]+)}xms);
 121     if ($ENV{DEBUG}) {
 122         diag "Session ID: $session_id";
 123     }
 124
 125     # go to redirect page
 126     $mech->get("http://127.0.0.1:$TEST_PORT/service/index.html?__session_id=$session_id&__role=" . uri_escape($role));
 127     like($mech->response->content, $expected_intro_title->{$role}, 'Correct title');
 128
 129     foreach my $menu_item (@{ $expected_menus{$role} }) {
 130         like($mech->response->content, qr/$menu_item/,
 131             "Menu item $menu_item is present on page");
 132     }
 133     # TODO - check for menu items that should not appear
 134
 135     ok($mech->follow_link(text => 'I18N_OPENXPKI_HTML_MENU_LOGOUT', n => '1'), 'Followed link');
 136     like($mech->response->content, qr/I18N_OPENXPKI_CLIENT_HTML_MASON_LOGOUT_SUCCESS_TITLE/, 'Logout successfull');
 137 }
 138
 139
 140 # login using external static (RA Operator)
 141 $index_page = $mech->get("http://127.0.0.1:$TEST_PORT/")->content();
 142 unlike($index_page, qr/I18N_OPENXPKI_CLIENT_INIT_CONNECTION_FAILED/, 'No connection failed error on start page') or diag "Index: $index_page";
 143 like($index_page, qr/I18N_OPENXPKI_CLIENT_HTML_MASON_GET_AUTHENTICATION_STACK_TITLE/, 'Correct title');
 144
 145 $mech->form_name('OpenXPKI');
 146 $mech->field('auth_stack', 'External Static');
 147 $mech->click('submit');
 148
 149 like($mech->response->content, qr/I18N_OPENXPKI_CONFIG_AUTH_HANDLER_DESCRIPTION_EXTERNAL/, 'Correct stack');
 150 $mech->form_name('OpenXPKI');
 151 $mech->field('login', 'test');
 152 $mech->field('passwd', 'test');
 153 $mech->click('submit');
 154
 155 is($mech->response->code(), '200', 'HTTP 200 OK received');
 156 like($mech->response->content, qr/meta http-equiv="refresh"/, 'Redirect page received');
 157
 158 ($session_id) = ($mech->response->content =~ m{__session_id=([0-9a-f]+)}xms);
 159 if ($ENV{DEBUG}) {
 160     diag "Session ID: $session_id";
 161 }
 162
 163 # go to redirect page
 164 $mech->get("http://127.0.0.1:$TEST_PORT/service/index.html?__session_id=$session_id&__role=RA%20Operator");
 165 like($mech->response->content, qr/I18N_OPENXPKI_CLIENT_HTML_MASON_INTRO_RAOP_TITLE/, 'Correct title');
 166