Bug 22059: regression tests

[koha.git] / t / db_dependent / Record.t

diff --git a/t/db_dependent/Record.t b/t/db_dependent/Record.t
index 62c1564..613e5ea 100755 (executable)
--- a/t/db_dependent/Record.t
+++ b/t/db_dependent/Record.t
@@ -2,20 +2,19 @@
 
 use Modern::Perl;
 
-use Test::More tests => 13;
+use Test::More tests => 14;
 use MARC::Record;
 
 use t::lib::Mocks;
 use C4::Context;
+use Koha::Database;
 
 BEGIN {
         use_ok('C4::Record');
 }
 
-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{} );
 
@@ -71,14 +70,24 @@ my $test3xml=qq(<?xml version="1.0" encoding="UTF-8"?>
 is ($marcoaidc, $test3xml, "testing OAIDC Metadata");
 
 my $marcrdfdc=marc2dcxml( $marc, undef, undef, "rdfdc" );
-my $test4xml=qq(<?xml version="1.0" encoding="UTF-8"?>
+my $test4Axml=qq(<?xml version="1.0" encoding="UTF-8"?>
 <rdf:Description xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:dc="http://purl.org/dc/elements/1.1/">
   <dc:type/>
   <dc:language/>
 </rdf:Description>
 );
 
-is ($marcrdfdc, $test4xml, "testing OAIDC Metadata");
+is ($marcrdfdc, $test4Axml, "testing RDFDC Metadata");
+
+my $marcdc=marc2dcxml( $marc, undef, undef, "dc" );
+my $test4Bxml=qq(<?xml version="1.0" encoding="UTF-8"?>
+<rdf:Description xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:dc="http://purl.org/dc/elements/1.1/">
+  <dc:type/>
+  <dc:language/>
+</rdf:Description>
+);
+
+is ($marcrdfdc, $test4Bxml, "testing DC Metadata");
 
 my $mods=marc2modsxml($marc);
 my $test5xml=qq(<?xml version="1.0" encoding="UTF-8"?>