t/lib/KohaTest/Installer.pm

   1 package KohaTest::Installer;
   2 use base qw( KohaTest );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8 use C4::Languages;
   9 use C4::Installer;
  10
  11 sub SKIP_CLASS : Expensive { }
  12
  13 sub testing_class { 'C4::Installer' };
  14
  15 sub methods : Test( 1 ) {
  16     my $self = shift;
  17     my @methods = qw(
  18                        new
  19                        marcflavour_list
  20                        marc_framework_sql_list
  21                        sample_data_sql_list
  22                        sql_file_list
  23                        load_db_schema
  24                        load_sql_in_order
  25                        set_marcflavour_syspref
  26                        set_indexing_engine
  27                        set_version_syspref
  28                        load_sql
  29     );
  30     can_ok( $self->testing_class, @methods );
  31 }
  32
  33 # ensure that we have a fresh, empty database
  34 # after running through the installer tests
  35 sub shutdown_50_init_db : Tests( shutdown )  {
  36     my $self = shift;
  37
  38     KohaTest::clear_test_database();
  39     KohaTest::create_test_database();
  40 }
  41
  42 1;