View | Details | Raw Unified | Return to bug 5349
Collapse All | Expand All

(-)a/t/db_dependent/Acquisition/TransferOrder.t (-14 / +7 lines)
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
- 

Return to bug 5349