Lines 10-16
use CGI qw ( -utf8 );
Link Here
|
10 |
use Test::MockObject; |
10 |
use Test::MockObject; |
11 |
use Test::MockModule; |
11 |
use Test::MockModule; |
12 |
use List::MoreUtils qw/all any none/; |
12 |
use List::MoreUtils qw/all any none/; |
13 |
use Test::More tests => 22; |
13 |
use Test::More tests => 23; |
14 |
use Test::Warn; |
14 |
use Test::Warn; |
15 |
use t::lib::Mocks; |
15 |
use t::lib::Mocks; |
16 |
use t::lib::TestBuilder; |
16 |
use t::lib::TestBuilder; |
Lines 391-394
subtest 'Check value of login_attempts in checkpw' => sub {
Link Here
|
391 |
is( $patron->account_locked, 1, 'Check administrative lockout without pref' ); |
391 |
is( $patron->account_locked, 1, 'Check administrative lockout without pref' ); |
392 |
}; |
392 |
}; |
393 |
|
393 |
|
|
|
394 |
subtest '_timeout_syspref' => sub { |
395 |
plan tests => 5; |
396 |
|
397 |
t::lib::Mocks::mock_preference('timeout', "100"); |
398 |
is( C4::Auth::_timeout_syspref, 100, ); |
399 |
|
400 |
t::lib::Mocks::mock_preference('timeout', "2d"); |
401 |
is( C4::Auth::_timeout_syspref, 2*86400, ); |
402 |
|
403 |
t::lib::Mocks::mock_preference('timeout', "2D"); |
404 |
is( C4::Auth::_timeout_syspref, 2*86400, ); |
405 |
|
406 |
t::lib::Mocks::mock_preference('timeout', "10h"); |
407 |
is( C4::Auth::_timeout_syspref, 10*3600, ); |
408 |
|
409 |
t::lib::Mocks::mock_preference('timeout', "10x"); |
410 |
is( C4::Auth::_timeout_syspref, 600, ); |
411 |
}; |
412 |
|
394 |
$schema->storage->txn_rollback; |
413 |
$schema->storage->txn_rollback; |
395 |
- |
|
|