|
Lines 199-205
subtest 'checkauth() tests' => sub {
Link Here
|
| 199 |
$session->param( 'interface', 'intranet' ); |
199 |
$session->param( 'interface', 'intranet' ); |
| 200 |
$session->flush; |
200 |
$session->flush; |
| 201 |
my $sessionID = $session->id; |
201 |
my $sessionID = $session->id; |
| 202 |
C4::Context->_new_userenv($sessionID); |
|
|
| 203 |
|
202 |
|
| 204 |
my ($return) = |
203 |
my ($return) = |
| 205 |
C4::Auth::check_cookie_auth( $sessionID, undef, { skip_version_check => 1, remote_addr => '1.2.3.4' } ); |
204 |
C4::Auth::check_cookie_auth( $sessionID, undef, { skip_version_check => 1, remote_addr => '1.2.3.4' } ); |
|
Lines 233-239
subtest 'checkauth() tests' => sub {
Link Here
|
| 233 |
$session->param( 'interface', 'opac' ); |
232 |
$session->param( 'interface', 'opac' ); |
| 234 |
$session->flush; |
233 |
$session->flush; |
| 235 |
my $previous_sessionID = $session->id; |
234 |
my $previous_sessionID = $session->id; |
| 236 |
C4::Context->_new_userenv($previous_sessionID); |
|
|
| 237 |
|
235 |
|
| 238 |
my ( $return ) = C4::Auth::check_cookie_auth( $previous_sessionID, undef, { skip_version_check => 1, remote_addr => '1.2.3.4' } ); |
236 |
my ( $return ) = C4::Auth::check_cookie_auth( $previous_sessionID, undef, { skip_version_check => 1, remote_addr => '1.2.3.4' } ); |
| 239 |
is( $return, 'ok', 'Former session in shape now' ); |
237 |
is( $return, 'ok', 'Former session in shape now' ); |
|
Lines 262-268
subtest 'checkauth() tests' => sub {
Link Here
|
| 262 |
$session->param( 'interface', 'intranet' ); |
260 |
$session->param( 'interface', 'intranet' ); |
| 263 |
$session->flush; |
261 |
$session->flush; |
| 264 |
$previous_sessionID = $session->id; |
262 |
$previous_sessionID = $session->id; |
| 265 |
C4::Context->_new_userenv($previous_sessionID); |
|
|
| 266 |
$cgi->param( -name => 'login_userid', -value => $patron2->userid ); |
263 |
$cgi->param( -name => 'login_userid', -value => $patron2->userid ); |
| 267 |
$cgi->param( -name => 'login_password', -value => $password ); |
264 |
$cgi->param( -name => 'login_password', -value => $password ); |
| 268 |
$cgi->param( -name => 'koha_login_context', -value => 1 ); |
265 |
$cgi->param( -name => 'koha_login_context', -value => 1 ); |
|
Lines 417-423
subtest 'checkauth() tests' => sub {
Link Here
|
| 417 |
is( $sesh->param('branch'), $branch->branchcode, "If user is superlibrarian, they should be able to choose a branch" ); |
414 |
is( $sesh->param('branch'), $branch->branchcode, "If user is superlibrarian, they should be able to choose a branch" ); |
| 418 |
|
415 |
|
| 419 |
}; |
416 |
}; |
| 420 |
C4::Context->_new_userenv; # For next tests |
|
|
| 421 |
}; |
417 |
}; |
| 422 |
|
418 |
|
| 423 |
subtest 'no_set_userenv parameter tests' => sub { |
419 |
subtest 'no_set_userenv parameter tests' => sub { |
|
Lines 430-437
subtest 'no_set_userenv parameter tests' => sub {
Link Here
|
| 430 |
my $password = set_weak_password($patron); |
426 |
my $password = set_weak_password($patron); |
| 431 |
|
427 |
|
| 432 |
ok( checkpw( $patron->userid, $password, undef, undef, 1 ), 'checkpw returns true' ); |
428 |
ok( checkpw( $patron->userid, $password, undef, undef, 1 ), 'checkpw returns true' ); |
|
|
429 |
C4::Context->unset_userenv; |
| 433 |
is( C4::Context->userenv, undef, 'Userenv should be undef as required' ); |
430 |
is( C4::Context->userenv, undef, 'Userenv should be undef as required' ); |
| 434 |
C4::Context->_new_userenv('DUMMY SESSION'); |
|
|
| 435 |
C4::Context->set_userenv(0,0,0,'firstname','surname', $library->branchcode, 'Library 1', 0, '', ''); |
431 |
C4::Context->set_userenv(0,0,0,'firstname','surname', $library->branchcode, 'Library 1', 0, '', ''); |
| 436 |
is( C4::Context->userenv->{branch}, $library->branchcode, 'Userenv gives correct branch' ); |
432 |
is( C4::Context->userenv->{branch}, $library->branchcode, 'Userenv gives correct branch' ); |
| 437 |
ok( checkpw( $patron->userid, $password, undef, undef, 1 ), 'checkpw returns true' ); |
433 |
ok( checkpw( $patron->userid, $password, undef, undef, 1 ), 'checkpw returns true' ); |
|
Lines 940-946
subtest 'Userenv clearing in check_cookie_auth' => sub {
Link Here
|
| 940 |
is( C4::Context->userenv, undef, 'Environment should be cleared too' ); |
936 |
is( C4::Context->userenv, undef, 'Environment should be cleared too' ); |
| 941 |
|
937 |
|
| 942 |
# Show that we clear the userenv again: set up env and check deleted session |
938 |
# Show that we clear the userenv again: set up env and check deleted session |
| 943 |
C4::Context->_new_userenv( $sessionID ); |
|
|
| 944 |
C4::Context->set_userenv; # empty |
939 |
C4::Context->set_userenv; # empty |
| 945 |
is( defined C4::Context->userenv, 1, 'There should be an empty userenv again' ); |
940 |
is( defined C4::Context->userenv, 1, 'There should be an empty userenv again' ); |
| 946 |
( $auth_status, $session) = C4::Auth::check_cookie_auth( $sessionID ); |
941 |
( $auth_status, $session) = C4::Auth::check_cookie_auth( $sessionID ); |