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