| 
      
            Lines 5-11
          
      
      
        Link Here
      
     | 
  
        
          | 5 | 
           | 
          5 | 
           | 
        
        
          | 6 | 
          use Modern::Perl;  | 
          6 | 
          use Modern::Perl;  | 
        
        
          | 7 | 
           | 
          7 | 
           | 
        
          
            
              | 8 | 
              use Test::More tests => 8;  | 
              8 | 
              use Test::More tests => 9;  | 
            
        
          | 9 | 
          use Test::MockModule;  | 
          9 | 
          use Test::MockModule;  | 
        
        
          | 10 | 
          use Test::Warn;  | 
          10 | 
          use Test::Warn;  | 
        
        
          | 11 | 
          use MARC::Record;  | 
          11 | 
          use MARC::Record;  | 
        
  
    | 
      
            Lines 191-194
          is_deeply(
      
      
        Link Here
      
     | 
  
        
          | 191 | 
              'test BuildSummary for UNIMARC'  | 
          191 | 
              'test BuildSummary for UNIMARC'  | 
        
        
          | 192 | 
          );  | 
          192 | 
          );  | 
        
        
          | 193 | 
           | 
          193 | 
           | 
        
            
               | 
               | 
              194 | 
              subtest 'AddAuthority should respect AUTO_INCREMENT (BZ 18104)' => sub { | 
            
            
              | 195 | 
                  plan tests => 1;  | 
            
            
              | 196 | 
               | 
            
            
              | 197 | 
                  t::lib::Mocks::mock_preference( 'marcflavour', 'MARC21' );  | 
            
            
              | 198 | 
                  my $record = C4::AuthoritiesMarc::GetAuthority(1);  | 
            
            
              | 199 | 
                  my $id1 = AddAuthority( $record, undef, 'GEOGR_NAME' );  | 
            
            
              | 200 | 
                  DelAuthority( $id1 );  | 
            
            
              | 201 | 
                  my $id2 = AddAuthority( $record, undef, 'GEOGR_NAME' );  | 
            
            
              | 202 | 
                  is( $id1, $id2, 'FIXME: Got the same id back, let\'s fix that behavior' );  | 
            
            
              | 203 | 
                    | 
            
            
              | 204 | 
              };  | 
            
            
              | 205 | 
               | 
            
        
          | 194 | 
          $schema->storage->txn_rollback;  | 
          206 | 
          $schema->storage->txn_rollback;  | 
        
            
              | 195 | 
              -   | 
               | 
               |