|
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 |
- |
|
|