| 
      
            Lines 19-25
          
      
      
        Link Here
      
     | 
  
        
          | 19 | 
           | 
          19 | 
           | 
        
        
          | 20 | 
          use Modern::Perl;  | 
          20 | 
          use Modern::Perl;  | 
        
        
          | 21 | 
           | 
          21 | 
           | 
        
          
            
              | 22 | 
              use Test::More tests => 41;  | 
              22 | 
              use Test::More tests => 42;  | 
            
        
          | 23 | 
           | 
          23 | 
           | 
        
        
          | 24 | 
          use Koha::Database;  | 
          24 | 
          use Koha::Database;  | 
        
        
          | 25 | 
           | 
          25 | 
           | 
        
  
    | 
      
            Lines 257-262
          delete $bookseller->{_fk};
      
      
        Link Here
      
     | 
  
        
          | 257 | 
          $bookseller_from_db = $rs_aqbookseller->find($bookseller);  | 
          257 | 
          $bookseller_from_db = $rs_aqbookseller->find($bookseller);  | 
        
        
          | 258 | 
          is( $bookseller_from_db->in_storage, 1, 'build with only_fk = 0 stores the entry correctly' );  | 
          258 | 
          is( $bookseller_from_db->in_storage, 1, 'build with only_fk = 0 stores the entry correctly' );  | 
        
        
          | 259 | 
           | 
          259 | 
           | 
        
            
               | 
               | 
              260 | 
              subtest 'Auto-increment values tests' => sub { | 
            
            
              | 261 | 
               | 
            
            
              | 262 | 
                  plan tests => 2;  | 
            
            
              | 263 | 
               | 
            
            
              | 264 | 
                  # Pick a table with AI PK  | 
            
            
              | 265 | 
                  my $source  = 'Biblio'; # table  | 
            
            
              | 266 | 
                  my $column  = 'biblionumber'; # ai column  | 
            
            
              | 267 | 
               | 
            
            
              | 268 | 
                  my $col_info = $schema->source( $source )->column_info( $column );  | 
            
            
              | 269 | 
                  is( $col_info->{is_auto_increment}, 1, "biblio.biblionumber is detected as autoincrement"); | 
            
            
              | 270 | 
               | 
            
            
              | 271 | 
                  # Create a biblio  | 
            
            
              | 272 | 
                  my $biblio_1 = $builder->build({ source => $source }); | 
            
            
              | 273 | 
                  # Get the AI value  | 
            
            
              | 274 | 
                  my $ai_value = $biblio_1->{ biblionumber }; | 
            
            
              | 275 | 
                  # Create a biblio  | 
            
            
              | 276 | 
                  my $biblio_2 = $builder->build({ source => $source }); | 
            
            
              | 277 | 
                  # Get the next AI value  | 
            
            
              | 278 | 
                  my $next_ai_value = $biblio_2->{ biblionumber }; | 
            
            
              | 279 | 
                  is( $ai_value + 1, $next_ai_value, "AI values are consecutive");  | 
            
            
              | 280 | 
               | 
            
            
              | 281 | 
              };  | 
            
            
              | 282 | 
               | 
            
        
          | 260 | 
          $schema->storage->txn_rollback;  | 
          283 | 
          $schema->storage->txn_rollback;  | 
        
        
          | 261 | 
           | 
          284 | 
           | 
        
        
          | 262 | 
          1;  | 
          285 | 
          1;  | 
        
            
              | 263 | 
              -   | 
               | 
               |