|
Lines 7-13
use CGI qw ( -utf8 );
Link Here
|
| 7 |
use Test::MockObject; |
7 |
use Test::MockObject; |
| 8 |
use Test::MockModule; |
8 |
use Test::MockModule; |
| 9 |
use List::MoreUtils qw/all any none/; |
9 |
use List::MoreUtils qw/all any none/; |
| 10 |
use Test::More tests => 19; |
10 |
use Test::More tests => 18; |
| 11 |
use Test::Warn; |
11 |
use Test::Warn; |
| 12 |
use t::lib::Mocks; |
12 |
use t::lib::Mocks; |
| 13 |
use t::lib::TestBuilder; |
13 |
use t::lib::TestBuilder; |
|
Lines 22-28
use Koha::Auth::TwoFactorAuth;
Link Here
|
| 22 |
BEGIN { |
22 |
BEGIN { |
| 23 |
use_ok( |
23 |
use_ok( |
| 24 |
'C4::Auth', |
24 |
'C4::Auth', |
| 25 |
qw( checkauth haspermission track_login_daily checkpw get_template_and_user checkpw_hash get_cataloguing_page_permissions ) |
25 |
qw( checkauth haspermission checkpw get_template_and_user checkpw_hash get_cataloguing_page_permissions ) |
| 26 |
); |
26 |
); |
| 27 |
} |
27 |
} |
| 28 |
|
28 |
|
|
Lines 371-476
subtest 'checkauth() tests' => sub {
Link Here
|
| 371 |
C4::Context->_new_userenv; # For next tests |
371 |
C4::Context->_new_userenv; # For next tests |
| 372 |
}; |
372 |
}; |
| 373 |
|
373 |
|
| 374 |
subtest 'track_login_daily tests' => sub { |
|
|
| 375 |
|
| 376 |
plan tests => 18; |
| 377 |
|
| 378 |
my $patron = $builder->build_object({ class => 'Koha::Patrons' }); |
| 379 |
my $userid = $patron->userid; |
| 380 |
|
| 381 |
$patron->lastseen( undef ); |
| 382 |
$patron->store(); |
| 383 |
|
| 384 |
my $cache = Koha::Caches->get_instance(); |
| 385 |
my $cache_key = "track_login_" . $patron->userid; |
| 386 |
$cache->clear_from_cache($cache_key); |
| 387 |
|
| 388 |
t::lib::Mocks::mock_preference( 'TrackLastPatronActivity', '1' ); |
| 389 |
t::lib::Mocks::mock_preference( 'TrackLastPatronActivityTriggers', 'login,connection,check_in,check_out,renewal' ); |
| 390 |
|
| 391 |
is( $patron->lastseen, undef, 'Patron should have not last seen when newly created' ); |
| 392 |
|
| 393 |
C4::Auth::track_login_daily( $userid, 'login' ); |
| 394 |
$patron->_result()->discard_changes(); |
| 395 |
isnt( $patron->lastseen, undef, 'Patron should have last seen set when TrackLastPatronActivity = 1' ); |
| 396 |
|
| 397 |
sleep(1); # We need to wait a tiny bit to make sure the timestamp will be different |
| 398 |
my $last_seen = $patron->lastseen; |
| 399 |
C4::Auth::track_login_daily( $userid, 'login' ); |
| 400 |
$patron->_result()->discard_changes(); |
| 401 |
is( $patron->lastseen, $last_seen, 'Patron last seen should still be unchanged after a login' ); |
| 402 |
C4::Auth::track_login_daily( $userid, 'connection' ); |
| 403 |
$patron->_result()->discard_changes(); |
| 404 |
is( $patron->lastseen, $last_seen, 'Patron last seen should still be unchanged after a SIP/ILSDI connection' ); |
| 405 |
C4::Auth::track_login_daily( $userid, 'check_out' ); |
| 406 |
$patron->_result()->discard_changes(); |
| 407 |
is( $patron->lastseen, $last_seen, 'Patron last seen should still be unchanged after a check out' ); |
| 408 |
C4::Auth::track_login_daily( $userid, 'check_in' ); |
| 409 |
$patron->_result()->discard_changes(); |
| 410 |
is( $patron->lastseen, $last_seen, 'Patron last seen should still be unchanged after a check in' ); |
| 411 |
C4::Auth::track_login_daily( $userid, 'renewal' ); |
| 412 |
$patron->_result()->discard_changes(); |
| 413 |
is( $patron->lastseen, $last_seen, 'Patron last seen should still be unchanged after a renewal' ); |
| 414 |
|
| 415 |
# Check that removing options stops tracking changes |
| 416 |
t::lib::Mocks::mock_preference( 'TrackLastPatronActivityTriggers', 'connection,check_in,check_out,renewal' ); |
| 417 |
$cache->clear_from_cache($cache_key); |
| 418 |
C4::Auth::track_login_daily( $userid, 'login' ); |
| 419 |
$patron->_result()->discard_changes(); |
| 420 |
is( $patron->lastseen, $last_seen, 'Patron last seen should be unchanged after a login if login is not selected as an option and the cache has been cleared' ); |
| 421 |
t::lib::Mocks::mock_preference( 'TrackLastPatronActivityTriggers', 'check_in,check_out,renewal' ); |
| 422 |
$cache->clear_from_cache($cache_key); |
| 423 |
C4::Auth::track_login_daily( $userid, 'connection' ); |
| 424 |
$patron->_result()->discard_changes(); |
| 425 |
is( $patron->lastseen, $last_seen, 'Patron last seen should be unchanged after a connection if connection is not selected as an option and the cache has been cleared' ); |
| 426 |
t::lib::Mocks::mock_preference( 'TrackLastPatronActivityTriggers', 'check_out,renewal' ); |
| 427 |
$cache->clear_from_cache($cache_key); |
| 428 |
C4::Auth::track_login_daily( $userid, 'check_in' ); |
| 429 |
$patron->_result()->discard_changes(); |
| 430 |
is( $patron->lastseen, $last_seen, 'Patron last seen should be unchanged after a check_in if check_in is not selected as an option and the cache has been cleared' ); |
| 431 |
t::lib::Mocks::mock_preference( 'TrackLastPatronActivityTriggers', 'renewal' ); |
| 432 |
$cache->clear_from_cache($cache_key); |
| 433 |
C4::Auth::track_login_daily( $userid, 'check_out' ); |
| 434 |
$patron->_result()->discard_changes(); |
| 435 |
is( $patron->lastseen, $last_seen, 'Patron last seen should be unchanged after a check_out if check_out is not selected as an option and the cache has been cleared' ); |
| 436 |
t::lib::Mocks::mock_preference( 'TrackLastPatronActivityTriggers', '' ); |
| 437 |
$cache->clear_from_cache($cache_key); |
| 438 |
C4::Auth::track_login_daily( $userid, 'renewal' ); |
| 439 |
$patron->_result()->discard_changes(); |
| 440 |
is( $patron->lastseen, $last_seen, 'Patron last seen should be unchanged after a renewal if renewal is not selected as an option and the cache has been cleared' ); |
| 441 |
|
| 442 |
# Restore all options to test changes |
| 443 |
t::lib::Mocks::mock_preference( 'TrackLastPatronActivityTriggers', 'login,connection,check_in,check_out,renewal' ); |
| 444 |
|
| 445 |
$cache->clear_from_cache($cache_key); |
| 446 |
C4::Auth::track_login_daily( $userid, 'login' ); |
| 447 |
$patron->_result()->discard_changes(); |
| 448 |
isnt( $patron->lastseen, $last_seen, 'Patron last seen should be changed after a login if we cleared the cache' ); |
| 449 |
$cache->clear_from_cache($cache_key); |
| 450 |
C4::Auth::track_login_daily( $userid, 'connection' ); |
| 451 |
$patron->_result()->discard_changes(); |
| 452 |
isnt( $patron->lastseen, $last_seen, 'Patron last seen should be changed after a connection if we cleared the cache' ); |
| 453 |
$cache->clear_from_cache($cache_key); |
| 454 |
C4::Auth::track_login_daily( $userid, 'check_out' ); |
| 455 |
$patron->_result()->discard_changes(); |
| 456 |
isnt( $patron->lastseen, $last_seen, 'Patron last seen should be changed after a check_out if we cleared the cache' ); |
| 457 |
$cache->clear_from_cache($cache_key); |
| 458 |
C4::Auth::track_login_daily( $userid, 'check_in' ); |
| 459 |
$patron->_result()->discard_changes(); |
| 460 |
isnt( $patron->lastseen, $last_seen, 'Patron last seen should be changed after a check_in if we cleared the cache' ); |
| 461 |
$cache->clear_from_cache($cache_key); |
| 462 |
C4::Auth::track_login_daily( $userid, 'renewal' ); |
| 463 |
$patron->_result()->discard_changes(); |
| 464 |
isnt( $patron->lastseen, $last_seen, 'Patron last seen should be changed after a renewal if we cleared the cache' ); |
| 465 |
|
| 466 |
t::lib::Mocks::mock_preference( 'TrackLastPatronActivity', '0' ); |
| 467 |
$patron->lastseen( undef )->store; |
| 468 |
$cache->clear_from_cache($cache_key); |
| 469 |
C4::Auth::track_login_daily( $userid, 'login' ); |
| 470 |
$patron->_result()->discard_changes(); |
| 471 |
is( $patron->lastseen, undef, 'Patron should still have last seen unchanged when TrackLastPatronActivity = 0' ); |
| 472 |
}; |
| 473 |
|
| 474 |
subtest 'no_set_userenv parameter tests' => sub { |
374 |
subtest 'no_set_userenv parameter tests' => sub { |
| 475 |
|
375 |
|
| 476 |
plan tests => 7; |
376 |
plan tests => 7; |