|
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 |
- |
|
|