Lines 2103-2109
subtest 'AddReturn + CumulativeRestrictionPeriods' => sub {
Link Here
|
2103 |
}; |
2103 |
}; |
2104 |
|
2104 |
|
2105 |
subtest 'AddReturn + suspension_chargeperiod' => sub { |
2105 |
subtest 'AddReturn + suspension_chargeperiod' => sub { |
2106 |
plan tests => 24; |
2106 |
plan tests => 27; |
2107 |
|
2107 |
|
2108 |
my $library = $builder->build( { source => 'Branch' } ); |
2108 |
my $library = $builder->build( { source => 'Branch' } ); |
2109 |
my $patron = $builder->build( { source => 'Borrower', value => { categorycode => $patron_category->{categorycode} } } ); |
2109 |
my $patron = $builder->build( { source => 'Borrower', value => { categorycode => $patron_category->{categorycode} } } ); |
Lines 2152-2157
subtest 'AddReturn + suspension_chargeperiod' => sub {
Link Here
|
2152 |
} |
2152 |
} |
2153 |
); |
2153 |
); |
2154 |
|
2154 |
|
|
|
2155 |
# Same with undef firstremind |
2156 |
Koha::CirculationRules->search->delete; |
2157 |
Koha::CirculationRules->set_rules( |
2158 |
{ |
2159 |
categorycode => '*', |
2160 |
itemtype => '*', |
2161 |
branchcode => '*', |
2162 |
rules => { |
2163 |
issuelength => 1, |
2164 |
firstremind => undef, # 0 day of grace |
2165 |
finedays => 2, # 2 days of fine per day of overdue |
2166 |
suspension_chargeperiod => 1, |
2167 |
lengthunit => 'days', |
2168 |
} |
2169 |
} |
2170 |
); |
2171 |
{ |
2172 |
my $now = dt_from_string; |
2173 |
my $five_days_ago = $now->clone->subtract( days => 5 ); |
2174 |
# We want to charge 2 days every day, without grace |
2175 |
# With 5 days of overdue: 5 * Z |
2176 |
my $expected_expiration = $now->clone->add( days => ( 5 * 2 ) / 1 ); |
2177 |
test_debarment_on_checkout( |
2178 |
{ |
2179 |
item => $item_1, |
2180 |
library => $library, |
2181 |
patron => $patron, |
2182 |
due_date => $five_days_ago, |
2183 |
expiration_date => $expected_expiration, |
2184 |
} |
2185 |
); |
2186 |
} |
2155 |
# We want to charge 2 days every 2 days, without grace |
2187 |
# We want to charge 2 days every 2 days, without grace |
2156 |
# With 5 days of overdue: (5 * 2) / 2 |
2188 |
# With 5 days of overdue: (5 * 2) / 2 |
2157 |
Koha::CirculationRules->set_rule( |
2189 |
Koha::CirculationRules->set_rule( |
2158 |
- |
|
|