View | Details | Raw Unified | Return to bug 22521
Collapse All | Expand All

(-)a/t/db_dependent/Koha/Account.t (-25 / +24 lines)
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
- 

Return to bug 22521