|
Lines 835-850
subtest "Koha::Account::non_issues_charges tests" => sub {
Link Here
|
| 835 |
} |
835 |
} |
| 836 |
)->store; |
836 |
)->store; |
| 837 |
|
837 |
|
| 838 |
my ( $total, $non_issues_charges ) = ( $account->balance, $account->non_issues_charges ); |
838 |
my ( $new_total, $new_non_issues_charges ) = ( $account->balance, $account->non_issues_charges ); |
| 839 |
my $other_charges = $total - $non_issues_charges; |
839 |
my $new_other_charges = $new_total - $new_non_issues_charges; |
| 840 |
is( |
840 |
is( |
| 841 |
$account->balance, |
841 |
$account->balance, |
| 842 |
$res + $rent + $manual + $print, |
842 |
$res + $rent + $manual + $print, |
| 843 |
'Total charges should be Res + Rent + Manual + Print' |
843 |
'Total charges should be Res + Rent + Manual + Print' |
| 844 |
); |
844 |
); |
| 845 |
is( $non_issues_charges, 15, |
845 |
is( $new_non_issues_charges, 15, |
| 846 |
'All types except Print should count towards the non issue charge' ); |
846 |
'All types except Print should count towards the non issue charge' ); |
| 847 |
is( $other_charges, 4, 'There should be non-included charges for Print' ); |
847 |
is( $new_other_charges, 4, 'There should be non-included charges for Print' ); |
| 848 |
|
848 |
|
| 849 |
}; |
849 |
}; |
| 850 |
|
850 |
|
| 851 |
- |
|
|