Lines 18-23
BEGIN {
Link Here
|
18 |
use_ok('C4::Bookseller'); |
18 |
use_ok('C4::Bookseller'); |
19 |
} |
19 |
} |
20 |
|
20 |
|
|
|
21 |
my $dbh = C4::Context->dbh; |
22 |
$dbh->{AutoCommit} = 0; |
23 |
$dbh->{RaiseError} = 1; |
24 |
|
21 |
my $booksellerid = C4::Bookseller::AddBookseller( |
25 |
my $booksellerid = C4::Bookseller::AddBookseller( |
22 |
{ |
26 |
{ |
23 |
name => "my vendor", |
27 |
name => "my vendor", |
Lines 120-132
for my $field ( @expectedfields ) {
Link Here
|
120 |
ok( exists( $firstorder->{ $field } ), "This order has a $field field" ); |
124 |
ok( exists( $firstorder->{ $field } ), "This order has a $field field" ); |
121 |
} |
125 |
} |
122 |
|
126 |
|
123 |
END { |
127 |
$dbh->rollback; |
124 |
C4::Acquisition::DelOrder( $biblionumber1, $ordernumber1 ); |
|
|
125 |
C4::Acquisition::DelOrder( $biblionumber2, $ordernumber2 ); |
126 |
C4::Acquisition::DelOrder( $biblionumber2, $ordernumber3 ); |
127 |
C4::Budgets::DelBudget( $budgetid ); |
128 |
C4::Acquisition::DelBasket( $basketno ); |
129 |
C4::Bookseller::DelBookseller( $booksellerid ); |
130 |
C4::Biblio::DelBiblio($biblionumber1); |
131 |
C4::Biblio::DelBiblio($biblionumber2); |
132 |
}; |
133 |
- |
|
|