|
Lines 2-8
Link Here
|
| 2 |
|
2 |
|
| 3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
| 4 |
|
4 |
|
| 5 |
use Test::More tests => 2; |
5 |
use Test::More tests => 3; |
| 6 |
|
6 |
|
| 7 |
use C4::Context; |
7 |
use C4::Context; |
| 8 |
use C4::Overdues; |
8 |
use C4::Overdues; |
|
Lines 169-174
subtest 'Test cap_fine_to_replacement_price' => sub {
Link Here
|
| 169 |
teardown(); |
169 |
teardown(); |
| 170 |
}; |
170 |
}; |
| 171 |
|
171 |
|
|
|
172 |
subtest 'Test cap_fine_to_replacement_pricew with overduefinescap' => sub { |
| 173 |
plan tests => 2; |
| 174 |
|
| 175 |
t::lib::Mocks::mock_preference('useDefaultReplacementCost', '1'); |
| 176 |
my $issuingrule = $builder->build_object( |
| 177 |
{ |
| 178 |
class => 'Koha::IssuingRules', |
| 179 |
value => { |
| 180 |
branchcode => '*', |
| 181 |
categorycode => '*', |
| 182 |
itemtype => '*', |
| 183 |
fine => '1.00', |
| 184 |
lengthunit => 'days', |
| 185 |
finedays => 0, |
| 186 |
firstremind => 0, |
| 187 |
chargeperiod => 1, |
| 188 |
overduefinescap => 3, |
| 189 |
cap_fine_to_replacement_price => 1, |
| 190 |
}, |
| 191 |
} |
| 192 |
); |
| 193 |
|
| 194 |
my $start_dt = DateTime->new( |
| 195 |
year => 2000, |
| 196 |
month => 1, |
| 197 |
day => 1, |
| 198 |
); |
| 199 |
|
| 200 |
my $end_dt = DateTime->new( |
| 201 |
year => 2000, |
| 202 |
month => 1, |
| 203 |
day => 30, |
| 204 |
); |
| 205 |
|
| 206 |
my ($amount) = CalcFine( $item, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt ); |
| 207 |
is( int($amount), 3, 'Got the lesser of overduefinescap and replacement price where overduefinescap < replacement price' ); |
| 208 |
|
| 209 |
$issuingrule->overduefinescap(6)->store(); |
| 210 |
($amount) = CalcFine( $item, $patron->{categorycode}, $branch->{branchcode}, $start_dt, $end_dt ); |
| 211 |
is( int($amount), 5, 'Get the lesser of overduefinescap and replacement price where overduefinescap > replacement price' ); |
| 212 |
|
| 213 |
teardown(); |
| 214 |
}; |
| 215 |
|
| 172 |
sub teardown { |
216 |
sub teardown { |
| 173 |
$dbh->do(q|DELETE FROM issuingrules|); |
217 |
$dbh->do(q|DELETE FROM issuingrules|); |
| 174 |
} |
218 |
} |
| 175 |
- |
|
|