Bug 14670: add test for C4::Record::marc2cites

Signed-off-by: Hugo Agud <hagud@orex.es>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Martin Stenberg 2015-10-22 16:43:30 +02:00 committed by Katrin Fischer
parent 7fc709a7fe
commit 8fe7f04e51
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
1 changed files with 4 additions and 1 deletions

View File

@ -2,7 +2,7 @@
use Modern::Perl;
use Test::More tests => 14;
use Test::More tests => 15;
use MARC::Record;
use t::lib::Mocks;
@ -157,6 +157,9 @@ is ($entity[0], "Bj&#xC3;&#xB6;rn", "Html umlauts");
$marc->field('260')->add_subfields(a => 'Hogwarts');
my $cites = marc2cites($marc);
is ($cites->{'Chicago'}, 'Rowling J.K, . 2011. Harry potter. Hogwarts: Reprints.', 'testing marc2cites');