View | Details | Raw Unified | Return to bug 41690
Collapse All | Expand All

(-)a/t/db_dependent/Record.t (-2 / +9 lines)
Lines 3-9 Link Here
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::NoWarnings;
5
use Test::NoWarnings;
6
use Test::More tests => 16;
6
use Test::More tests => 17;
7
use MARC::Record;
7
use MARC::Record;
8
8
9
use t::lib::Mocks;
9
use t::lib::Mocks;
Lines 152-154 is( $entity[0], "Björn", "Html umlauts" ); Link Here
152
$marc->field('260')->add_subfields( a => 'Hogwarts' );
152
$marc->field('260')->add_subfields( a => 'Hogwarts' );
153
my $cites = marc2cites($marc);
153
my $cites = marc2cites($marc);
154
is( $cites->{'Chicago'}, 'Rowling J.K, . 2011. Harry potter. Hogwarts: Reprints.', 'testing marc2cites' );
154
is( $cites->{'Chicago'}, 'Rowling J.K, . 2011. Harry potter. Hogwarts: Reprints.', 'testing marc2cites' );
155
- 
155
156
my $field245 = $marc->field('245');
157
$field245->add_subfields( 'b' => 'the cursed child' );
158
$cites = marc2cites($marc);
159
is(
160
    $cites->{'Chicago'}, 'Rowling J.K, . 2011. Harry potter: the cursed child. Hogwarts: Reprints.',
161
    'testing marc2cites'
162
);

Return to bug 41690