From 7e85848ef9b82a78534da4c0b1e0246e6156e15e Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Thu, 4 Jun 2015 16:25:09 -0400 Subject: [PATCH] Bug 14334: t/db_dependent/Accounts.t AutoCommit fix There is no easy way to trigger an obvious problem, as this test uses Koha::Borrowers and other DBIx things, which may or may not be causing it to not blow up. TEST PLAN --------- 1) apply patch 2) git diff origin/master -- Are the additions/subtractions similar to http://paste.lisp.org/display/149194? 3) run koha qa test tools --- t/db_dependent/Accounts.t | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/t/db_dependent/Accounts.t b/t/db_dependent/Accounts.t index a167f02..bc45631 100644 --- a/t/db_dependent/Accounts.t +++ b/t/db_dependent/Accounts.t @@ -28,6 +28,7 @@ BEGIN { use_ok('Koha::Borrower'); use_ok('Data::Dumper'); } +use Koha::Database; can_ok( 'C4::Accounts', qw( recordpayment @@ -47,8 +48,10 @@ can_ok( 'C4::Accounts', ); my $dbh = C4::Context->dbh; +my $database = Koha::Database->new(); +my $schema = $database->schema(); +$schema->storage->txn_begin(); $dbh->{RaiseError}=1; -$dbh->{AutoCommit}=0; $dbh->do(q|DELETE FROM accountlines|); $dbh->do(q|DELETE FROM borrowers|); $dbh->do(q|DELETE FROM issues|); @@ -172,7 +175,7 @@ is($note,'$200.00 payment note', '$200.00 payment note is registered'); -$dbh->rollback; +$schema->storage->txn_rollback(); # Sub ------------------------------------------- @@ -180,4 +183,4 @@ $dbh->rollback; # C4::Context->userenv sub Mock_userenv { return $userenv; -} \ No newline at end of file +} -- 2.1.4