| Lines 22-28
          
      
      
        Link Here | 
        
          | 22 | # Add more tests here!!! | 22 | # Add more tests here!!! | 
        
          | 23 |  | 23 |  | 
        
          | 24 | use Modern::Perl; | 24 | use Modern::Perl; | 
          
            
              | 25 | use Test::More tests => 11; | 25 | use Test::More tests => 13; | 
        
          | 26 | use Koha::Database; | 26 | use Koha::Database; | 
        
          | 27 |  | 27 |  | 
        
          | 28 | BEGIN { | 28 | BEGIN { | 
  
    | Lines 55-62
          my $source = $schema->source('Borrower');
      
      
        Link Here | 
        
          | 55 | my @column_names = $source->columns(); | 55 | my @column_names = $source->columns(); | 
        
          | 56 | my $column_name  = $column_names[0]; | 56 | my $column_name  = $column_names[0]; | 
        
          | 57 | ok( column_exists( 'borrowers', $column_name ), 'Known column does exist' ); | 57 | ok( column_exists( 'borrowers', $column_name ), 'Known column does exist' ); | 
            
              |  |  | 58 | ok( ! column_exists( 'borrowers', 'xxx'), 'Column xxx does not exist' ); | 
        
          | 58 |  | 59 |  | 
        
          | 59 | my @constraint_names = $source->unique_constraint_names(); | 60 | my @constraint_names = $source->unique_constraint_names(); | 
        
          | 60 | my $constraint_name  = $constraint_names[0]; | 61 | my $constraint_name  = $constraint_names[0]; | 
          
            
              | 61 | ok( constraint_exists( 'borrowers', $constraint_name ), | 62 | ok( constraint_exists( 'borrowers', $constraint_name), 'Known contraint does exist' ); | 
            
              | 62 |     'Known constraint does exist' ); | 63 | ok( ! constraint_exists( 'borrowers', 'xxx'), 'Constraint xxx does not exist' ); | 
            
              | 63 | -  |  |  |