Lines 15-20
use C4::Budgets;
Link Here
|
15 |
use C4::Biblio; |
15 |
use C4::Biblio; |
16 |
|
16 |
|
17 |
use Koha::Acquisition::Order; |
17 |
use Koha::Acquisition::Order; |
|
|
18 |
use Koha::Database; |
18 |
|
19 |
|
19 |
BEGIN { |
20 |
BEGIN { |
20 |
use_ok('C4::Bookseller'); |
21 |
use_ok('C4::Bookseller'); |
Lines 32-39
can_ok(
Link Here
|
32 |
|
33 |
|
33 |
#Start transaction |
34 |
#Start transaction |
34 |
my $dbh = C4::Context->dbh; |
35 |
my $dbh = C4::Context->dbh; |
|
|
36 |
my $database = Koha::Database->new(); |
37 |
my $schema = $database->schema(); |
38 |
$schema->storage->txn_begin(); |
39 |
|
35 |
$dbh->{RaiseError} = 1; |
40 |
$dbh->{RaiseError} = 1; |
36 |
$dbh->{AutoCommit} = 0; |
|
|
37 |
|
41 |
|
38 |
#Start tests |
42 |
#Start tests |
39 |
$dbh->do(q|DELETE FROM aqorders|); |
43 |
$dbh->do(q|DELETE FROM aqorders|); |
Lines 742-748
is( scalar @$contacts,
Link Here
|
742 |
1, 'Only one contact after modification' ); |
746 |
1, 'Only one contact after modification' ); |
743 |
|
747 |
|
744 |
#End transaction |
748 |
#End transaction |
745 |
$dbh->rollback; |
749 |
$schema->storage->txn_rollback(); |
746 |
|
750 |
|
747 |
#field_filter filters the useless fields or foreign keys |
751 |
#field_filter filters the useless fields or foreign keys |
748 |
#NOTE: all the fields of aqbookseller arent considered |
752 |
#NOTE: all the fields of aqbookseller arent considered |
749 |
- |
|
|