Lines 25-33
use C4::Members;
Link Here
|
25 |
use Test::More tests => 23; |
25 |
use Test::More tests => 23; |
26 |
|
26 |
|
27 |
use_ok('Koha::Borrower::Files'); |
27 |
use_ok('Koha::Borrower::Files'); |
|
|
28 |
use Koha::Database; |
28 |
|
29 |
|
29 |
my $dbh = C4::Context->dbh; |
30 |
my $dbh = C4::Context->dbh; |
30 |
$dbh->{AutoCommit} = 0; |
31 |
my $database = Koha::Database->new(); |
|
|
32 |
my $schema = $database->schema(); |
33 |
$schema->storage->txn_begin(); |
31 |
$dbh->{RaiseError} = 1; |
34 |
$dbh->{RaiseError} = 1; |
32 |
|
35 |
|
33 |
$dbh->do(q|DELETE FROM issues|); |
36 |
$dbh->do(q|DELETE FROM issues|); |
Lines 119-122
$bf->DelFile(
Link Here
|
119 |
$files = $bf->GetFilesInfo(); |
122 |
$files = $bf->GetFilesInfo(); |
120 |
is( @$files, 0, 'DelFile delete a file' ); |
123 |
is( @$files, 0, 'DelFile delete a file' ); |
121 |
|
124 |
|
122 |
$dbh->rollback; |
125 |
$schema->storage->txn_rollback(); |
123 |
- |
|
|