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

(-)a/t/db_dependent/Acquisition/GetOrdersByBiblionumber.t (-11 / +7 lines)
Lines 9-14 use C4::Bookseller; Link Here
9
use C4::Budgets;
9
use C4::Budgets;
10
use MARC::Record;
10
use MARC::Record;
11
11
12
#Start transaction
13
my $dbh = C4::Context->dbh;
14
$dbh->{AutoCommit} = 0;
15
$dbh->{RaiseError} = 1;
16
12
my $booksellerid = C4::Bookseller::AddBookseller(
17
my $booksellerid = C4::Bookseller::AddBookseller(
13
    {
18
    {
14
        name => "my vendor",
19
        name => "my vendor",
Lines 70-84 is(scalar(@orders), 1, '1 order on biblionumber 1'); Link Here
70
@orders = GetOrdersByBiblionumber( $biblionumber2 );
75
@orders = GetOrdersByBiblionumber( $biblionumber2 );
71
is(scalar(@orders), 2, '2 orders on biblionumber 2');
76
is(scalar(@orders), 2, '2 orders on biblionumber 2');
72
77
73
END {
78
#End transaction
74
    C4::Acquisition::DelOrder( 1, $ordernumber1 );
79
$dbh->rollback;
75
    C4::Acquisition::DelOrder( 2, $ordernumber2 );
76
    C4::Acquisition::DelOrder( 3, $ordernumber3 );
77
    C4::Budgets::DelBudget( $budgetid );
78
    C4::Acquisition::DelBasket( $basketno );
79
    C4::Bookseller::DelBookseller( $booksellerid );
80
    C4::Biblio::DelBiblio($biblionumber1);
81
    C4::Biblio::DelBiblio($biblionumber2);
82
};
83
80
84
done_testing;
81
done_testing;
85
- 

Return to bug 10575