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