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

(-)a/t/db_dependent/Acquisition/OrderFromSubscription.t (-10 / +8 lines)
Lines 7-12 use_ok('C4::Acquisition'); Link Here
7
use_ok('C4::Biblio');
7
use_ok('C4::Biblio');
8
use_ok('C4::Budgets');
8
use_ok('C4::Budgets');
9
use_ok('C4::Serials');
9
use_ok('C4::Serials');
10
11
# Start transaction
12
my $dbh = C4::Context->dbh;
13
$dbh->{AutoCommit} = 0;
14
$dbh->{RaiseError} = 1;
15
10
my $supplierlist=eval{GetSuppliersWithLateIssues()};
16
my $supplierlist=eval{GetSuppliersWithLateIssues()};
11
ok(length($@)==0,"No SQL problem in GetSuppliersWithLateIssues");
17
ok(length($@)==0,"No SQL problem in GetSuppliersWithLateIssues");
12
18
Lines 87-98 ok( $order->{ecost} == $cost, "test cost for the last order received"); Link Here
87
$order = GetLastOrderNotReceivedFromSubscriptionid( $subscription->{subscriptionid} );
93
$order = GetLastOrderNotReceivedFromSubscriptionid( $subscription->{subscriptionid} );
88
is ( $order, undef, "test no not received order for a received order");
94
is ( $order, undef, "test no not received order for a received order");
89
95
90
# cleaning
96
# Cleanup
91
END {
97
$dbh->rollback;
92
    DelSubscription( $subscription->{subscriptionid} );
93
    DelOrder( $subscription->{biblionumber}, $ordernumber );
94
    DelBudgetPeriod($bpid);
95
    DelBudget($budget_id);
96
    DelBasket( $basketno );
97
    DelBiblio($biblionumber);
98
};
99
- 

Return to bug 10275