5 use Test
::More tests
=> 12;
14 my $dbh = C4
::Context
->dbh;
16 $dbh->{AutoCommit
} = 0;
17 $dbh->{RaiseError
} = 1;
19 C4
::Context
->set_preference( "BibtexExportAdditionalFields", q{} );
21 my @marcarray=marc2marc
;
22 is
($marcarray[0],"Feature not yet implemented\n","error works");
24 my $marc=new MARC
::Record
;
25 my $marcxml=marc2marcxml
($marc);
26 my $testxml=qq(<?xml version
="1.0" encoding
="UTF-8"?
>
28 xmlns
:xsi
="http://www.w3.org/2001/XMLSchema-instance"
29 xsi
:schemaLocation
="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd"
30 xmlns
="http://www.loc.gov/MARC21/slim">
35 is
($marcxml, $testxml, "testing marc2xml");
37 my $rawmarc=$marc->as_usmarc;
38 $marcxml=marc2marcxml
($rawmarc);
39 $testxml=qq(<?xml version
="1.0" encoding
="UTF-8"?
>
41 xmlns
:xsi
="http://www.w3.org/2001/XMLSchema-instance"
42 xsi
:schemaLocation
="http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd"
43 xmlns
="http://www.loc.gov/MARC21/slim">
45 <leader
>00026 a2200025
4500</leader
>
48 is
($marcxml, $testxml, "testing marc2xml");
50 my $marcconvert=marcxml2marc
($marcxml);
51 is
($marcconvert->as_xml,$marc->as_xml, "testing xml2marc");
53 my $marcdc=marc2dcxml
($marc);
54 my $test2xml=qq(<?xml version
="1.0" encoding
="UTF-8"?
>
56 xmlns
="http://example.org/myapp/"
57 xmlns
:xsi
="http://www.w3.org/2001/XMLSchema-instance"
58 xsi
:schemaLocation
="http://example.org/myapp/ http://example.org/myapp/schema.xsd"
59 xmlns
:dc
="http://purl.org/dc/elements/1.1/"
60 xmlns
:dcterms
="http://purl.org/dc/terms/">
63 is
($marcdc, $test2xml, "testing marc2dcxml");
65 my $marcqualified=marc2dcxml
($marc,1);
66 my $test3xml=qq(<?xml version
="1.0" encoding
="UTF-8"?
>
68 xmlns
="http://example.org/myapp/"
69 xmlns
:xsi
="http://www.w3.org/2001/XMLSchema-instance"
70 xsi
:schemaLocation
="http://example.org/myapp/ http://example.org/myapp/schema.xsd"
71 xmlns
:dc
="http://purl.org/dc/elements/1.1/"
72 xmlns
:dcterms
="http://purl.org/dc/terms/">
75 is
($marcqualified, $test3xml, "testing marcQualified");
77 my $mods=marc2modsxml
($marc);
78 my $test4xml=qq(<?xml version
="1.0" encoding
="UTF-8"?
>
79 <mods xmlns
:xsi
="http://www.w3.org/2001/XMLSchema-instance" xmlns
="http://www.loc.gov/mods/v3" version
="3.1" xsi
:schemaLocation
="http://www.loc.gov/mods/v3 http://www.loc.gov/standards/mods/v3/mods-3-1.xsd">
88 is
($mods, $test4xml, "testing marc2modsxml");
90 $marc->append_fields(MARC
::Field
->new(
91 '100', ' ', ' ', a
=> 'Rowling, J.K.'
93 my $field = MARC
::Field
->new('245','','','a' => "Harry potter");
94 $marc->append_fields($field);
95 $marc->append_fields(MARC
::Field
->new(
96 '260', ' ', ' ', b
=> 'Scholastic', c
=> '2001'
99 #my $endnote=marc2endnote($marc->as_usmarc);
102 my $bibtex=marc2bibtex
($marc, 'testID');
103 my $test5xml=qq(\
@book{testID
,
104 author
= {Rowling
, J
.K
.},
105 title
= {Harry potter
},
106 publisher
= {Scholastic
},
111 is
($bibtex, $test5xml, "testing bibtex");
113 C4
::Context
->set_preference( "BibtexExportAdditionalFields", "'\@': 260\$b\ntest: 260\$b" );
114 $bibtex = marc2bibtex
( $marc, 'testID' );
115 my $test6xml = qq(\
@Scholastic{testID
,
116 \tauthor
= {Rowling
, J
.K
.},
117 \ttitle
= {Harry potter
},
118 \tpublisher
= {Scholastic
},
120 \ttest
= {Scholastic
}
123 is
( $bibtex, $test6xml, "testing bibtex" );
124 C4
::Context
->set_preference( "BibtexExportAdditionalFields", q{} );
126 $marc->append_fields(MARC
::Field
->new(
127 '264', '3', '1', b
=> 'Reprints', c
=> '2011'
129 $bibtex = marc2bibtex
($marc, 'testID');
130 my $rdabibtex = qq(\
@book{testID
,
131 author
= {Rowling
, J
.K
.},
132 title
= {Harry potter
},
133 publisher
= {Reprints
},
137 is
($bibtex, $rdabibtex, "testing bibtex with RDA 264 field");
139 my @entity=C4
::Record
::_entity_encode
("Björn");
140 is
($entity[0], "Björn", "Html umlauts");