use_ok('C4::Biblio');
use_ok('C4::Budgets');
use_ok('C4::Serials');
+
+# Start transaction
+my $dbh = C4::Context->dbh;
+$dbh->{AutoCommit} = 0;
+$dbh->{RaiseError} = 1;
+
my $supplierlist=eval{GetSuppliersWithLateIssues()};
ok(length($@)==0,"No SQL problem in GetSuppliersWithLateIssues");
$order = GetLastOrderNotReceivedFromSubscriptionid( $subscription->{subscriptionid} );
is ( $order, undef, "test no not received order for a received order");
-# cleaning
-END {
- DelSubscription( $subscription->{subscriptionid} );
- DelOrder( $subscription->{biblionumber}, $ordernumber );
- DelBudgetPeriod($bpid);
- DelBudget($budget_id);
- DelBasket( $basketno );
- DelBiblio($biblionumber);
-};
+# Cleanup
+$dbh->rollback;