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 use C4::Branch;
  11
  12 BEGIN { use_ok('Koha::Calendar'); }
  13 BEGIN { use_ok('C4::Calendar'); }
  14
  15 my $dbh = C4::Context->dbh();
  16 # Start transaction
  17 $dbh->{AutoCommit} = 0;
  18 $dbh->{RaiseError} = 1;
  19
  20 # Add branches if they don't exist
  21 if (not defined GetBranchDetail('CPL')) {
  22     ModBranch({add => 1, branchcode => 'CPL', branchname => 'Centerville'});
  23 }
  24 if (not defined GetBranchDetail('MPL')) {
  25     ModBranch({add => 1, branchcode => 'MPL', branchname => 'Midway'});
  26 }
  27
  28 # Make the repeatable_holidays table ONLY the default data.
  29 $dbh->do("DELETE FROM repeatable_holidays");
  30 C4::Calendar->new( branchcode => 'MPL' )->insert_week_day_holiday(
  31     weekday     => 0,
  32     title       => '',
  33     description => 'Sundays',
  34 );
  35 my $holiday2add = dt_from_string("2015-01-01");
  36 C4::Calendar->new( branchcode => 'MPL' )->insert_day_month_holiday(
  37     day         => $holiday2add->day(),
  38     month       => $holiday2add->month(),
  39     year        => $holiday2add->year(),
  40     title       => '',
  41     description => "New Year's Day",
  42 );
  43 $holiday2add = dt_from_string("2014-12-25");
  44 C4::Calendar->new( branchcode => 'MPL' )->insert_day_month_holiday(
  45     day         => $holiday2add->day(),
  46     month       => $holiday2add->month(),
  47     year        => $holiday2add->year(),
  48     title       => '',
  49     description => 'Christmas',
  50 );
  51
  52 my $branchcode = 'MPL';
  53
  54 my $koha_calendar = Koha::Calendar->new( branchcode => $branchcode );
  55 my $c4_calendar = C4::Calendar->new( branchcode => $branchcode );
  56
  57 isa_ok( $koha_calendar, 'Koha::Calendar', 'Koha::Calendar class returned' );
  58 isa_ok( $c4_calendar,   'C4::Calendar',   'C4::Calendar class returned' );
  59
  60 my $sunday = DateTime->new(
  61     year  => 2011,
  62     month => 6,
  63     day   => 26,
  64 );
  65 my $monday = DateTime->new(
  66     year  => 2011,
  67     month => 6,
  68     day   => 27,
  69 );
  70 my $christmas = DateTime->new(
  71     year  => 2032,
  72     month => 12,
  73     day   => 25,
  74 );
  75 my $newyear = DateTime->new(
  76     year  => 2035,
  77     month => 1,
  78     day   => 1,
  79 );
  80
  81 is( $koha_calendar->is_holiday($sunday),    1, 'Sunday is a closed day' );
  82 is( $koha_calendar->is_holiday($monday),    0, 'Monday is not a closed day' );
  83 is( $koha_calendar->is_holiday($christmas), 1, 'Christmas is a closed day' );
  84 is( $koha_calendar->is_holiday($newyear), 1, 'New Years day is a closed day' );
  85
  86 $dbh->do("DELETE FROM repeatable_holidays");
  87 $dbh->do("DELETE FROM special_holidays");
  88
  89 my $custom_holiday = DateTime->new(
  90     year  => 2013,
  91     month => 11,
  92     day   => 12,
  93 );
  94 is( $koha_calendar->is_holiday($custom_holiday), 0, '2013-11-10 does not start off as a holiday' );
  95 $koha_calendar->add_holiday($custom_holiday);
  96 is( $koha_calendar->is_holiday($custom_holiday), 1, 'able to add holiday for testing' );
  97
  98 my $today = dt_from_string();
  99 C4::Calendar->new( branchcode => 'CPL' )->insert_single_holiday(
 100     day         => $today->day(),
 101     month       => $today->month(),
 102     year        => $today->year(),
 103     title       => "$today",
 104     description => "$today",
 105 );
 106 is( Koha::Calendar->new( branchcode => 'CPL' )->is_holiday( $today ), 1, "Today is a holiday for CPL" );
 107 is( Koha::Calendar->new( branchcode => 'MPL' )->is_holiday( $today ), 0, "Today is not a holiday for MPL");
 108
 109 $dbh->rollback;