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

(-)a/t/db_dependent/Authorities/Merge.t (-1 / +5 lines)
Lines 66-77 subtest 'Test merge A1 to A2 (within same authtype)' => sub { Link Here
66
66
67
    # Check the results
67
    # Check the results
68
    my $newbiblio1 = GetMarcBiblio($biblionumber1);
68
    my $newbiblio1 = GetMarcBiblio($biblionumber1);
69
    $newbiblio1->delete_fields( $newbiblio1->field('100') ); # fix for UNIMARC
69
    compare_field_count( $biblio1, $newbiblio1, 1 );
70
    compare_field_count( $biblio1, $newbiblio1, 1 );
70
    compare_field_order( $biblio1, $newbiblio1, 1 );
71
    compare_field_order( $biblio1, $newbiblio1, 1 );
71
    is( $newbiblio1->subfield('609', '9'), $authid1, 'Check biblio1 609$9' );
72
    is( $newbiblio1->subfield('609', '9'), $authid1, 'Check biblio1 609$9' );
72
    is( $newbiblio1->subfield('609', 'a'), 'George Orwell',
73
    is( $newbiblio1->subfield('609', 'a'), 'George Orwell',
73
        'Check biblio1 609$a' );
74
        'Check biblio1 609$a' );
74
    my $newbiblio2 = GetMarcBiblio($biblionumber2);
75
    my $newbiblio2 = GetMarcBiblio($biblionumber2);
76
    $newbiblio2->delete_fields( $newbiblio2->field('100') ); # fix for UNIMARC
75
    compare_field_count( $biblio2, $newbiblio2, 1 );
77
    compare_field_count( $biblio2, $newbiblio2, 1 );
76
    compare_field_order( $biblio2, $newbiblio2, 1 );
78
    compare_field_order( $biblio2, $newbiblio2, 1 );
77
    is( $newbiblio2->subfield('609', '9'), $authid1, 'Check biblio2 609$9' );
79
    is( $newbiblio2->subfield('609', '9'), $authid1, 'Check biblio2 609$9' );
Lines 108-117 subtest 'Test merge A1 to modified A1' => sub { Link Here
108
110
109
    #Check the results
111
    #Check the results
110
    my $biblio1 = GetMarcBiblio($biblionumber1);
112
    my $biblio1 = GetMarcBiblio($biblionumber1);
113
    $biblio1->delete_fields( $biblio1->field('100') ); # quick fix for UNIMARC
111
    compare_field_count( $MARC1, $biblio1, 1 );
114
    compare_field_count( $MARC1, $biblio1, 1 );
112
    compare_field_order( $MARC1, $biblio1, 1 );
115
    compare_field_order( $MARC1, $biblio1, 1 );
113
    is( $auth1new->field(109)->subfield('a'), $biblio1->field(109)->subfield('a'), 'Record1 values updated correctly' );
116
    is( $auth1new->field(109)->subfield('a'), $biblio1->field(109)->subfield('a'), 'Record1 values updated correctly' );
114
    my $biblio2 = GetMarcBiblio( $biblionumber2 );
117
    my $biblio2 = GetMarcBiblio( $biblionumber2 );
118
    $biblio2->delete_fields( $biblio2->field('100') ); # quick fix for UNIMARC
115
    compare_field_count( $MARC2, $biblio2, 1 );
119
    compare_field_count( $MARC2, $biblio2, 1 );
116
    compare_field_order( $MARC2, $biblio2, 1 );
120
    compare_field_order( $MARC2, $biblio2, 1 );
117
    is( $auth1new->field(109)->subfield('a'), $biblio2->field(109)->subfield('a'), 'Record2 values updated correctly' );
121
    is( $auth1new->field(109)->subfield('a'), $biblio2->field(109)->subfield('a'), 'Record2 values updated correctly' );
Lines 158-163 subtest 'Test merge A1 to B1 (changing authtype)' => sub { Link Here
158
162
159
    # Get new marc record for compares
163
    # Get new marc record for compares
160
    my $newbiblio = C4::Biblio::GetMarcBiblio( $biblionumber );
164
    my $newbiblio = C4::Biblio::GetMarcBiblio( $biblionumber );
165
    $newbiblio->delete_fields( $newbiblio->field('100') ); # fix for UNIMARC
161
    compare_field_count( $oldbiblio, $newbiblio, 1 );
166
    compare_field_count( $oldbiblio, $newbiblio, 1 );
162
    # TODO The following test will still fail; refined after 17913
167
    # TODO The following test will still fail; refined after 17913
163
    compare_field_order( $oldbiblio, $newbiblio, 0 );
168
    compare_field_order( $oldbiblio, $newbiblio, 0 );
164
- 

Return to bug 17909