From 2a74082bbf01d7d166cba74b48ea58e3df9a65a0 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 1 Jul 2013 10:11:05 +0200 Subject: [PATCH] Bug 10275: Use a transaction for OrderFromSubscription.t --- t/db_dependent/Acquisition/OrderFromSubscription.t | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/t/db_dependent/Acquisition/OrderFromSubscription.t b/t/db_dependent/Acquisition/OrderFromSubscription.t index aa9a4a3..f767c56 100644 --- a/t/db_dependent/Acquisition/OrderFromSubscription.t +++ b/t/db_dependent/Acquisition/OrderFromSubscription.t @@ -7,6 +7,12 @@ use_ok('C4::Acquisition'); 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"); @@ -87,12 +93,5 @@ ok( $order->{ecost} == $cost, "test cost for the last order received"); $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; -- 1.7.10.4