From ecf4534b9a545866bf4c572a5f20215cc1884206 Mon Sep 17 00:00:00 2001 From: Mark Tompsett <mtompset@hotmail.com> Date: Thu, 8 Mar 2018 03:03:46 +0000 Subject: [PATCH] Bug 20097: Follow-up with a unit test kshell prove -v t/db_dependent/Record.t --- t/db_dependent/Record.t | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/t/db_dependent/Record.t b/t/db_dependent/Record.t index 62c1564..2d839f3 100755 --- a/t/db_dependent/Record.t +++ b/t/db_dependent/Record.t @@ -2,7 +2,7 @@ use Modern::Perl; -use Test::More tests => 13; +use Test::More tests => 14; use MARC::Record; use t::lib::Mocks; @@ -71,14 +71,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"?> -- 2.1.4