|
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 |
); |