View | Details | Raw Unified | Return to bug 20097
Collapse All | Expand All

(-)a/t/db_dependent/Record.t (-4 / +13 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 13;
5
use Test::More tests => 14;
6
use MARC::Record;
6
use MARC::Record;
7
7
8
use t::lib::Mocks;
8
use t::lib::Mocks;
Lines 71-84 my $test3xml=qq(<?xml version="1.0" encoding="UTF-8"?> Link Here
71
is ($marcoaidc, $test3xml, "testing OAIDC Metadata");
71
is ($marcoaidc, $test3xml, "testing OAIDC Metadata");
72
72
73
my $marcrdfdc=marc2dcxml( $marc, undef, undef, "rdfdc" );
73
my $marcrdfdc=marc2dcxml( $marc, undef, undef, "rdfdc" );
74
my $test4xml=qq(<?xml version="1.0" encoding="UTF-8"?>
74
my $test4Axml=qq(<?xml version="1.0" encoding="UTF-8"?>
75
<rdf:Description xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:dc="http://purl.org/dc/elements/1.1/">
75
<rdf:Description xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:dc="http://purl.org/dc/elements/1.1/">
76
  <dc:type/>
76
  <dc:type/>
77
  <dc:language/>
77
  <dc:language/>
78
</rdf:Description>
78
</rdf:Description>
79
);
79
);
80
80
81
is ($marcrdfdc, $test4xml, "testing OAIDC Metadata");
81
is ($marcrdfdc, $test4Axml, "testing RDFDC Metadata");
82
83
my $marcdc=marc2dcxml( $marc, undef, undef, "dc" );
84
my $test4Bxml=qq(<?xml version="1.0" encoding="UTF-8"?>
85
<rdf:Description xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:dc="http://purl.org/dc/elements/1.1/">
86
  <dc:type/>
87
  <dc:language/>
88
</rdf:Description>
89
);
90
91
is ($marcrdfdc, $test4Bxml, "testing DC Metadata");
82
92
83
my $mods=marc2modsxml($marc);
93
my $mods=marc2modsxml($marc);
84
my $test5xml=qq(<?xml version="1.0" encoding="UTF-8"?>
94
my $test5xml=qq(<?xml version="1.0" encoding="UTF-8"?>
85
- 

Return to bug 20097