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