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

(-)a/t/db_dependent/Circulation.t (-3 / +10 lines)
Lines 1988-1993 subtest 'AddReturn | is_overdue' => sub { Link Here
1988
1988
1989
    my $library = $builder->build( { source => 'Branch' } );
1989
    my $library = $builder->build( { source => 'Branch' } );
1990
    my $patron  = $builder->build( { source => 'Borrower', value => { categorycode => $patron_category->{categorycode} } } );
1990
    my $patron  = $builder->build( { source => 'Borrower', value => { categorycode => $patron_category->{categorycode} } } );
1991
    my $manager = $builder->build_object({ class => "Koha::Patrons" });
1992
    t::lib::Mocks::mock_userenv({ patron => $manager, branchcode => $manager->branchcode });
1991
1993
1992
    my $biblioitem = $builder->build( { source => 'Biblioitem' } );
1994
    my $biblioitem = $builder->build( { source => 'Biblioitem' } );
1993
    my $item = $builder->build(
1995
    my $item = $builder->build(
Lines 2438-2444 subtest '_FixAccountForLostAndReturned' => sub { Link Here
2438
};
2440
};
2439
2441
2440
subtest '_FixOverduesOnReturn' => sub {
2442
subtest '_FixOverduesOnReturn' => sub {
2441
    plan tests => 6;
2443
    plan tests => 9;
2444
2445
    my $manager = $builder->build_object({ class => "Koha::Patrons" });
2446
    t::lib::Mocks::mock_userenv({ patron => $manager, branchcode => $manager->branchcode });
2442
2447
2443
    my $biblio = $builder->build_sample_biblio({ author => 'Hall, Kylie' });
2448
    my $biblio = $builder->build_sample_biblio({ author => 'Hall, Kylie' });
2444
2449
Lines 2475-2481 subtest '_FixOverduesOnReturn' => sub { Link Here
2475
    is( $accountline->amountoutstanding, '99.000000', 'Fine has the same amount outstanding as previously' );
2480
    is( $accountline->amountoutstanding, '99.000000', 'Fine has the same amount outstanding as previously' );
2476
    is( $accountline->status, 'RETURNED', 'Open fine ( account type OVERDUE ) has been closed out ( status RETURNED )');
2481
    is( $accountline->status, 'RETURNED', 'Open fine ( account type OVERDUE ) has been closed out ( status RETURNED )');
2477
2482
2478
2479
    ## Run again, with exemptfine enabled
2483
    ## Run again, with exemptfine enabled
2480
    $accountline->set(
2484
    $accountline->set(
2481
        {
2485
        {
Lines 2494-2499 subtest '_FixOverduesOnReturn' => sub { Link Here
2494
    is( $accountline->status, 'FORGIVEN', 'Open fine ( account type OVERDUE ) has been set to fine forgiven ( status FORGIVEN )');
2498
    is( $accountline->status, 'FORGIVEN', 'Open fine ( account type OVERDUE ) has been set to fine forgiven ( status FORGIVEN )');
2495
    is( ref $offset, "Koha::Account::Offset", "Found matching offset for fine reduction via forgiveness" );
2499
    is( ref $offset, "Koha::Account::Offset", "Found matching offset for fine reduction via forgiveness" );
2496
    is( $offset->amount, '-99.000000', "Amount of offset is correct" );
2500
    is( $offset->amount, '-99.000000', "Amount of offset is correct" );
2501
    my $credit = $offset->credit;
2502
    is( ref $credit, "Koha::Account::Line", "Found matching credit for fine forgiveness" );
2503
    is( $credit->amount, '-99.000000', "Credit amount is set correctly" );
2504
    is( $credit->amountoutstanding + 0, 0, "Credit amountoutstanding is correctly set to 0" );
2497
};
2505
};
2498
2506
2499
subtest 'Set waiting flag' => sub {
2507
subtest 'Set waiting flag' => sub {
2500
- 

Return to bug 22200