t/database_dependent.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 =head2
   7
   8
   9
  10 =cut
  11
  12 use C4::Context;
  13 use Data::Dumper;
  14 use Test::More;
  15
  16 use Test::Class::Load qw ( . ); # run from the t directory
  17
  18 KohaTest::clear_test_database();
  19 KohaTest::create_test_database();
  20
  21 KohaTest::start_zebrasrv();
  22 KohaTest::start_zebraqueue_daemon();
  23
  24 if ($ENV{'TEST_CLASS'}) {
  25     # assume only one test class is specified;
  26     # should extend to allow multiples, but that will
  27     # mean changing how test classes are loaded.
  28     eval "KohaTest::$ENV{'TEST_CLASS'}->runtests";
  29 } else {
  30     Test::Class->runtests;
  31 }
  32
  33 KohaTest::stop_zebraqueue_daemon();
  34 KohaTest::stop_zebrasrv();
  35