6bd827e546
This patch calls the new optional database SQL scripts to that sensible data is isntalled. Signed-off-by: Joshua Ferraro <jmf@liblime.com>
36 lines
959 B
Perl
36 lines
959 B
Perl
package KohaTest::Installer::get_file_path_from_name;
|
|
use base qw( KohaTest::Installer );
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
use C4::Languages;
|
|
use C4::Installer;
|
|
|
|
sub startup_50_get_installer : Test( startup => 1 ) {
|
|
my $self = shift;
|
|
my $installer = C4::Installer->new();
|
|
is(ref($installer), "C4::Installer", "created installer");
|
|
$self->{installer} = $installer;
|
|
}
|
|
|
|
sub search_for_known_scripts : Tests( 2 ) {
|
|
my $self = shift;
|
|
|
|
skip "did not create installer" unless ref($self->{installer}) eq 'C4::Installer';
|
|
|
|
foreach my $script ( 'installer/data/mysql/en/mandatory/message_transport_types.sql',
|
|
'installer/data/mysql/en/optional/sample_notices_message_attributes.sql', ) {
|
|
|
|
ok( $self->{'installer'}->get_file_path_from_name( $script ), "found $script" );
|
|
}
|
|
|
|
}
|
|
|
|
sub shutdown_50_clear_installer : Tests( shutdown ) {
|
|
my $self = shift;
|
|
delete $self->{installer};
|
|
}
|
|
|
|
1;
|