| 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 3742-3747
          subtest "Test Backdating of Returns" => sub {
      
      
        Link Here | 
        
          | 3742 |     is( $accountline->amount+0, 0, 'Fee amount was reduced to 0' ); | 3742 |     is( $accountline->amount+0, 0, 'Fee amount was reduced to 0' ); | 
        
          | 3743 | }; | 3743 | }; | 
        
          | 3744 |  | 3744 |  | 
            
              |  |  | 3745 | subtest 'Do not return on renewal (LOST charge)' => sub { | 
            
              | 3746 |     plan tests => 1; | 
            
              | 3747 |  | 
            
              | 3748 |     t::lib::Mocks::mock_preference('MarkLostItemsAsReturned', 'onpayment'); | 
            
              | 3749 |     my $library = $builder->build_object( { class => "Koha::Libraries" } ); | 
            
              | 3750 |     my $manager = $builder->build_object( { class => "Koha::Patrons" } ); | 
            
              | 3751 |     t::lib::Mocks::mock_userenv({ patron => $manager,branchcode => $manager->branchcode }); | 
            
              | 3752 |  | 
            
              | 3753 |     my $biblio = $builder->build_sample_biblio; | 
            
              | 3754 |  | 
            
              | 3755 |     my $item = $builder->build_sample_item( | 
            
              | 3756 |         { | 
            
              | 3757 |             biblionumber     => $biblio->biblionumber, | 
            
              | 3758 |             library          => $library->branchcode, | 
            
              | 3759 |             replacementprice => 99.00, | 
            
              | 3760 |             itype            => $itemtype, | 
            
              | 3761 |         } | 
            
              | 3762 |     ); | 
            
              | 3763 |  | 
            
              | 3764 |     my $patron = $builder->build_object( { class => 'Koha::Patrons' } ); | 
            
              | 3765 |     AddIssue( $patron->unblessed, $item->barcode ); | 
            
              | 3766 |  | 
            
              | 3767 |     my $accountline = Koha::Account::Line->new( | 
            
              | 3768 |         { | 
            
              | 3769 |             borrowernumber    => $patron->borrowernumber, | 
            
              | 3770 |             debit_type_code   => 'LOST', | 
            
              | 3771 |             status            => undef, | 
            
              | 3772 |             itemnumber        => $item->itemnumber, | 
            
              | 3773 |             amount            => 12, | 
            
              | 3774 |             amountoutstanding => 12, | 
            
              | 3775 |             interface         => 'something', | 
            
              | 3776 |         } | 
            
              | 3777 |     )->store(); | 
            
              | 3778 |  | 
            
              | 3779 |     # AddRenewal doesn't call _FixAccountForLostAndFound | 
            
              | 3780 |     AddIssue( $patron->unblessed, $item->barcode ); | 
            
              | 3781 |  | 
            
              | 3782 |     is( $patron->checkouts->count, 1, | 
            
              | 3783 |         'Renewal should not return the item even if a LOST payment has been made earlier' | 
            
              | 3784 |     ); | 
            
              | 3785 | }; | 
            
              | 3786 |  | 
        
          | 3745 | $schema->storage->txn_rollback; | 3787 | $schema->storage->txn_rollback; | 
        
          | 3746 | C4::Context->clear_syspref_cache(); | 3788 | C4::Context->clear_syspref_cache(); | 
        
          | 3747 | $cache->clear_from_cache('single_holidays'); | 3789 | $cache->clear_from_cache('single_holidays'); | 
            
              | 3748 | -  |  |  |