|
Lines 3065-3071
subtest 'Incremented fee tests' => sub {
Link Here
|
| 3065 |
$accountline->delete(); |
3065 |
$accountline->delete(); |
| 3066 |
AddRenewal( $patron->id, $item->id, $library->id, $dt_to_renew, $dt_to ); |
3066 |
AddRenewal( $patron->id, $item->id, $library->id, $dt_to_renew, $dt_to ); |
| 3067 |
$accountline = Koha::Account::Lines->find({ itemnumber => $item->id }); |
3067 |
$accountline = Koha::Account::Lines->find({ itemnumber => $item->id }); |
| 3068 |
is( $accountline->amount, '13.000000', "Daily rental charge calculated correctly with finesCalendar = ignoreCalendar, for renewal" ); |
3068 |
is( $accountline->amount, '6.000000', "Daily rental charge calculated correctly with finesCalendar = ignoreCalendar, for renewal" ); |
| 3069 |
$accountline->delete(); |
3069 |
$accountline->delete(); |
| 3070 |
$issue->delete(); |
3070 |
$issue->delete(); |
| 3071 |
|
3071 |
|
|
Lines 3076-3082
subtest 'Incremented fee tests' => sub {
Link Here
|
| 3076 |
$accountline->delete(); |
3076 |
$accountline->delete(); |
| 3077 |
AddRenewal( $patron->id, $item->id, $library->id, $dt_to_renew, $dt_to ); |
3077 |
AddRenewal( $patron->id, $item->id, $library->id, $dt_to_renew, $dt_to ); |
| 3078 |
$accountline = Koha::Account::Lines->find({ itemnumber => $item->id }); |
3078 |
$accountline = Koha::Account::Lines->find({ itemnumber => $item->id }); |
| 3079 |
is( $accountline->amount, '13.000000', "Daily rental charge calculated correctly with finesCalendar = noFinesWhenClosed, for renewal" ); |
3079 |
is( $accountline->amount, '6.000000', "Daily rental charge calculated correctly with finesCalendar = noFinesWhenClosed, for renewal" ); |
| 3080 |
$accountline->delete(); |
3080 |
$accountline->delete(); |
| 3081 |
$issue->delete(); |
3081 |
$issue->delete(); |
| 3082 |
|
3082 |
|
|
Lines 3092-3098
subtest 'Incremented fee tests' => sub {
Link Here
|
| 3092 |
$accountline->delete(); |
3092 |
$accountline->delete(); |
| 3093 |
AddRenewal( $patron->id, $item->id, $library->id, $dt_to_renew, $dt_to ); |
3093 |
AddRenewal( $patron->id, $item->id, $library->id, $dt_to_renew, $dt_to ); |
| 3094 |
$accountline = Koha::Account::Lines->find({ itemnumber => $item->id }); |
3094 |
$accountline = Koha::Account::Lines->find({ itemnumber => $item->id }); |
| 3095 |
is( $accountline->amount, '11.000000', "Daily rental charge calculated correctly with finesCalendar = noFinesWhenClosed and closed Wednesdays, for renewal" ); |
3095 |
is( $accountline->amount, '5.000000', "Daily rental charge calculated correctly with finesCalendar = noFinesWhenClosed and closed Wednesdays, for renewal" ); |
| 3096 |
$accountline->delete(); |
3096 |
$accountline->delete(); |
| 3097 |
$issue->delete(); |
3097 |
$issue->delete(); |
| 3098 |
|
3098 |
|
| 3099 |
- |
|
|