Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 25850: Add tests for weekday holidays

Browse source 
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Martin Renvoize 2020-06-26 16:24:00 +01:00
parent 082da615e6
commit 4ed4e468d2
Signed by: martin.renvoize
GPG key ID: 422B469130441A0F
1 changed files with 42 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
t/db_dependent/Calendar.t
View file

@ -17,7 +17,7 @@
use Modern::Perl;
use Test::More tests => 4;
use Test::More tests => 5;
use Time::Fake;
use t::lib::TestBuilder;
@ -289,6 +289,47 @@ subtest 'hours_between | days_between' => sub {
};
Time::Fake->reset;
};
subtest 'is_holiday' => sub {
plan tests => 1;
subtest 'weekday holidays' => sub {
plan tests => 7;
my $library = $builder->build_object( { class => 'Koha::Libraries' } );
my $day = DateTime->now();
my $dow = scalar $day->day_of_week;
$dow = 0 if $dow == 7;
# Closed this day of the week
my $dbh = C4::Context->dbh;
$dbh->do(
q|
INSERT INTO repeatable_holidays (branchcode,weekday,day,month,title,description)
VALUES ( ?, ?, NULL, NULL, ?, '' )
|, undef, $library->branchcode, $dow, "TEST"
);
# Iterate 7 days
my $sth = $dbh->prepare(
"UPDATE repeatable_holidays SET weekday = ? WHERE branchcode = ? AND title = 'TEST'"
);
for my $i ( 0 .. 6 ) {
my $calendar =
Koha::Calendar->new( branchcode => $library->branchcode );
is( $calendar->is_holiday($day), 1, $day->day_name() ." works as a repeatable holiday");
# Increment the date and holiday day
$day->add( days => 1 );
$dow++;
$dow = 0 if $dow == 7;
$sth->execute($dow, $library->branchcode);
}
};
};
$schema->storage->txn_rollback();