From ffdcbc25bac43285e30e3b869561e6b99e192efe Mon Sep 17 00:00:00 2001 From: Hammat Wele Date: Fri, 6 Mar 2026 20:46:47 +0000 Subject: [PATCH] Bug 41690: (follow-up) Add test --- t/db_dependent/Record.t | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Record.t b/t/db_dependent/Record.t index 487e42f6c35..fb5f3f327d5 100755 --- a/t/db_dependent/Record.t +++ b/t/db_dependent/Record.t @@ -3,7 +3,7 @@ use Modern::Perl; use Test::NoWarnings; -use Test::More tests => 16; +use Test::More tests => 17; use MARC::Record; use t::lib::Mocks; @@ -152,3 +152,11 @@ 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' ); + +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' +); -- 2.34.1