|
Lines 686-692
subtest 'Check value of login_attempts in checkpw' => sub {
Link Here
|
| 686 |
}; |
686 |
}; |
| 687 |
|
687 |
|
| 688 |
subtest 'Check value of login_attempts in checkpw' => sub { |
688 |
subtest 'Check value of login_attempts in checkpw' => sub { |
| 689 |
plan tests => 2; |
689 |
plan tests => 3; |
| 690 |
|
690 |
|
| 691 |
t::lib::Mocks::mock_preference('FailedLoginAttempts', 3); |
691 |
t::lib::Mocks::mock_preference('FailedLoginAttempts', 3); |
| 692 |
my $patron = $builder->build_object({ class => 'Koha::Patrons' }); |
692 |
my $patron = $builder->build_object({ class => 'Koha::Patrons' }); |
|
Lines 699-704
subtest 'Check value of login_attempts in checkpw' => sub {
Link Here
|
| 699 |
@test = checkpw( $patron->userid, '123', undef, 'opac', 1 ); |
699 |
@test = checkpw( $patron->userid, '123', undef, 'opac', 1 ); |
| 700 |
is( $test[0], -2, 'Patron returned as expired correctly' ); |
700 |
is( $test[0], -2, 'Patron returned as expired correctly' ); |
| 701 |
|
701 |
|
|
|
702 |
## Make our patron the anonymous patron |
| 703 |
t::lib::Mocks::mock_preference( 'AnonymousPatron', $patron->id ); |
| 704 |
@test = checkpw( $patron->userid, '123', undef, 'opac', 1 ); |
| 705 |
is( $test[0], -3, 'Patron returned as anonymous patron correctly' ); |
| 702 |
}; |
706 |
}; |
| 703 |
|
707 |
|
| 704 |
subtest '_timeout_syspref' => sub { |
708 |
subtest '_timeout_syspref' => sub { |
|
Lines 1077-1083
subtest 'checkpw() return values tests' => sub {
Link Here
|
| 1077 |
|
1081 |
|
| 1078 |
subtest 'Internal check tests' => sub { |
1082 |
subtest 'Internal check tests' => sub { |
| 1079 |
|
1083 |
|
| 1080 |
plan tests => 25; |
1084 |
plan tests => 29; |
| 1081 |
|
1085 |
|
| 1082 |
$schema->storage->txn_begin; |
1086 |
$schema->storage->txn_begin; |
| 1083 |
|
1087 |
|
|
Lines 1134-1139
subtest 'checkpw() return values tests' => sub {
Link Here
|
| 1134 |
is( ref( $return[1] ), 'Koha::Patron' ); |
1138 |
is( ref( $return[1] ), 'Koha::Patron' ); |
| 1135 |
is( $return[1]->id, $patron->id, 'Patron matched correctly' ); |
1139 |
is( $return[1]->id, $patron->id, 'Patron matched correctly' ); |
| 1136 |
|
1140 |
|
|
|
1141 |
t::lib::Mocks::mock_preference( 'AnonymousPatron', $patron->id ); |
| 1142 |
@return = checkpw( $patron->userid, $password, undef, ); |
| 1143 |
|
| 1144 |
is( scalar @return, 2, "Two results on expired password scenario" ); |
| 1145 |
is( $return[0], -3, '-3 returned' ); |
| 1146 |
is( ref( $return[1] ), 'Koha::Patron' ); |
| 1147 |
is( $return[1]->id, $patron->id, 'Patron matched correctly' ); |
| 1148 |
|
| 1137 |
@return = checkpw( $unused_userid, $password, undef, ); |
1149 |
@return = checkpw( $unused_userid, $password, undef, ); |
| 1138 |
|
1150 |
|
| 1139 |
is( scalar @return, 2, "Two results on non-existing userid scenario" ); |
1151 |
is( scalar @return, 2, "Two results on non-existing userid scenario" ); |
|
Lines 1151-1157
subtest 'checkpw() return values tests' => sub {
Link Here
|
| 1151 |
|
1163 |
|
| 1152 |
subtest 'CAS check (mocked) tests' => sub { |
1164 |
subtest 'CAS check (mocked) tests' => sub { |
| 1153 |
|
1165 |
|
| 1154 |
plan tests => 25; |
1166 |
plan tests => 29; |
| 1155 |
|
1167 |
|
| 1156 |
$schema->storage->txn_begin; |
1168 |
$schema->storage->txn_begin; |
| 1157 |
|
1169 |
|
|
Lines 1218-1223
subtest 'checkpw() return values tests' => sub {
Link Here
|
| 1218 |
is( ref( $return[1] ), 'Koha::Patron' ); |
1230 |
is( ref( $return[1] ), 'Koha::Patron' ); |
| 1219 |
is( $return[1]->id, $patron->id, 'Patron matched correctly' ); |
1231 |
is( $return[1]->id, $patron->id, 'Patron matched correctly' ); |
| 1220 |
|
1232 |
|
|
|
1233 |
t::lib::Mocks::mock_preference( 'AnonymousPatron', $patron->id ); |
| 1234 |
@return = checkpw( $patron->userid, $password, undef, ); |
| 1235 |
is( scalar @return, 2, "Two results on expired password scenario" ); |
| 1236 |
is( $return[0], -3, '-3 returned' ); |
| 1237 |
is( ref( $return[1] ), 'Koha::Patron' ); |
| 1238 |
is( $return[1]->id, $patron->id, 'Patron matched correctly' ); |
| 1239 |
|
| 1221 |
@return = checkpw( $unused_userid, $password, $query, ); |
1240 |
@return = checkpw( $unused_userid, $password, $query, ); |
| 1222 |
|
1241 |
|
| 1223 |
is( scalar @return, 2, "Two results on non-existing userid scenario" ); |
1242 |
is( scalar @return, 2, "Two results on non-existing userid scenario" ); |
| 1224 |
- |
|
|