Bug 17600: Standardize our EXPORT_OK

[srvgit] / t / db_dependent / Record.t

diff --git a/t/db_dependent/Record.t b/t/db_dependent/Record.t
index 2d839f3..53a4ae6 100755 (executable)
--- a/t/db_dependent/Record.t
+++ b/t/db_dependent/Record.t
@@ -7,22 +7,21 @@ use MARC::Record;
 
 use t::lib::Mocks;
 use C4::Context;
+use Koha::Database;
 
 BEGIN {
-        use_ok('C4::Record');
+    use_ok('C4::Record', qw( marc2marc marc2marcxml marcxml2marc marc2dcxml marc2modsxml marc2bibtex ));
 }
 
-my $dbh = C4::Context->dbh;
-# Start transaction
-$dbh->{AutoCommit} = 0;
-$dbh->{RaiseError} = 1;
+my $schema = Koha::Database->new->schema;
+$schema->storage->txn_begin;
 
 t::lib::Mocks::mock_preference( "BibtexExportAdditionalFields", q{} );
 
 my @marcarray=marc2marc;
 is ($marcarray[0],"Feature not yet implemented\n","error works");
 
-my $marc=new MARC::Record;
+my $marc=MARC::Record->new;
 my $marcxml=marc2marcxml($marc);
 my $testxml=qq(<?xml version="1.0" encoding="UTF-8"?>
 <record