| 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 => 1; | 
            
              | 3652 |  | 
            
              | 3653 |     t::lib::Mocks::mock_preference('MarkLostItemsAsReturned', 'onpayment'); | 
            
              | 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 doesn't call _FixAccountForLostAndFound | 
            
              | 3685 |     AddIssue( $patron->unblessed, $item->barcode ); | 
            
              | 3686 |  | 
            
              | 3687 |     is( $patron->checkouts->count, 1, | 
            
              | 3688 |         'Renewal should not return the item even if a LOST payment has been made earlier' | 
            
              | 3689 |     ); | 
            
              | 3690 | }; | 
            
              | 3691 |  | 
        
          | 3650 | $schema->storage->txn_rollback; | 3692 | $schema->storage->txn_rollback; | 
        
          | 3651 | C4::Context->clear_syspref_cache(); | 3693 | C4::Context->clear_syspref_cache(); | 
        
          | 3652 | $cache->clear_from_cache('single_holidays'); | 3694 | $cache->clear_from_cache('single_holidays'); | 
            
              | 3653 | -  |  |  |