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

(-)a/t/db_dependent/Circulation.t (-2 / +43 lines)
Lines 18-24 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
use utf8;
19
use utf8;
20
20
21
use Test::More tests => 46;
21
use Test::More tests => 47;
22
use Test::MockModule;
22
use Test::MockModule;
23
use Test::Deep qw( cmp_deeply );
23
use Test::Deep qw( cmp_deeply );
24
24
Lines 3770-3775 subtest "Test Backdating of Returns" => sub { Link Here
3770
    is( $accountline->amount+0, 0, 'Fee amount was reduced to 0' );
3770
    is( $accountline->amount+0, 0, 'Fee amount was reduced to 0' );
3771
};
3771
};
3772
3772
3773
subtest 'Do not return on renewal (LOST charge)' => sub {
3774
    plan tests => 1;
3775
3776
    t::lib::Mocks::mock_preference('MarkLostItemsAsReturned', 'onpayment');
3777
    my $library = $builder->build_object( { class => "Koha::Libraries" } );
3778
    my $manager = $builder->build_object( { class => "Koha::Patrons" } );
3779
    t::lib::Mocks::mock_userenv({ patron => $manager,branchcode => $manager->branchcode });
3780
3781
    my $biblio = $builder->build_sample_biblio;
3782
3783
    my $item = $builder->build_sample_item(
3784
        {
3785
            biblionumber     => $biblio->biblionumber,
3786
            library          => $library->branchcode,
3787
            replacementprice => 99.00,
3788
            itype            => $itemtype,
3789
        }
3790
    );
3791
3792
    my $patron = $builder->build_object( { class => 'Koha::Patrons' } );
3793
    AddIssue( $patron->unblessed, $item->barcode );
3794
3795
    my $accountline = Koha::Account::Line->new(
3796
        {
3797
            borrowernumber    => $patron->borrowernumber,
3798
            debit_type_code   => 'LOST',
3799
            status            => undef,
3800
            itemnumber        => $item->itemnumber,
3801
            amount            => 12,
3802
            amountoutstanding => 12,
3803
            interface         => 'something',
3804
        }
3805
    )->store();
3806
3807
    # AddRenewal doesn't call _FixAccountForLostAndFound
3808
    AddIssue( $patron->unblessed, $item->barcode );
3809
3810
    is( $patron->checkouts->count, 1,
3811
        'Renewal should not return the item even if a LOST payment has been made earlier'
3812
    );
3813
};
3814
3773
$schema->storage->txn_rollback;
3815
$schema->storage->txn_rollback;
3774
C4::Context->clear_syspref_cache();
3816
C4::Context->clear_syspref_cache();
3775
$cache->clear_from_cache('single_holidays');
3817
$cache->clear_from_cache('single_holidays');
3776
- 

Return to bug 24474