From b831ee7145dcffe4d01b6a3045cd12dda8542491 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@biblibre.com>
Date: Mon, 1 Jul 2013 10:11:05 +0200
Subject: [PATCH] [PASSED QA] Bug 10275: Use a transaction for
 OrderFromSubscription.t

Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
---
 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.9.5