| 
      
            Lines 202-208
          subtest 'AddAuthority should respect AUTO_INCREMENT (BZ 18104)' => sub {
      
      
        Link Here
      
     | 
  
        
          | 202 | 
              isnt( $id1, $id2, 'Do not return the same id again' );  | 
          202 | 
              isnt( $id1, $id2, 'Do not return the same id again' );  | 
        
        
          | 203 | 
              t::lib::Mocks::mock_preference( 'marcflavour', 'UNIMARC' );  | 
          203 | 
              t::lib::Mocks::mock_preference( 'marcflavour', 'UNIMARC' );  | 
        
        
          | 204 | 
              my $id3 = AddAuthority( $record, undef, 'GEOGR_NAME' );  | 
          204 | 
              my $id3 = AddAuthority( $record, undef, 'GEOGR_NAME' );  | 
        
          
            
              | 205 | 
                  is( $id3 > 0, 1, 'Tested AddAuthority with UNIMARC' );  | 
              205 | 
                  ok( $id3 > 0, 'Tested AddAuthority with UNIMARC' );  | 
            
        
          | 206 | 
              is( $record->field('001')->data, $id3, 'Check updated 001' ); | 
          206 | 
              is( $record->field('001')->data, $id3, 'Check updated 001' ); | 
        
        
          | 207 | 
          };  | 
          207 | 
          };  | 
        
        
          | 208 | 
           | 
          208 | 
           | 
        
            
              | 209 | 
              -   | 
               | 
               |