t/Kalendar.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 Test::More tests => 9;
   9
  10 BEGIN { use_ok('Koha::Calendar'); }
  11
  12 my $cal = Koha::Calendar->new( TEST_MODE => 1 );
  13
  14 isa_ok( $cal, 'Koha::Calendar', 'Calendar class returned' );
  15
  16 my $saturday = DateTime->new(
  17     year      => 2011,
  18     month     => 6,
  19     day       => 25,
  20     time_zone => 'Europe/London',
  21 );
  22 my $sunday = DateTime->new(
  23     year      => 2011,
  24     month     => 6,
  25     day       => 26,
  26     time_zone => 'Europe/London',
  27 );
  28 my $monday = DateTime->new(
  29     year      => 2011,
  30     month     => 6,
  31     day       => 27,
  32     time_zone => 'Europe/London',
  33 );
  34 my $bloomsday = DateTime->new(
  35     year      => 2011,
  36     month     => 6,
  37     day       => 16,
  38     time_zone => 'Europe/London',
  39 );    # should be a holiday
  40 my $special = DateTime->new(
  41     year      => 2011,
  42     month     => 6,
  43     day       => 1,
  44     time_zone => 'Europe/London',
  45 );    # should be a holiday
  46 my $notspecial = DateTime->new(
  47     year      => 2011,
  48     month     => 6,
  49     day       => 2,
  50     time_zone => 'Europe/London',
  51 );    # should NOT be a holiday
  52 is( $cal->is_holiday($sunday), 1, 'Sunday is a closed day' );   # wee free test;
  53 is( $cal->is_holiday($monday),     0, 'Monday is not a closed day' );    # alas
  54 is( $cal->is_holiday($bloomsday),  1, 'month/day closed day test' );
  55 is( $cal->is_holiday($special),    1, 'special closed day test' );
  56 is( $cal->is_holiday($notspecial), 0, 'open day test' );
  57
  58 my $dt = $cal->addDate( $saturday, 1, 'days' );
  59 is( $dt->day_of_week, 1, 'addDate skips closed Sunday' );
  60
  61 $dt = $cal->addDate( $bloomsday, -1 );
  62 cmp_ok( $dt->ymd(), 'cmp', '2011-06-15', 'Negative call to addDate' );