From 9cfbb560e30ba487bcc7d9c331a524506b1e6b11 Mon Sep 17 00:00:00 2001 From: Mark Tompsett 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 Signed-off-by: Mark Tompsett Signed-off-by: Josef Moravec --- 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( is ($marcoaidc, $test3xml, "testing OAIDC Metadata"); my $marcrdfdc=marc2dcxml( $marc, undef, undef, "rdfdc" ); -my $test4xml=qq( +my $test4Axml=qq( ); -is ($marcrdfdc, $test4xml, "testing OAIDC Metadata"); +is ($marcrdfdc, $test4Axml, "testing RDFDC Metadata"); + +my $marcdc=marc2dcxml( $marc, undef, undef, "dc" ); +my $test4Bxml=qq( + + + + +); + +is ($marcrdfdc, $test4Bxml, "testing DC Metadata"); my $mods=marc2modsxml($marc); my $test5xml=qq( -- 2.1.4