|
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 |
- |
|
|