| 
      
            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 => 60;  | 
              21 | 
              use Test::More tests => 61;  | 
            
        
          | 22 | 
          use Test::Exception;  | 
          22 | 
          use Test::Exception;  | 
        
        
          | 23 | 
          use Test::MockModule;  | 
          23 | 
          use Test::MockModule;  | 
        
        
          | 24 | 
          use Test::Deep qw( cmp_deeply );  | 
          24 | 
          use Test::Deep qw( cmp_deeply );  | 
        
  
    | 
      
            Lines 4361-4366
          subtest 'AddRenewal and AddIssuingCharge tests' => sub {
      
      
        Link Here
      
     | 
  
        
          | 4361 | 
           | 
          4361 | 
           | 
        
        
          | 4362 | 
          };  | 
          4362 | 
          };  | 
        
        
          | 4363 | 
           | 
          4363 | 
           | 
        
            
               | 
               | 
              4364 | 
              subtest 'AddRenewal() adds to renewals' => sub { | 
            
            
              | 4365 | 
                  plan tests => 4;  | 
            
            
              | 4366 | 
               | 
            
            
              | 4367 | 
                  my $library  = $builder->build_object({ class => 'Koha::Libraries' }); | 
            
            
              | 4368 | 
                  my $patron   = $builder->build_object({ | 
            
            
              | 4369 | 
                      class => 'Koha::Patrons',  | 
            
            
              | 4370 | 
                      value => { branchcode => $library->id } | 
            
            
              | 4371 | 
                  });  | 
            
            
              | 4372 | 
               | 
            
            
              | 4373 | 
                  my $item = $builder->build_sample_item();  | 
            
            
              | 4374 | 
               | 
            
            
              | 4375 | 
                  set_userenv( $library->unblessed );  | 
            
            
              | 4376 | 
               | 
            
            
              | 4377 | 
                  # Check the item out  | 
            
            
              | 4378 | 
                  my $issue = AddIssue( $patron->unblessed, $item->barcode );  | 
            
            
              | 4379 | 
                  is(ref($issue), 'Koha::Checkout', 'Issue added');  | 
            
            
              | 4380 | 
               | 
            
            
              | 4381 | 
                  # Renew item  | 
            
            
              | 4382 | 
                  my $duedate = AddRenewal( $patron->id, $item->id, $library->id );  | 
            
            
              | 4383 | 
               | 
            
            
              | 4384 | 
                  ok( $duedate, "Renewal added" );  | 
            
            
              | 4385 | 
               | 
            
            
              | 4386 | 
                  my $renewals = Koha::Checkouts::Renewals->search({ checkout_id => $issue->issue_id }); | 
            
            
              | 4387 | 
                  is($renewals->count, 1, 'One renewal added');  | 
            
            
              | 4388 | 
                  my $THE_renewal = $renewals->next;  | 
            
            
              | 4389 | 
                  is( $THE_renewal->renewer_id, C4::Context->userenv->{'number'}, 'Renewer recorded from context' ); | 
            
            
              | 4390 | 
              };  | 
            
            
              | 4391 | 
               | 
            
        
          | 4364 | 
          subtest 'ProcessOfflinePayment() tests' => sub { | 
          4392 | 
          subtest 'ProcessOfflinePayment() tests' => sub { | 
        
        
          | 4365 | 
           | 
          4393 | 
           | 
        
        
          | 4366 | 
              plan tests => 4;  | 
          4394 | 
              plan tests => 4;  | 
        
            
              | 4367 | 
              -   | 
               | 
               |