Lines 639-644
subtest "Koha::Account::chargelostitem tests" => sub {
Link Here
|
639 |
is( $lostfine->amount, "6.120000", "Lost fine equals replacementcost when pref on and default set"); |
639 |
is( $lostfine->amount, "6.120000", "Lost fine equals replacementcost when pref on and default set"); |
640 |
is( $procfee->amount, "2.040000", "Processing fee if processing fee"); |
640 |
is( $procfee->amount, "2.040000", "Processing fee if processing fee"); |
641 |
is( $procfee->issue_id, $cli_issue_id_4, "Processing fee issue id is correct" ); |
641 |
is( $procfee->issue_id, $cli_issue_id_4, "Processing fee issue id is correct" ); |
|
|
642 |
|
643 |
# Cleanup - this must be replaced with a transaction per subtest |
644 |
Koha::Patrons->find($cli_borrowernumber)->checkouts->delete; |
642 |
}; |
645 |
}; |
643 |
|
646 |
|
644 |
subtest "Koha::Account::non_issues_charges tests" => sub { |
647 |
subtest "Koha::Account::non_issues_charges tests" => sub { |
645 |
- |
|
|