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 testing_class { 'C4::Installer' };
  12
  13 sub methods : Test( 1 ) {
  14     my $self = shift;
  15     my @methods = qw(
  16                        new
  17                        marcflavour_list
  18                        marc_framework_sql_list
  19                        sample_data_sql_list
  20                        sql_file_list
  21                        load_db_schema
  22                        load_sql_in_order
  23                        set_marcflavour_syspref
  24                        set_indexing_engine
  25                        set_version_syspref
  26                        load_sql
  27     );
  28     can_ok( $self->testing_class, @methods );
  29 }
  30
  31 # ensure that we have a fresh, empty database
  32 # after running through the installer tests
  33 sub shutdown_50_init_db : Tests( shutdown )  {
  34     my $self = shift;
  35
  36     KohaTest::clear_test_database();
  37     KohaTest::create_test_database();
  38 }
  39
  40 1;