From ea281bd338d90de260ab224b3986dad92ea179f3 Mon Sep 17 00:00:00 2001 From: Martin Stenberg Date: Thu, 22 Oct 2015 16:43:30 +0200 Subject: [PATCH] Bug 14670: add test for C4::Record::marc2cites --- t/db_dependent/Record.t | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Record.t b/t/db_dependent/Record.t index 8e806d7..590719e 100755 --- a/t/db_dependent/Record.t +++ b/t/db_dependent/Record.t @@ -2,7 +2,7 @@ use Modern::Perl; -use Test::More tests => 12; +use Test::More tests => 13; use MARC::Record; use C4::Context; @@ -141,6 +141,9 @@ is ($entity[0], "Bjö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'); -- 1.9.1