|
Lines 17-23
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use Test::More tests => 17; |
20 |
use Test::More tests => 12; |
| 21 |
|
21 |
|
| 22 |
use DateTime; |
22 |
use DateTime; |
| 23 |
use DateTime::TimeZone; |
23 |
use DateTime::TimeZone; |
|
Lines 37-43
my $schema = Koha::Database->new->schema;
Link Here
|
| 37 |
my $dbh = C4::Context->dbh; |
37 |
my $dbh = C4::Context->dbh; |
| 38 |
my $builder = t::lib::TestBuilder->new; |
38 |
my $builder = t::lib::TestBuilder->new; |
| 39 |
|
39 |
|
| 40 |
subtest 'exception_holidays() tests' => sub { |
40 |
subtest 'is_holiday timezone tests' => sub { |
| 41 |
|
41 |
|
| 42 |
plan tests => 1; |
42 |
plan tests => 1; |
| 43 |
|
43 |
|
|
Lines 160-206
C4::Calendar->new( branchcode => $branch_2 )->insert_single_holiday(
Link Here
|
| 160 |
is( Koha::Calendar->new( branchcode => $branch_2 )->is_holiday( $today ), 1, "Today is a holiday for $branch_2" ); |
160 |
is( Koha::Calendar->new( branchcode => $branch_2 )->is_holiday( $today ), 1, "Today is a holiday for $branch_2" ); |
| 161 |
is( Koha::Calendar->new( branchcode => $branch_1 )->is_holiday( $today ), 0, "Today is not a holiday for $branch_1"); |
161 |
is( Koha::Calendar->new( branchcode => $branch_1 )->is_holiday( $today ), 0, "Today is not a holiday for $branch_1"); |
| 162 |
|
162 |
|
| 163 |
# Few tests for exception holidays |
|
|
| 164 |
my ( $diff, $cal, $special ); |
| 165 |
$dbh->do("DELETE FROM special_holidays"); |
| 166 |
_add_exception( $today, $branch_1, 'Today' ); |
| 167 |
$cal = Koha::Calendar->new( branchcode => $branch_1 ); |
| 168 |
$special = $cal->exception_holidays; |
| 169 |
is( keys %{$special}, 1, 'One exception holiday added' ); |
| 170 |
|
| 171 |
my $tomorrow= dt_from_string(); |
| 172 |
$tomorrow->add_duration( DateTime::Duration->new(days => 1) ); |
| 173 |
_add_exception( $tomorrow, $branch_1, 'Tomorrow' ); |
| 174 |
$cal = Koha::Calendar->new( branchcode => $branch_1 ); |
| 175 |
$special = $cal->exception_holidays; |
| 176 |
is( keys %{$special}, 2, 'Set of exception holidays contains two dates' ); |
| 177 |
|
| 178 |
$diff = $today->delta_days( $today )->in_units('days'); |
| 179 |
is( $diff, 0, 'Lowest exception holiday is today' ); |
| 180 |
$diff = $tomorrow->delta_days( $tomorrow )->in_units('days'); |
| 181 |
is( $diff, 0, 'Highest exception holiday is tomorrow' ); |
| 182 |
|
| 183 |
C4::Calendar->new( branchcode => $branch_1 )->delete_holiday( |
| 184 |
weekday => $tomorrow->day_of_week, |
| 185 |
day => $tomorrow->day, |
| 186 |
month => $tomorrow->month, |
| 187 |
year => $tomorrow->year, |
| 188 |
); |
| 189 |
$cal = Koha::Calendar->new( branchcode => $branch_1 ); |
| 190 |
$special = $cal->exception_holidays; |
| 191 |
is( keys %{$special}, 1, 'Set of exception holidays back to one' ); |
| 192 |
|
| 193 |
sub _add_exception { |
| 194 |
my ( $dt, $branch, $descr ) = @_; |
| 195 |
C4::Calendar->new( branchcode => $branch )->insert_exception_holiday( |
| 196 |
day => $dt->day, |
| 197 |
month => $dt->month, |
| 198 |
year => $dt->year, |
| 199 |
title => $descr, |
| 200 |
description => $descr, |
| 201 |
); |
| 202 |
} |
| 203 |
|
| 204 |
$schema->storage->txn_rollback; |
163 |
$schema->storage->txn_rollback; |
| 205 |
|
164 |
|
| 206 |
subtest 'copy_to_branch' => sub { |
165 |
subtest 'copy_to_branch' => sub { |
| 207 |
- |
|
|