Lines 714-720
subtest 'credits() and debits() tests' => sub {
Link Here
|
714 |
|
714 |
|
715 |
subtest "void() tests" => sub { |
715 |
subtest "void() tests" => sub { |
716 |
|
716 |
|
717 |
plan tests => 16; |
717 |
plan tests => 23; |
718 |
|
718 |
|
719 |
$schema->storage->txn_begin; |
719 |
$schema->storage->txn_begin; |
720 |
|
720 |
|
Lines 772-780
subtest "void() tests" => sub {
Link Here
|
772 |
is( $line1->amountoutstanding+0, 0, 'First fee has amount outstanding of 0' ); |
772 |
is( $line1->amountoutstanding+0, 0, 'First fee has amount outstanding of 0' ); |
773 |
is( $line2->amountoutstanding+0, 0, 'Second fee has amount outstanding of 0' ); |
773 |
is( $line2->amountoutstanding+0, 0, 'Second fee has amount outstanding of 0' ); |
774 |
|
774 |
|
775 |
my $ret = $account_payment->void({ interface => 'test' }); |
775 |
throws_ok { |
|
|
776 |
$line1->void( { interface => 'test' } ); |
777 |
} |
778 |
'Koha::Exceptions::Account::IsNotCredit', |
779 |
'->void() can only be used with credits'; |
780 |
|
781 |
throws_ok { |
782 |
$account_payment->void(); |
783 |
} |
784 |
'Koha::Exceptions::MissingParameter', |
785 |
"->void() requires the `interface` parameter is passed"; |
786 |
|
787 |
throws_ok { |
788 |
$account_payment->void( { interface => 'intranet' } ); |
789 |
} |
790 |
'Koha::Exceptions::MissingParameter', |
791 |
"->void() requires the `staff_id` parameter is passed when `interface` equals 'intranet'"; |
792 |
throws_ok { |
793 |
$account_payment->void( { interface => 'intranet', staff_id => $borrower->borrowernumber } ); |
794 |
} |
795 |
'Koha::Exceptions::MissingParameter', |
796 |
"->void() requires the `branch` parameter is passed when `interface` equals 'intranet'"; |
797 |
|
798 |
my $void = $account_payment->void({ interface => 'test' }); |
776 |
|
799 |
|
777 |
is( ref($ret), 'Koha::Account::Line', 'Void returns the account line' ); |
800 |
is( ref($void), 'Koha::Account::Line', 'Void returns the account line' ); |
|
|
801 |
is( $void->debit_type_code, 'VOID', 'Void returns the VOID account line' ); |
802 |
is( $void->manager_id, undef, 'Void proceeds without manager_id OK if interface is not "intranet"' ); |
803 |
is( $void->branchcode, undef, 'Void proceeds without branchcode OK if interface is not "intranet"' ); |
778 |
is( $account->balance(), 30, "Account balance is again 30" ); |
804 |
is( $account->balance(), 30, "Account balance is again 30" ); |
779 |
|
805 |
|
780 |
$account_payment->_result->discard_changes(); |
806 |
$account_payment->_result->discard_changes(); |
Lines 783-801
subtest "void() tests" => sub {
Link Here
|
783 |
|
809 |
|
784 |
is( $account_payment->credit_type_code, 'PAYMENT', 'Voided payment credit_type_code is still PAYMENT' ); |
810 |
is( $account_payment->credit_type_code, 'PAYMENT', 'Voided payment credit_type_code is still PAYMENT' ); |
785 |
is( $account_payment->status, 'VOID', 'Voided payment status is VOID' ); |
811 |
is( $account_payment->status, 'VOID', 'Voided payment status is VOID' ); |
786 |
is( $account_payment->amount+0, -30, 'Voided payment amount is -30' ); |
812 |
is( $account_payment->amount+0, -30, 'Voided payment amount is still -30' ); |
787 |
is( $account_payment->amountoutstanding+0, 0, 'Voided payment amount outstanding is 0' ); |
813 |
is( $account_payment->amountoutstanding+0, 0, 'Voided payment amount outstanding is 0' ); |
788 |
|
814 |
|
789 |
is( $line1->amountoutstanding+0, 10, 'First fee again has amount outstanding of 10' ); |
815 |
is( $line1->amountoutstanding+0, 10, 'First fee again has amount outstanding of 10' ); |
790 |
is( $line2->amountoutstanding+0, 20, 'Second fee again has amount outstanding of 20' ); |
816 |
is( $line2->amountoutstanding+0, 20, 'Second fee again has amount outstanding of 20' ); |
791 |
|
817 |
|
792 |
# Accountlines that are not credits should be un-voidable |
818 |
my $credit2 = $account->add_credit( { interface => 'test', amount => 10 } ); |
793 |
my $line1_pre = $line1->unblessed(); |
819 |
$void = $credit2->void( |
794 |
$ret = $line1->void({ interface => 'test' }); |
820 |
{ |
795 |
$line1->_result->discard_changes(); |
821 |
interface => 'intranet', |
796 |
my $line1_post = $line1->unblessed(); |
822 |
staff_id => $borrower->borrowernumber, |
797 |
is( $ret, undef, 'Attempted void on non-credit returns undef' ); |
823 |
branch => $branchcode |
798 |
is_deeply( $line1_pre, $line1_post, 'Non-credit account line cannot be voided' ); |
824 |
} |
|
|
825 |
); |
826 |
is( $void->manager_id, $borrower->borrowernumber, "->void stores the manager_id when it's passed"); |
827 |
is( $void->branchcode, $branchcode, "->void stores the branchcode when it's passed"); |
799 |
|
828 |
|
800 |
$schema->storage->txn_rollback; |
829 |
$schema->storage->txn_rollback; |
801 |
}; |
830 |
}; |
802 |
- |
|
|