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