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