View | Details | Raw Unified | Return to bug 32450
Collapse All | Expand All

(-)a/t/db_dependent/Accounts.t (-5 / +4 lines)
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
- 

Return to bug 32450