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