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 commita0b92c0bb6) Signed-off-by: Jacob O'Mara <Jacob.omara@openfifth.co.uk> Signed-off-by: Wainui Witika-Park <wainuiwitikapark@catalyst.net.nz> (cherry picked from commit9b394ddb7a) Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
parent
a969fe51a2
commit
f970d0b7f3
|
|
@ -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ö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'
|
||||
);
|
||||
|
|
|
|||
Loading…
Reference in New Issue