@@ -, +, @@
---
t/db_dependent/Record.t | 16 +++++++++++++---
1 file changed, 13 insertions(+), 3 deletions(-)
--- a/t/db_dependent/Record.t
+++ a/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(
--