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