Lines 251-266
$zoom_record->mock('raw', sub {
Link Here
|
251 |
|
251 |
|
252 |
my @biblios = C4::AuthoritiesMarc::merge($authid2, undef, $authid1, undef); |
252 |
my @biblios = C4::AuthoritiesMarc::merge($authid2, undef, $authid1, undef); |
253 |
|
253 |
|
254 |
is_deeply(\@biblios, [$biblionumber2]); |
254 |
is_deeply(\@biblios, [$biblionumber2], 'merge() modified the expected biblio'); |
255 |
$biblio1 = GetMarcBiblio($biblionumber1); |
255 |
$biblio1 = GetMarcBiblio($biblionumber1); |
256 |
is($biblio1->subfield('609', '9'), $authid1); |
256 |
is($biblio1->subfield('609', '9'), $authid1, 'field 609 of 1st biblio is unchanged'); |
257 |
is($biblio1->subfield('609', 'a'), 'George Orwell'); |
257 |
is($biblio1->subfield('609', 'a'), 'George Orwell', 'field 609 of 1st biblio is unchanged'); |
258 |
$biblio2 = GetMarcBiblio($biblionumber2); |
258 |
$biblio2 = GetMarcBiblio($biblionumber2); |
259 |
is($biblio2->subfield('609', '9'), $authid1); |
259 |
is($biblio2->subfield('609', '9'), $authid1, 'field 609 of 2nd biblio has been modified'); |
260 |
is($biblio2->subfield('609', 'a'), 'George Orwell'); |
260 |
is($biblio2->subfield('609', 'a'), 'George Orwell', 'field 609 of 2nd biblio has been modified'); |
261 |
|
261 |
|
262 |
ok(defined(GetAuthority($authid1))); |
262 |
ok(defined(GetAuthority($authid1)), '1st authority still exists'); |
263 |
ok(!defined(GetAuthority($authid2))); |
263 |
ok(!defined(GetAuthority($authid2)), '2nd authority was deleted'); |
264 |
# End testing C4::AuthoritiesMarc::merge |
264 |
# End testing C4::AuthoritiesMarc::merge |
265 |
|
265 |
|
266 |
$dbh->rollback; |
266 |
$dbh->rollback; |
267 |
- |
|
|