t/lib/KohaTest/Installer/get_file_path_from_name.pm

   1 package KohaTest::Installer::get_file_path_from_name;
   2 use base qw( KohaTest::Installer );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8 use C4::Languages;
   9 use C4::Installer;
  10
  11 sub startup_50_get_installer : Test( startup => 1 ) {
  12     my $self = shift;
  13     my $installer = C4::Installer->new();
  14     is(ref($installer), "C4::Installer", "created installer");
  15     $self->{installer} = $installer;
  16 }
  17
  18 sub search_for_known_scripts : Tests( 2 ) {
  19     my $self = shift;
  20
  21     skip "did not create installer" unless ref($self->{installer}) eq 'C4::Installer';
  22
  23     foreach my $script ( 'installer/data/mysql/en/mandatory/message_transport_types.sql',
  24                          'installer/data/mysql/en/optional/sample_notices_message_attributes.sql', ) {
  25
  26         ok( $self->{'installer'}->get_file_path_from_name( $script ), "found $script" );
  27     }
  28
  29 }
  30
  31 sub shutdown_50_clear_installer : Tests( shutdown ) {
  32     my $self = shift;
  33     delete $self->{installer};
  34 }
  35
  36 1;