Lines 18-24
Link Here
|
18 |
|
18 |
|
19 |
use Modern::Perl; |
19 |
use Modern::Perl; |
20 |
|
20 |
|
21 |
use Test::More tests => 26; |
21 |
use Test::More tests => 27; |
22 |
use Test::MockModule; |
22 |
use Test::MockModule; |
23 |
use Test::Warn; |
23 |
use Test::Warn; |
24 |
|
24 |
|
Lines 846-852
subtest "Koha::Account::non_issues_charges tests" => sub {
Link Here
|
846 |
|
846 |
|
847 |
subtest "Koha::Account::Line::void tests" => sub { |
847 |
subtest "Koha::Account::Line::void tests" => sub { |
848 |
|
848 |
|
849 |
plan tests => 14; |
849 |
plan tests => 12; |
850 |
|
850 |
|
851 |
# Create a borrower |
851 |
# Create a borrower |
852 |
my $categorycode = $builder->build({ source => 'Category' })->{ categorycode }; |
852 |
my $categorycode = $builder->build({ source => 'Category' })->{ categorycode }; |
Lines 877-887
subtest "Koha::Account::Line::void tests" => sub {
Link Here
|
877 |
} |
877 |
} |
878 |
); |
878 |
); |
879 |
|
879 |
|
880 |
# Test debit and credit methods fo Koha::Account::Offset |
|
|
881 |
my $account_offset = Koha::Account::Offsets->find( { credit_id => $id, debit_id => $line1->id } ); |
882 |
is( $account_offset->debit->id, $line1->id, "Koha::Account::Offset->debit gets correct accountline" ); |
883 |
is( $account_offset->credit->id, $id, "Koha::Account::Offset->credit gets correct accountline" ); |
884 |
|
885 |
my $account_payment = Koha::Account::Lines->find( $id ); |
880 |
my $account_payment = Koha::Account::Lines->find( $id ); |
886 |
|
881 |
|
887 |
is( $account->balance(), 0, "Account balance is 0" ); |
882 |
is( $account->balance(), 0, "Account balance is 0" ); |
Lines 907-910
subtest "Koha::Account::Line::void tests" => sub {
Link Here
|
907 |
is( $line2->amountoutstanding+0, 20, 'Second fee again has amount outstanding of 20' ); |
902 |
is( $line2->amountoutstanding+0, 20, 'Second fee again has amount outstanding of 20' ); |
908 |
}; |
903 |
}; |
909 |
|
904 |
|
|
|
905 |
subtest "Koha::Account::Offset credit & debit tests" => sub { |
906 |
|
907 |
plan tests => 4; |
908 |
|
909 |
# Create a borrower |
910 |
my $categorycode = $builder->build({ source => 'Category' })->{ categorycode }; |
911 |
my $branchcode = $builder->build({ source => 'Branch' })->{ branchcode }; |
912 |
|
913 |
my $borrower = Koha::Patron->new( { |
914 |
cardnumber => 'kyliehall', |
915 |
surname => 'Hall', |
916 |
firstname => 'Kylie', |
917 |
} ); |
918 |
$borrower->categorycode( $categorycode ); |
919 |
$borrower->branchcode( $branchcode ); |
920 |
$borrower->store; |
921 |
|
922 |
my $account = Koha::Account->new({ patron_id => $borrower->id }); |
923 |
|
924 |
my $line1 = Koha::Account::Line->new({ borrowernumber => $borrower->borrowernumber, amount => 10, amountoutstanding => 10 })->store(); |
925 |
my $line2 = Koha::Account::Line->new({ borrowernumber => $borrower->borrowernumber, amount => 20, amountoutstanding => 20 })->store(); |
926 |
|
927 |
my $id = $account->pay( |
928 |
{ |
929 |
lines => [$line1, $line2], |
930 |
amount => 30, |
931 |
} |
932 |
); |
933 |
|
934 |
# Test debit and credit methods for Koha::Account::Offset |
935 |
my $account_offset = Koha::Account::Offsets->find( { credit_id => $id, debit_id => $line1->id } ); |
936 |
is( $account_offset->debit->id, $line1->id, "Koha::Account::Offset->debit gets correct accountline" ); |
937 |
is( $account_offset->credit->id, $id, "Koha::Account::Offset->credit gets correct accountline" ); |
938 |
|
939 |
$account_offset = Koha::Account::Offset->new( |
940 |
{ |
941 |
credit_id => undef, |
942 |
debit_id => undef, |
943 |
type => 'Payment', |
944 |
amount => 0, |
945 |
} |
946 |
)->store(); |
947 |
|
948 |
is( $account_offset->debit, undef, "Koha::Account::Offset->debit returns undef if no associated debit" ); |
949 |
is( $account_offset->credit, undef, "Koha::Account::Offset->credit returns undef if no associated credit" ); |
950 |
}; |
951 |
|
910 |
1; |
952 |
1; |
911 |
- |
|
|