Lines 60-69
subtest 'outstanding_debits() tests' => sub {
Link Here
|
60 |
my $account = $patron->account; |
60 |
my $account = $patron->account; |
61 |
|
61 |
|
62 |
my @generated_lines; |
62 |
my @generated_lines; |
63 |
push @generated_lines, $account->add_debit({ amount => 1, interface => 'commandline', type => 'fine' }); |
63 |
push @generated_lines, $account->add_debit({ amount => 1, interface => 'commandline', type => 'overdue' }); |
64 |
push @generated_lines, $account->add_debit({ amount => 2, interface => 'commandline', type => 'fine' }); |
64 |
push @generated_lines, $account->add_debit({ amount => 2, interface => 'commandline', type => 'overdue' }); |
65 |
push @generated_lines, $account->add_debit({ amount => 3, interface => 'commandline', type => 'fine' }); |
65 |
push @generated_lines, $account->add_debit({ amount => 3, interface => 'commandline', type => 'overdue' }); |
66 |
push @generated_lines, $account->add_debit({ amount => 4, interface => 'commandline', type => 'fine' }); |
66 |
push @generated_lines, $account->add_debit({ amount => 4, interface => 'commandline', type => 'overdue' }); |
67 |
|
67 |
|
68 |
my $lines = $account->outstanding_debits(); |
68 |
my $lines = $account->outstanding_debits(); |
69 |
my @lines_arr = $account->outstanding_debits(); |
69 |
my @lines_arr = $account->outstanding_debits(); |
Lines 387-396
subtest 'lines() tests' => sub {
Link Here
|
387 |
$account->add_credit({ amount => 4, interface => 'commandline' }); |
387 |
$account->add_credit({ amount => 4, interface => 'commandline' }); |
388 |
|
388 |
|
389 |
# Add Debits |
389 |
# Add Debits |
390 |
$account->add_debit({ amount => 1, interface => 'commandline', type => 'fine' }); |
390 |
$account->add_debit({ amount => 1, interface => 'commandline', type => 'overdue' }); |
391 |
$account->add_debit({ amount => 2, interface => 'commandline', type => 'fine' }); |
391 |
$account->add_debit({ amount => 2, interface => 'commandline', type => 'overdue' }); |
392 |
$account->add_debit({ amount => 3, interface => 'commandline', type => 'fine' }); |
392 |
$account->add_debit({ amount => 3, interface => 'commandline', type => 'overdue' }); |
393 |
$account->add_debit({ amount => 4, interface => 'commandline', type => 'fine' }); |
393 |
$account->add_debit({ amount => 4, interface => 'commandline', type => 'overdue' }); |
394 |
|
394 |
|
395 |
# Paid Off |
395 |
# Paid Off |
396 |
$account->add_credit( { amount => 1, interface => 'commandline' } ) |
396 |
$account->add_credit( { amount => 1, interface => 'commandline' } ) |
Lines 423-432
subtest 'reconcile_balance' => sub {
Link Here
|
423 |
$account->add_credit({ amount => 5, interface => 'commandline' }); |
423 |
$account->add_credit({ amount => 5, interface => 'commandline' }); |
424 |
|
424 |
|
425 |
# Add Debits |
425 |
# Add Debits |
426 |
$account->add_debit({ amount => 1, interface => 'commandline', type => 'fine' }); |
426 |
$account->add_debit({ amount => 1, interface => 'commandline', type => 'overdue' }); |
427 |
$account->add_debit({ amount => 2, interface => 'commandline', type => 'fine' }); |
427 |
$account->add_debit({ amount => 2, interface => 'commandline', type => 'overdue' }); |
428 |
$account->add_debit({ amount => 3, interface => 'commandline', type => 'fine' }); |
428 |
$account->add_debit({ amount => 3, interface => 'commandline', type => 'overdue' }); |
429 |
$account->add_debit({ amount => 4, interface => 'commandline', type => 'fine' }); |
429 |
$account->add_debit({ amount => 4, interface => 'commandline', type => 'overdue' }); |
430 |
|
430 |
|
431 |
# Paid Off |
431 |
# Paid Off |
432 |
Koha::Account::Line->new({ borrowernumber => $patron->id, amount => 1, amountoutstanding => 0, interface => 'commandline' })->store; |
432 |
Koha::Account::Line->new({ borrowernumber => $patron->id, amount => 1, amountoutstanding => 0, interface => 'commandline' })->store; |
Lines 461-470
subtest 'reconcile_balance' => sub {
Link Here
|
461 |
$account->add_credit({ amount => 4, interface => 'commandline' }); |
461 |
$account->add_credit({ amount => 4, interface => 'commandline' }); |
462 |
|
462 |
|
463 |
# Add Debits |
463 |
# Add Debits |
464 |
$account->add_debit({ amount => 1, interface => 'commandline', type => 'fine' }); |
464 |
$account->add_debit({ amount => 1, interface => 'commandline', type => 'overdue' }); |
465 |
$account->add_debit({ amount => 2, interface => 'commandline', type => 'fine' }); |
465 |
$account->add_debit({ amount => 2, interface => 'commandline', type => 'overdue' }); |
466 |
$account->add_debit({ amount => 3, interface => 'commandline', type => 'fine' }); |
466 |
$account->add_debit({ amount => 3, interface => 'commandline', type => 'overdue' }); |
467 |
$account->add_debit({ amount => 4, interface => 'commandline', type => 'fine' }); |
467 |
$account->add_debit({ amount => 4, interface => 'commandline', type => 'overdue' }); |
468 |
|
468 |
|
469 |
# Paid Off |
469 |
# Paid Off |
470 |
Koha::Account::Line->new({ borrowernumber => $patron->id, amount => 1, amountoutstanding => 0, interface => 'commandline' })->store; |
470 |
Koha::Account::Line->new({ borrowernumber => $patron->id, amount => 1, amountoutstanding => 0, interface => 'commandline' })->store; |
Lines 499-509
subtest 'reconcile_balance' => sub {
Link Here
|
499 |
$account->add_credit({ amount => 4, interface => 'commandline' }); |
499 |
$account->add_credit({ amount => 4, interface => 'commandline' }); |
500 |
|
500 |
|
501 |
# Add Debits |
501 |
# Add Debits |
502 |
$account->add_debit({ amount => 1, interface => 'commandline', type => 'fine' }); |
502 |
$account->add_debit({ amount => 1, interface => 'commandline', type => 'overdue' }); |
503 |
$account->add_debit({ amount => 2, interface => 'commandline', type => 'fine' }); |
503 |
$account->add_debit({ amount => 2, interface => 'commandline', type => 'overdue' }); |
504 |
$account->add_debit({ amount => 3, interface => 'commandline', type => 'fine' }); |
504 |
$account->add_debit({ amount => 3, interface => 'commandline', type => 'overdue' }); |
505 |
$account->add_debit({ amount => 4, interface => 'commandline', type => 'fine' }); |
505 |
$account->add_debit({ amount => 4, interface => 'commandline', type => 'overdue' }); |
506 |
$account->add_debit({ amount => 5, interface => 'commandline', type => 'fine' }); |
506 |
$account->add_debit({ amount => 5, interface => 'commandline', type => 'overdue' }); |
507 |
|
507 |
|
508 |
# Paid Off |
508 |
# Paid Off |
509 |
Koha::Account::Line->new({ borrowernumber => $patron->id, amount => 1, amountoutstanding => 0, interface => 'commandline' })->store; |
509 |
Koha::Account::Line->new({ borrowernumber => $patron->id, amount => 1, amountoutstanding => 0, interface => 'commandline' })->store; |
Lines 536-544
subtest 'reconcile_balance' => sub {
Link Here
|
536 |
$account->add_credit({ amount => 3, interface => 'commandline' }); |
536 |
$account->add_credit({ amount => 3, interface => 'commandline' }); |
537 |
|
537 |
|
538 |
# Add Debits |
538 |
# Add Debits |
539 |
my $debit_1 = $account->add_debit({ amount => 1, interface => 'commandline', type => 'fine' }); |
539 |
my $debit_1 = $account->add_debit({ amount => 1, interface => 'commandline', type => 'overdue' }); |
540 |
my $debit_2 = $account->add_debit({ amount => 2, interface => 'commandline', type => 'fine' }); |
540 |
my $debit_2 = $account->add_debit({ amount => 2, interface => 'commandline', type => 'overdue' }); |
541 |
my $debit_3 = $account->add_debit({ amount => 3, interface => 'commandline', type => 'fine' }); |
541 |
my $debit_3 = $account->add_debit({ amount => 3, interface => 'commandline', type => 'overdue' }); |
542 |
|
542 |
|
543 |
is( $account->balance(), 2, "Account balance is 2" ); |
543 |
is( $account->balance(), 2, "Account balance is 2" ); |
544 |
is( $account->outstanding_debits->total_outstanding, 6, 'Outstanding debits sum 6' ); |
544 |
is( $account->outstanding_debits->total_outstanding, 6, 'Outstanding debits sum 6' ); |
545 |
- |
|
|