| Lines 38-44
          set_mocks();
      
      
        Link Here | 
        
          | 38 | # Framework operations | 38 | # Framework operations | 
        
          | 39 | my ( $authtype1, $authtype2 ) = modify_framework(); | 39 | my ( $authtype1, $authtype2 ) = modify_framework(); | 
        
          | 40 |  | 40 |  | 
          
            
              | 41 | subtest 'Test merge A1 to A2 (withing same authtype)' => sub { | 41 | subtest 'Test merge A1 to A2 (within same authtype)' => sub { | 
        
          | 42 | # Tests originate from bug 11700 | 42 | # Tests originate from bug 11700 | 
        
          | 43 |     plan tests => 9; | 43 |     plan tests => 9; | 
        
          | 44 |  | 44 |  | 
  
    | Lines 111-117
          subtest 'Test merge A1 to modified A1' => sub {
      
      
        Link Here | 
        
          | 111 |     compare_field_count( $MARC1, $biblio1, 1 ); | 111 |     compare_field_count( $MARC1, $biblio1, 1 ); | 
        
          | 112 |     compare_field_order( $MARC1, $biblio1, 1 ); | 112 |     compare_field_order( $MARC1, $biblio1, 1 ); | 
        
          | 113 |     is( $auth1new->field(109)->subfield('a'), $biblio1->field(109)->subfield('a'), 'Record1 values updated correctly' ); | 113 |     is( $auth1new->field(109)->subfield('a'), $biblio1->field(109)->subfield('a'), 'Record1 values updated correctly' ); | 
          
            
              | 114 |     my $biblio2 = GetMarcBiblio($biblionumber1); | 114 |     my $biblio2 = GetMarcBiblio( $biblionumber2 ); | 
        
          | 115 |     compare_field_count( $MARC2, $biblio2, 1 ); | 115 |     compare_field_count( $MARC2, $biblio2, 1 ); | 
        
          | 116 |     compare_field_order( $MARC2, $biblio2, 1 ); | 116 |     compare_field_order( $MARC2, $biblio2, 1 ); | 
        
          | 117 |     is( $auth1new->field(109)->subfield('a'), $biblio2->field(109)->subfield('a'), 'Record2 values updated correctly' ); | 117 |     is( $auth1new->field(109)->subfield('a'), $biblio2->field(109)->subfield('a'), 'Record2 values updated correctly' ); | 
  
    | Lines 233-239
          sub modify_framework {
      
      
        Link Here | 
        
          | 233 |         }, | 233 |         }, | 
        
          | 234 |     }); | 234 |     }); | 
        
          | 235 |  | 235 |  | 
          
            
              | 236 |     # Link 112/712 to the second authtype | 236 |     # Link 112/612 to the second authtype | 
        
          | 237 |     $builder->build({ | 237 |     $builder->build({ | 
        
          | 238 |         source => 'MarcSubfieldStructure', | 238 |         source => 'MarcSubfieldStructure', | 
        
          | 239 |         value  => { | 239 |         value  => { | 
  
    | Lines 246-252
          sub modify_framework {
      
      
        Link Here | 
        
          | 246 |     $builder->build({ | 246 |     $builder->build({ | 
        
          | 247 |         source => 'MarcSubfieldStructure', | 247 |         source => 'MarcSubfieldStructure', | 
        
          | 248 |         value  => { | 248 |         value  => { | 
          
            
              | 249 |             tagfield => '712', | 249 |             tagfield => '612', | 
        
          | 250 |             tagsubfield => 'a', | 250 |             tagsubfield => 'a', | 
        
          | 251 |             authtypecode => $authtype2->{authtypecode}, | 251 |             authtypecode => $authtype2->{authtypecode}, | 
        
          | 252 |             frameworkcode => '', | 252 |             frameworkcode => '', | 
            
              | 253 | -  |  |  |