| Lines 193-212
          subtest 'Test delete via UploadedFile as well as UploadedFiles' => sub {
      
      
        Link Here | 
        
          | 193 | }; | 193 | }; | 
        
          | 194 |  | 194 |  | 
        
          | 195 | subtest 'Test delete_missing' => sub { | 195 | subtest 'Test delete_missing' => sub { | 
          
            
              | 196 |     plan tests => 4; | 196 |     plan tests => 5; | 
        
          | 197 |  | 197 |  | 
        
          | 198 |     # If we add files via TestBuilder, they do not exist | 198 |     # If we add files via TestBuilder, they do not exist | 
        
          | 199 |     my $upload01 = $builder->build({ source => 'UploadedFile' }); | 199 |     my $upload01 = $builder->build({ source => 'UploadedFile' }); | 
        
          | 200 |     my $upload02 = $builder->build({ source => 'UploadedFile' }); | 200 |     my $upload02 = $builder->build({ source => 'UploadedFile' }); | 
        
          | 201 |     # dry run first | 201 |     # dry run first | 
        
          | 202 |     my $deleted = Koha::UploadedFiles->delete_missing({ keep_record => 1 }); | 202 |     my $deleted = Koha::UploadedFiles->delete_missing({ keep_record => 1 }); | 
          
            
              | 203 |     is( $deleted, 2, 'Expect two missing files' ); | 203 |     is( $deleted, 2, 'Expect two records with missing files' ); | 
        
          | 204 |     isnt( Koha::UploadedFiles->find( $upload01->{id} ), undef, 'Not deleted' ); | 204 |     isnt( Koha::UploadedFiles->find( $upload01->{id} ), undef, 'Not deleted' ); | 
        
          | 205 |     $deleted = Koha::UploadedFiles->delete_missing; | 205 |     $deleted = Koha::UploadedFiles->delete_missing; | 
          
            
              | 206 |     is( $deleted, 2, 'Deleted two missing files' ); | 206 |     ok( $deleted =~ /^(2|-1)$/, 'Deleted two records with missing files' ); | 
        
          | 207 |     is( Koha::UploadedFiles->search({ | 207 |     is( Koha::UploadedFiles->search({ | 
        
          | 208 |         id => [ $upload01->{id}, $upload02->{id} ], | 208 |         id => [ $upload01->{id}, $upload02->{id} ], | 
        
          | 209 |     })->count, 0, 'Records are gone' ); | 209 |     })->count, 0, 'Records are gone' ); | 
            
              |  |  | 210 |     # Repeat it | 
            
              | 211 |     $deleted = Koha::UploadedFiles->delete_missing; | 
            
              | 212 |     is( $deleted, "0E0", "Return value of 0E0 expected" ); | 
        
          | 210 | }; | 213 | }; | 
        
          | 211 |  | 214 |  | 
        
          | 212 | subtest 'Call search_term with[out] private flag' => sub { | 215 | subtest 'Call search_term with[out] private flag' => sub { | 
            
              | 213 | -  |  |  |