t/db_dependent/Holidays.t

   1 use strict;
   2 use warnings;
   3 use 5.010;
   4 use DateTime;
   5 use DateTime::TimeZone;
   6
   7 use C4::Context;
   8 use Koha::DateUtils;
   9 use Test::More tests => 12;
  10
  11 BEGIN { use_ok('Koha::Calendar'); }
  12 BEGIN { use_ok('C4::Calendar'); }
  13
  14 my $dbh = C4::Context->dbh();
  15 # Start transaction
  16 $dbh->{AutoCommit} = 0;
  17 $dbh->{RaiseError} = 1;
  18
  19 my $branchcode = 'MPL';
  20
  21 my $koha_calendar = Koha::Calendar->new( branchcode => $branchcode );
  22 my $c4_calendar = C4::Calendar->new( branchcode => $branchcode );
  23
  24 isa_ok( $koha_calendar, 'Koha::Calendar', 'Koha::Calendar class returned' );
  25 isa_ok( $c4_calendar,   'C4::Calendar',   'C4::Calendar class returned' );
  26
  27 my $sunday = DateTime->new(
  28     year  => 2011,
  29     month => 6,
  30     day   => 26,
  31 );
  32 my $monday = DateTime->new(
  33     year  => 2011,
  34     month => 6,
  35     day   => 27,
  36 );
  37 my $christmas = DateTime->new(
  38     year  => 2032,
  39     month => 12,
  40     day   => 25,
  41 );
  42 my $newyear = DateTime->new(
  43     year  => 2035,
  44     month => 1,
  45     day   => 1,
  46 );
  47
  48 is( $koha_calendar->is_holiday($sunday),    1, 'Sunday is a closed day' );
  49 is( $koha_calendar->is_holiday($monday),    0, 'Monday is not a closed day' );
  50 is( $koha_calendar->is_holiday($christmas), 1, 'Christmas is a closed day' );
  51 is( $koha_calendar->is_holiday($newyear), 1, 'New Years day is a closed day' );
  52
  53 $dbh->do("DELETE FROM repeatable_holidays");
  54 $dbh->do("DELETE FROM special_holidays");
  55
  56 my $custom_holiday = DateTime->new(
  57     year  => 2013,
  58     month => 11,
  59     day   => 12,
  60 );
  61 is( $koha_calendar->is_holiday($custom_holiday), 0, '2013-11-10 does not start off as a holiday' );
  62 $koha_calendar->add_holiday($custom_holiday);
  63 is( $koha_calendar->is_holiday($custom_holiday), 1, 'able to add holiday for testing' );
  64
  65 my $today = dt_from_string();
  66 C4::Calendar->new( branchcode => 'CPL' )->insert_single_holiday(
  67     day         => $today->day(),
  68     month       => $today->month(),
  69     year        => $today->year(),
  70     title       => "$today",
  71     description => "$today",
  72 );
  73 is( Koha::Calendar->new( branchcode => 'CPL' )->is_holiday( $today ), 1, "Today is a holiday for CPL" );
  74 is( Koha::Calendar->new( branchcode => 'MPL' )->is_holiday( $today ), 0, "Today is not a holiday for MPL");