Lines 27-37
use C4::Context;
Link Here
|
27 |
|
27 |
|
28 |
use Koha::Patrons; |
28 |
use Koha::Patrons; |
29 |
|
29 |
|
30 |
my $dbh = C4::Context->dbh; |
30 |
my $schema = Koha::Database->new->schema; |
31 |
|
31 |
$schema->storage->txn_begin; |
32 |
# Start transaction |
|
|
33 |
$dbh->{AutoCommit} = 0; |
34 |
$dbh->{RaiseError} = 1; |
35 |
|
32 |
|
36 |
my $builder = t::lib::TestBuilder->new(); |
33 |
my $builder = t::lib::TestBuilder->new(); |
37 |
|
34 |
|
Lines 118-123
subtest 'checkpw_ldap tests' => sub {
Link Here
|
118 |
|
115 |
|
119 |
plan tests => 4; |
116 |
plan tests => 4; |
120 |
|
117 |
|
|
|
118 |
my $dbh = C4::Context->dbh; |
121 |
## Connection fail tests |
119 |
## Connection fail tests |
122 |
$desired_connection_result = 'error'; |
120 |
$desired_connection_result = 'error'; |
123 |
warning_is { |
121 |
warning_is { |
Lines 508-513
sub reload_ldap_module {
Link Here
|
508 |
return; |
506 |
return; |
509 |
} |
507 |
} |
510 |
|
508 |
|
511 |
$dbh->rollback; |
509 |
$schema->storage->txn_rollback; |
512 |
|
510 |
|
513 |
1; |
511 |
1; |
514 |
- |
|
|