Lines 25-30
use t::lib::TestBuilder;
Link Here
|
25 |
use Test::Warn; |
25 |
use Test::Warn; |
26 |
|
26 |
|
27 |
use C4::Context; |
27 |
use C4::Context; |
|
|
28 |
use C4::Auth; |
28 |
|
29 |
|
29 |
use Koha::Patrons; |
30 |
use Koha::Patrons; |
30 |
|
31 |
|
Lines 272-277
subtest 'checkpw_ldap tests' => sub {
Link Here
|
272 |
$patron->delete; |
273 |
$patron->delete; |
273 |
$replicate = 0; |
274 |
$replicate = 0; |
274 |
$welcome = 0; |
275 |
$welcome = 0; |
|
|
276 |
|
277 |
# replicate testing with checkpw |
278 |
C4::Auth::checkpw( 'hola', password => 'hey' ); |
279 |
my $patron_replicated_from_Auth = Koha::Patrons->search( { userid => 'hola' } ); |
280 |
$patron_replicated_from_Auth->delete; |
281 |
|
275 |
$auth->unmock('ldap_entry_2_hash'); |
282 |
$auth->unmock('ldap_entry_2_hash'); |
276 |
# end replicate testing |
283 |
# end replicate testing |
277 |
|
284 |
|
Lines 499-504
sub mockedC4Config {
Link Here
|
499 |
my $class = shift; |
506 |
my $class = shift; |
500 |
my $param = shift; |
507 |
my $param = shift; |
501 |
|
508 |
|
|
|
509 |
if ( $param eq 'useldapserver' ) { |
510 |
return 1; |
511 |
} |
502 |
if ( $param eq 'useshibboleth' ) { |
512 |
if ( $param eq 'useshibboleth' ) { |
503 |
return 0; |
513 |
return 0; |
504 |
} |
514 |
} |
505 |
- |
|
|