|
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 |
- |
|
|