|
Lines 2-8
Link Here
|
| 2 |
|
2 |
|
| 3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
| 4 |
|
4 |
|
| 5 |
use Test::More; |
5 |
use Test::More tests => 6; |
|
|
6 |
use C4::Context; |
| 6 |
use C4::Acquisition; |
7 |
use C4::Acquisition; |
| 7 |
use C4::Biblio; |
8 |
use C4::Biblio; |
| 8 |
use C4::Items; |
9 |
use C4::Items; |
|
Lines 10-15
use C4::Bookseller;
Link Here
|
| 10 |
use C4::Budgets; |
11 |
use C4::Budgets; |
| 11 |
use MARC::Record; |
12 |
use MARC::Record; |
| 12 |
|
13 |
|
|
|
14 |
my $dbh = C4::Context->dbh; |
| 15 |
$dbh->{RaiseError} = 1; |
| 16 |
$dbh->{AutoCommit} = 0; |
| 17 |
|
| 13 |
my $booksellerid1 = C4::Bookseller::AddBookseller( |
18 |
my $booksellerid1 = C4::Bookseller::AddBookseller( |
| 14 |
{ |
19 |
{ |
| 15 |
name => "my vendor 1", |
20 |
name => "my vendor 1", |
|
Lines 72-86
is(scalar GetOrders($basketno2), 1, "1 order in basket2");
Link Here
|
| 72 |
($order) = GetOrders($basketno2); |
77 |
($order) = GetOrders($basketno2); |
| 73 |
is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 1, "1 item in basket2's order"); |
78 |
is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 1, "1 item in basket2's order"); |
| 74 |
|
79 |
|
| 75 |
END { |
80 |
$dbh->rollback; |
| 76 |
C4::Acquisition::DelOrder( $biblionumber, $ordernumber ); |
|
|
| 77 |
C4::Acquisition::DelOrder( $biblionumber, $newordernumber ); |
| 78 |
C4::Budgets::DelBudget( $budgetid ); |
| 79 |
C4::Acquisition::DelBasket( $basketno1 ); |
| 80 |
C4::Bookseller::DelBookseller( $booksellerid1 ); |
| 81 |
C4::Acquisition::DelBasket( $basketno2 ); |
| 82 |
C4::Bookseller::DelBookseller( $booksellerid2 ); |
| 83 |
C4::Biblio::DelBiblio($biblionumber); |
| 84 |
}; |
| 85 |
|
| 86 |
done_testing; |
| 87 |
- |
|
|