|
Lines 18-35
Link Here
|
| 18 |
# You should have received a copy of the GNU General Public License |
18 |
# You should have received a copy of the GNU General Public License |
| 19 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
19 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
| 20 |
|
20 |
|
| 21 |
# This Koha test module is still a stub! |
|
|
| 22 |
# Add more tests here!!! |
| 23 |
|
| 24 |
use Modern::Perl; |
21 |
use Modern::Perl; |
| 25 |
use Test::More tests => 22; |
22 |
use Test::More tests => 23; |
| 26 |
use File::Temp qw(tempfile); |
23 |
use File::Temp qw(tempfile); |
| 27 |
use utf8; |
24 |
use utf8; |
| 28 |
|
25 |
|
| 29 |
use Koha::Database; |
26 |
use Koha::Database; |
| 30 |
|
27 |
|
| 31 |
BEGIN { |
28 |
BEGIN { |
| 32 |
use_ok('C4::Installer', qw( column_exists index_exists unique_key_exists foreign_key_exists primary_key_exists marc_framework_sql_list )); |
29 |
use_ok( |
|
|
30 |
'C4::Installer', |
| 31 |
qw( column_exists index_exists unique_key_exists foreign_key_exists primary_key_exists marc_framework_sql_list table_exists ) |
| 32 |
); |
| 33 |
} |
33 |
} |
| 34 |
|
34 |
|
| 35 |
ok( my $installer = C4::Installer->new(), 'Testing NewInstaller' ); |
35 |
ok( my $installer = C4::Installer->new(), 'Testing NewInstaller' ); |
|
Lines 77-82
ok( primary_key_exists( 'borrowers' ), 'Borrowers does have a primary key on som
Link Here
|
| 77 |
ok( primary_key_exists( 'borrowers', 'borrowernumber'), 'Borrowers has primary key on borrowernumber'); |
77 |
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'); |
78 |
ok( ! primary_key_exists( 'borrowers', 'email'), 'Borrowers does not have a primary key on email'); |
| 79 |
|
79 |
|
|
|
80 |
subtest 'table_exists' => sub { |
| 81 |
plan tests => 2; |
| 82 |
is( table_exists( 'borrowers' ), 1, 'Table borrowers still exists ;)' ); |
| 83 |
is( table_exists( 'this_table_will_never_exist' ), 0, 'This table does not exist, not likely to be created too' ); |
| 84 |
}; |
| 85 |
|
| 80 |
subtest 'marc_framework_sql_list' => sub { |
86 |
subtest 'marc_framework_sql_list' => sub { |
| 81 |
plan tests => 1; |
87 |
plan tests => 1; |
| 82 |
|
88 |
|
| 83 |
- |
|
|