|
Lines 17-23
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use Test::More tests => 16; |
20 |
use Test::More tests => 17; |
| 21 |
|
21 |
|
| 22 |
use DateTime; |
22 |
use DateTime; |
| 23 |
use DateTime::TimeZone; |
23 |
use DateTime::TimeZone; |
|
Lines 203-205
sub _add_exception {
Link Here
|
| 203 |
|
203 |
|
| 204 |
$schema->storage->txn_rollback; |
204 |
$schema->storage->txn_rollback; |
| 205 |
|
205 |
|
| 206 |
- |
206 |
subtest 'copy_to_branch' => sub { |
|
|
207 |
|
| 208 |
plan tests => 8; |
| 209 |
|
| 210 |
$schema->storage->txn_begin; |
| 211 |
|
| 212 |
my $branch1 = $builder->build( { source => 'Branch' } )->{ branchcode }; |
| 213 |
my $calendar1 = C4::Calendar->new( branchcode => $branch1 ); |
| 214 |
my $sunday = dt_from_string("2020-03-15"); |
| 215 |
$calendar1->insert_week_day_holiday( |
| 216 |
weekday => 0, |
| 217 |
title => '', |
| 218 |
description => 'Sundays', |
| 219 |
); |
| 220 |
|
| 221 |
my $day_month = dt_from_string("2020-03-17"); |
| 222 |
$calendar1->insert_day_month_holiday( |
| 223 |
day => $day_month->day(), |
| 224 |
month => $day_month->month(), |
| 225 |
year => $day_month->year(), |
| 226 |
title => '', |
| 227 |
description => "", |
| 228 |
); |
| 229 |
|
| 230 |
my $future_date = dt_from_string("9999-12-31"); |
| 231 |
$calendar1->insert_single_holiday( |
| 232 |
day => $future_date->day(), |
| 233 |
month => $future_date->month(), |
| 234 |
year => $future_date->year(), |
| 235 |
title => "", |
| 236 |
description => "", |
| 237 |
); |
| 238 |
|
| 239 |
my $future_exception = dt_from_string("9999-12-30"); |
| 240 |
$calendar1->insert_exception_holiday( |
| 241 |
day => $future_exception->day(), |
| 242 |
month => $future_exception->month(), |
| 243 |
year => $future_exception->year(), |
| 244 |
title => "", |
| 245 |
description => "", |
| 246 |
); |
| 247 |
|
| 248 |
my $past_date = dt_from_string("2019-11-20"); |
| 249 |
$calendar1->insert_single_holiday( |
| 250 |
day => $past_date->day(), |
| 251 |
month => $past_date->month(), |
| 252 |
year => $past_date->year(), |
| 253 |
title => "", |
| 254 |
description => "", |
| 255 |
); |
| 256 |
|
| 257 |
my $past_exception = dt_from_string("2020-03-09"); |
| 258 |
$calendar1->insert_exception_holiday( |
| 259 |
day => $past_exception->day(), |
| 260 |
month => $past_exception->month(), |
| 261 |
year => $past_exception->year(), |
| 262 |
title => "", |
| 263 |
description => "", |
| 264 |
); |
| 265 |
|
| 266 |
my $branch2 = $builder->build( { source => 'Branch' } )->{branchcode}; |
| 267 |
|
| 268 |
C4::Calendar->new( branchcode => $branch1 )->copy_to_branch( $branch2 ); |
| 269 |
|
| 270 |
my $calendar2 = C4::Calendar->new( branchcode => $branch2 ); |
| 271 |
my $exceptions = $calendar2->get_exception_holidays; |
| 272 |
|
| 273 |
is( $calendar2->isHoliday( $sunday->day, $sunday->month, $sunday->year ), 1, "Weekday holiday copied to branch 2" ); |
| 274 |
is( $calendar2->isHoliday( $day_month->day, $day_month->month, $day_month->year ), 1, "Day/month holiday copied to branch 2" ); |
| 275 |
is( $calendar2->isHoliday( $future_date->day, $future_date->month, $future_date->year ), 1, "Single holiday copied to branch 2" ); |
| 276 |
is( ( grep { $_->{date} eq "9999-12-30"} values %$exceptions ), 1, "Exception holiday copied to branch 2" ); |
| 277 |
is( $calendar2->isHoliday( $past_date->day, $past_date->month, $past_date->year ), 0, "Don't copy past single holidays" ); |
| 278 |
is( ( grep { $_->{date} eq "2020-03-09"} values %$exceptions ), 0, "Don't copy past exception holidays " ); |
| 279 |
|
| 280 |
C4::Calendar->new( branchcode => $branch1 )->copy_to_branch( $branch2 ); |
| 281 |
|
| 282 |
#Select all rows with same values from database |
| 283 |
my $dbh = C4::Context->dbh; |
| 284 |
my $get_repeatable_holidays = "SELECT a.* FROM repeatable_holidays a |
| 285 |
JOIN (SELECT branchcode, weekday, day, month, COUNT(*) |
| 286 |
FROM repeatable_holidays |
| 287 |
GROUP BY branchcode, weekday, day, month HAVING count(*) > 1) b |
| 288 |
ON a.branchcode = b.branchcode |
| 289 |
AND ( a.weekday = b.weekday OR (a.day = b.day AND a.month = b.month)) |
| 290 |
ORDER BY a.branchcode;"; |
| 291 |
my $sth = $dbh->prepare($get_repeatable_holidays); |
| 292 |
$sth->execute; |
| 293 |
|
| 294 |
my @repeatable_holidays; |
| 295 |
while(my $row = $sth->fetchrow_hashref){ |
| 296 |
push @repeatable_holidays, $row |
| 297 |
} |
| 298 |
|
| 299 |
is( scalar(@repeatable_holidays), 0, "None of the repeatable holidays were doubled"); |
| 300 |
|
| 301 |
my $get_special_holidays = "SELECT a.* FROM special_holidays a |
| 302 |
JOIN (SELECT branchcode, day, month, year, isexception, COUNT(*) |
| 303 |
FROM special_holidays |
| 304 |
GROUP BY branchcode, day, month, year, isexception HAVING count(*) > 1) b |
| 305 |
ON a.branchcode = b.branchcode |
| 306 |
AND a.day = b.day AND a.month = b.month AND a.year = b.year AND a.isexception = b.isexception |
| 307 |
ORDER BY a.branchcode;"; |
| 308 |
$sth = $dbh->prepare($get_special_holidays); |
| 309 |
$sth->execute; |
| 310 |
|
| 311 |
my @special_holidays; |
| 312 |
while(my $row = $sth->fetchrow_hashref){ |
| 313 |
push @special_holidays, $row |
| 314 |
} |
| 315 |
|
| 316 |
is( scalar(@special_holidays), 0, "None of the special holidays were doubled"); |
| 317 |
|
| 318 |
$schema->storage->txn_rollback; |
| 319 |
|
| 320 |
} |