Bug 18014: General update of AuthoritiesMarc.t

Modern::Perl, Koha::Database, etc.

Test plan:
Run t/db_dependent/AuthoritiesMarc.t

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Mark Tompsett <mtompset@hotmail.com>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>

diff --git a/t/db_dependent/AuthoritiesMarc.t b/t/db_dependent/AuthoritiesMarc.t
index f432a5d..da8241d 100755 (executable)
--- 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;