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