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