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 => 21; |
25 |
use Test::More tests => 22; |
26 |
use File::Temp qw(tempfile); |
26 |
use File::Temp qw(tempfile); |
27 |
use utf8; |
27 |
use utf8; |
28 |
|
28 |
|
Lines 70-79
ok( ! index_exists( 'borrowers', 'xxx'), 'Constraint xxx does not exist' );
Link Here
|
70 |
ok( foreign_key_exists( 'borrowers', 'borrowers_ibfk_1' ), 'FK borrowers_ibfk_1 exists' ); |
70 |
ok( foreign_key_exists( 'borrowers', 'borrowers_ibfk_1' ), 'FK borrowers_ibfk_1 exists' ); |
71 |
ok( ! foreign_key_exists( 'borrowers', 'xxx' ), 'FK xxxx does not exist' ); |
71 |
ok( ! foreign_key_exists( 'borrowers', 'xxx' ), 'FK xxxx does not exist' ); |
72 |
|
72 |
|
|
|
73 |
<<<<<<< HEAD |
73 |
ok( unique_key_exists( 'items', 'itembarcodeidx' ), 'UNIQUE KEY itembarcodeidx exists' ); |
74 |
ok( unique_key_exists( 'items', 'itembarcodeidx' ), 'UNIQUE KEY itembarcodeidx exists' ); |
74 |
ok( ! unique_key_exists( 'borrowers', 'xxx' ), 'UNIQUE KEY xxxx does not exist' ); |
75 |
ok( ! unique_key_exists( 'borrowers', 'xxx' ), 'UNIQUE KEY xxxx does not exist' ); |
75 |
|
76 |
|
76 |
|
77 |
|
|
|
78 |
======= |
79 |
ok( primary_key_exists( 'borrowers' ), 'Borrowers does have a primary key on some column'); |
80 |
>>>>>>> Bug 26326: (follow-up) Add ability to check for existence of any primary key |
77 |
ok( primary_key_exists( 'borrowers', 'borrowernumber'), 'Borrowers has primary key on borrowernumber'); |
81 |
ok( primary_key_exists( 'borrowers', 'borrowernumber'), 'Borrowers has primary key on borrowernumber'); |
78 |
ok( ! primary_key_exists( 'borrowers', 'email'), 'Borrowers does not have a primary key on email'); |
82 |
ok( ! primary_key_exists( 'borrowers', 'email'), 'Borrowers does not have a primary key on email'); |
79 |
|
83 |
|
80 |
- |
|
|