View | Details | Raw Unified | Return to bug 17234
Collapse All | Expand All

(-)a/t/db_dependent/Installer.t (-4 / +4 lines)
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
- 

Return to bug 17234