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

(-)a/t/db_dependent/Circulation.t (-2 / +42 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 3647-3652 subtest "Test Backdating of Returns" => sub { Link Here
3647
    is( $accountline->amount+0, 0, 'Fee amount was reduced to 0' );
3647
    is( $accountline->amount+0, 0, 'Fee amount was reduced to 0' );
3648
};
3648
};
3649
3649
3650
subtest 'Do not return on renewal (LOST charge)' => sub {
3651
    plan tests => 2;
3652
3653
    t::lib::Mocks::mock_preference('MarkLostItemsAsReturned', '');
3654
    my $library = $builder->build_object( { class => "Koha::Libraries" } );
3655
    my $manager = $builder->build_object( { class => "Koha::Patrons" } );
3656
    t::lib::Mocks::mock_userenv({ patron => $manager,branchcode => $manager->branchcode });
3657
3658
    my $biblio = $builder->build_sample_biblio;
3659
3660
    my $item = $builder->build_sample_item(
3661
        {
3662
            biblionumber     => $biblio->biblionumber,
3663
            library          => $library->branchcode,
3664
            replacementprice => 99.00,
3665
            itype            => $itemtype,
3666
        }
3667
    );
3668
3669
    my $patron = $builder->build_object( { class => 'Koha::Patrons' } );
3670
    AddIssue( $patron->unblessed, $item->barcode );
3671
3672
    my $accountline = Koha::Account::Line->new(
3673
        {
3674
            borrowernumber    => $patron->borrowernumber,
3675
            debit_type_code   => 'LOST',
3676
            status            => undef,
3677
            itemnumber        => $item->itemnumber,
3678
            amount            => 12,
3679
            amountoutstanding => 12,
3680
            interface         => 'something',
3681
        }
3682
    )->store();
3683
3684
    AddRenewal( $patron->borrowernumber, $item->itemnumber, $library->branchcode );
3685
3686
    is( $patron->checkouts->count, 1,
3687
        'Renewal should not return the item even if a LOST payment has been made earlier'
3688
    );
3689
};
3690
3650
$schema->storage->txn_rollback;
3691
$schema->storage->txn_rollback;
3651
C4::Context->clear_syspref_cache();
3692
C4::Context->clear_syspref_cache();
3652
$cache->clear_from_cache('single_holidays');
3693
$cache->clear_from_cache('single_holidays');
3653
- 

Return to bug 24474