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

(-)a/t/db_dependent/Authorities/Merge.t (-1 / +1 lines)
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
- 

Return to bug 17913