gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 31120: Add unit tests 

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Kyle M Hall 2022-07-14 10:38:57 +00:00 committed by Tomas Cohen Arazi
parent dd40d81598
commit 511ae8298e
No known key found for this signature in database
GPG Key ID: 0A272EA1B2F3C15F
1 changed files with 38 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
t/db_dependent/Circulation/CalcDateDue.t
View File

@ -2,7 +2,7 @@
use Modern::Perl;
use Test::More tests => 17;
use Test::More tests => 19;
use Test::MockModule;
use DBI;
use DateTime;
@ -303,5 +303,42 @@ $calendar->delete_holiday(
weekday => 6
);
# Renewal period of 0 is valid
Koha::CirculationRules->search()->delete();
Koha::CirculationRules->set_rules(
{
categorycode => undef,
itemtype => undef,
branchcode => undef,
rules => {
issuelength => 9999,
renewalperiod => 0,
lengthunit => 'days',
daysmode => 'Days',
}
}
);
$date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borrower, 1 );
is( $date->ymd, $start_date->ymd, "Dates should match for renewalperiod of 0" );
# Renewal period of "" should trigger fallover to issuelength for renewal
Koha::CirculationRules->search()->delete();
Koha::CirculationRules->set_rules(
{
categorycode => undef,
itemtype => undef,
branchcode => undef,
rules => {
issuelength => 7,
renewalperiod => q{},
lengthunit => 'days',
daysmode => 'Days',
}
}
);
my $renewed_date = $start_date->clone->add( days => 7 );
$date = C4::Circulation::CalcDateDue( $start_date, $itemtype, $branchcode, $borrower, 1 );
is( $date->ymd, $renewed_date->ymd, 'Renewal period of "" should trigger fallover to issuelength for renewal' );
$cache->clear_from_cache($key);
$schema->storage->txn_rollback;