Lines 134-139
subtest 'Test merge A1 to modified A1, test strict mode' => sub {
Link Here
|
134 |
$index = 0; |
134 |
$index = 0; |
135 |
$rv = C4::AuthoritiesMarc::merge( $authid1, $auth1old, $authid1, $auth1new ); |
135 |
$rv = C4::AuthoritiesMarc::merge( $authid1, $auth1old, $authid1, $auth1new ); |
136 |
$biblio1 = GetMarcBiblio($biblionumber1); |
136 |
$biblio1 = GetMarcBiblio($biblionumber1); |
|
|
137 |
$biblio1->delete_fields( $biblio1->field('100') ); # quick fix for UNIMARC |
137 |
is( $biblio1->field(109)->subfield('b'), undef, 'Subfield overwritten in strict mode' ); |
138 |
is( $biblio1->field(109)->subfield('b'), undef, 'Subfield overwritten in strict mode' ); |
138 |
is( $biblio1->fields, scalar( $MARC1->fields ) - 1, 'strict mode should remove a duplicate 609' ); |
139 |
is( $biblio1->fields, scalar( $MARC1->fields ) - 1, 'strict mode should remove a duplicate 609' ); |
139 |
is( $biblio1->field(609)->subfields, |
140 |
is( $biblio1->field(609)->subfields, |
140 |
- |
|
|