From 990382bacd0d767b807500eabccdbab6c83cfb6b Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Tue, 31 Jan 2017 08:59:45 +0100 Subject: [PATCH] Bug 18014: General update of AuthoritiesMarc.t Content-Type: text/plain; charset=utf-8 Modern::Perl, Koha::Database, etc. Test plan: Run t/db_dependent/AuthoritiesMarc.t Signed-off-by: Marcel de Rooy --- t/db_dependent/AuthoritiesMarc.t | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/t/db_dependent/AuthoritiesMarc.t b/t/db_dependent/AuthoritiesMarc.t index f432a5d..da8241d 100755 --- a/t/db_dependent/AuthoritiesMarc.t +++ b/t/db_dependent/AuthoritiesMarc.t @@ -3,14 +3,15 @@ # This Koha test module is a stub! # Add more tests here!!! -use strict; -use warnings; +use Modern::Perl; use Test::More tests => 8; use Test::MockModule; use Test::Warn; use MARC::Record; + use t::lib::Mocks; +use Koha::Database; BEGIN { use_ok('C4::AuthoritiesMarc'); @@ -57,9 +58,9 @@ $module->mock('GetAuthority', sub { return $record; }); +my $schema = Koha::Database->new->schema; +$schema->storage->txn_begin; my $dbh = C4::Context->dbh; -$dbh->{AutoCommit} = 0; -$dbh->{RaiseError} = 1; t::lib::Mocks::mock_preference('marcflavour', 'MARC21'); @@ -190,4 +191,4 @@ is_deeply( 'test BuildSummary for UNIMARC' ); -$dbh->rollback; +$schema->storage->txn_rollback; -- 2.1.4