Bug 41690: (follow-up) Add test

Signed-off-by: David Nind <david@davidnind.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
(cherry picked from commit a0b92c0bb6)
Signed-off-by: Jacob O'Mara <Jacob.omara@openfifth.co.uk>
Signed-off-by: Wainui Witika-Park <wainuiwitikapark@catalyst.net.nz>
(cherry picked from commit 9b394ddb7a)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
Hammat Wele 2026-03-06 20:46:47 +00:00 committed by Fridolin Somers
parent a969fe51a2
commit f970d0b7f3
No known key found for this signature in database
GPG Key ID: 9A8E73E2A8B96537
1 changed files with 9 additions and 1 deletions

View File

@ -2,7 +2,7 @@
use Modern::Perl;
use Test::More tests => 15;
use Test::More tests => 16;
use MARC::Record;
use t::lib::Mocks;
@ -158,3 +158,11 @@ 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' );
my $field245 = $marc->field('245');
$field245->add_subfields( 'b' => 'the cursed child' );
$cites = marc2cites($marc);
is(
$cites->{'Chicago'}, 'Rowling J.K, . 2011. Harry potter: the cursed child. Hogwarts: Reprints.',
'testing marc2cites'
);