|
Lines 866-872
subtest "Koha::Account::non_issues_charges tests" => sub {
Link Here
|
| 866 |
my $debit = Koha::Account::Line->new( |
866 |
my $debit = Koha::Account::Line->new( |
| 867 |
{ |
867 |
{ |
| 868 |
borrowernumber => $patron->id, |
868 |
borrowernumber => $patron->id, |
| 869 |
date => '1970-01-01 00:00:01', |
869 |
date => '1970-01-01 14:00:01', |
| 870 |
amountoutstanding => 0, |
870 |
amountoutstanding => 0, |
| 871 |
interface => 'commandline', |
871 |
interface => 'commandline', |
| 872 |
debit_type_code => 'LOST' |
872 |
debit_type_code => 'LOST' |
|
Lines 875-881
subtest "Koha::Account::non_issues_charges tests" => sub {
Link Here
|
| 875 |
my $credit = Koha::Account::Line->new( |
875 |
my $credit = Koha::Account::Line->new( |
| 876 |
{ |
876 |
{ |
| 877 |
borrowernumber => $patron->id, |
877 |
borrowernumber => $patron->id, |
| 878 |
date => '1970-01-01 00:00:01', |
878 |
date => '1970-01-01 14:00:01', |
| 879 |
amountoutstanding => -5, |
879 |
amountoutstanding => -5, |
| 880 |
interface => 'commandline', |
880 |
interface => 'commandline', |
| 881 |
credit_type_code => 'PAYMENT' |
881 |
credit_type_code => 'PAYMENT' |
|
Lines 899-905
subtest "Koha::Account::non_issues_charges tests" => sub {
Link Here
|
| 899 |
$debit = Koha::Account::Line->new( |
899 |
$debit = Koha::Account::Line->new( |
| 900 |
{ |
900 |
{ |
| 901 |
borrowernumber => $patron->id, |
901 |
borrowernumber => $patron->id, |
| 902 |
date => '1970-01-01 00:00:01', |
902 |
date => '1970-01-01 14:00:01', |
| 903 |
amountoutstanding => 5, |
903 |
amountoutstanding => 5, |
| 904 |
interface => 'commanline', |
904 |
interface => 'commanline', |
| 905 |
debit_type_code => 'LOST' |
905 |
debit_type_code => 'LOST' |
|
Lines 908-914
subtest "Koha::Account::non_issues_charges tests" => sub {
Link Here
|
| 908 |
$credit = Koha::Account::Line->new( |
908 |
$credit = Koha::Account::Line->new( |
| 909 |
{ |
909 |
{ |
| 910 |
borrowernumber => $patron->id, |
910 |
borrowernumber => $patron->id, |
| 911 |
date => '1970-01-01 00:00:01', |
911 |
date => '1970-01-01 14:00:01', |
| 912 |
amountoutstanding => 0, |
912 |
amountoutstanding => 0, |
| 913 |
interface => 'commandline', |
913 |
interface => 'commandline', |
| 914 |
credit_type_code => 'PAYMENT' |
914 |
credit_type_code => 'PAYMENT' |
|
Lines 933-939
subtest "Koha::Account::non_issues_charges tests" => sub {
Link Here
|
| 933 |
$debit = Koha::Account::Line->new( |
933 |
$debit = Koha::Account::Line->new( |
| 934 |
{ |
934 |
{ |
| 935 |
borrowernumber => $patron->id, |
935 |
borrowernumber => $patron->id, |
| 936 |
date => '1970-01-01 00:00:01', |
936 |
date => '1970-01-01 14:00:01', |
| 937 |
amountoutstanding => 0, |
937 |
amountoutstanding => 0, |
| 938 |
interface => 'commandline', |
938 |
interface => 'commandline', |
| 939 |
debit_type_code => 'LOST' |
939 |
debit_type_code => 'LOST' |
|
Lines 942-948
subtest "Koha::Account::non_issues_charges tests" => sub {
Link Here
|
| 942 |
$credit = Koha::Account::Line->new( |
942 |
$credit = Koha::Account::Line->new( |
| 943 |
{ |
943 |
{ |
| 944 |
borrowernumber => $patron->id, |
944 |
borrowernumber => $patron->id, |
| 945 |
date => '1970-01-01 00:00:01', |
945 |
date => '1970-01-01 14:00:01', |
| 946 |
amountoutstanding => 0, |
946 |
amountoutstanding => 0, |
| 947 |
interface => 'commandline', |
947 |
interface => 'commandline', |
| 948 |
credit_type_code => 'PAYMENT' |
948 |
credit_type_code => 'PAYMENT' |