Lines 206-212
subtest 'Test delete_missing' => sub {
Link Here
|
206 |
is( $deleted, 2, 'Expect two records with missing files' ); |
206 |
is( $deleted, 2, 'Expect two records with missing files' ); |
207 |
isnt( Koha::UploadedFiles->find( $upload01->{id} ), undef, 'Not deleted' ); |
207 |
isnt( Koha::UploadedFiles->find( $upload01->{id} ), undef, 'Not deleted' ); |
208 |
$deleted = Koha::UploadedFiles->delete_missing; |
208 |
$deleted = Koha::UploadedFiles->delete_missing; |
209 |
ok( $deleted =~ /^(2|-1)$/, 'Deleted two records with missing files' ); |
209 |
ok( $deleted =~ /^(2)$/, 'Deleted two records with missing files' ); |
210 |
is( Koha::UploadedFiles->search({ |
210 |
is( Koha::UploadedFiles->search({ |
211 |
id => [ $upload01->{id}, $upload02->{id} ], |
211 |
id => [ $upload01->{id}, $upload02->{id} ], |
212 |
})->count, 0, 'Records are gone' ); |
212 |
})->count, 0, 'Records are gone' ); |
Lines 303-319
subtest 'Testing delete_temporary' => sub {
Link Here
|
303 |
# Now call delete_temporary with 6, 5 and 0 |
303 |
# Now call delete_temporary with 6, 5 and 0 |
304 |
t::lib::Mocks::mock_preference('UploadPurgeTemporaryFilesDays', 6 ); |
304 |
t::lib::Mocks::mock_preference('UploadPurgeTemporaryFilesDays', 6 ); |
305 |
my $delete = Koha::UploadedFiles->delete_temporary; |
305 |
my $delete = Koha::UploadedFiles->delete_temporary; |
306 |
ok( $delete =~ /^(-1|0E0)$/, 'Check return value with 6' ); |
306 |
is( $delete, '0E0', 'Check return value with 6' ); |
307 |
is( Koha::UploadedFiles->search->count, 6, 'Delete with pref==6' ); |
307 |
is( Koha::UploadedFiles->search->count, 6, 'Delete with pref==6' ); |
308 |
|
308 |
|
309 |
# use override parameter |
309 |
# use override parameter |
310 |
$delete = Koha::UploadedFiles->delete_temporary({ override_pref => 5 }); |
310 |
$delete = Koha::UploadedFiles->delete_temporary({ override_pref => 5 }); |
311 |
ok( $delete =~ /^(2|-1)$/, 'Check return value with 5' ); |
311 |
is( $delete, 2, 'Check return value with 5' ); |
312 |
is( Koha::UploadedFiles->search->count, 4, 'Delete with override==5' ); |
312 |
is( Koha::UploadedFiles->search->count, 4, 'Delete with override==5' ); |
313 |
|
313 |
|
314 |
t::lib::Mocks::mock_preference('UploadPurgeTemporaryFilesDays', 0 ); |
314 |
t::lib::Mocks::mock_preference('UploadPurgeTemporaryFilesDays', 0 ); |
315 |
$delete = Koha::UploadedFiles->delete_temporary; |
315 |
$delete = Koha::UploadedFiles->delete_temporary; |
316 |
ok( $delete =~ /^(-1|1)$/, 'Check return value with 0' ); |
316 |
is( $delete, 1, 'Check return value with 0' ); |
317 |
is( Koha::UploadedFiles->search->count, 3, 'Delete with pref==0 makes 3' ); |
317 |
is( Koha::UploadedFiles->search->count, 3, 'Delete with pref==0 makes 3' ); |
318 |
is( Koha::UploadedFiles->search({ permanent => 1 })->count, 3, |
318 |
is( Koha::UploadedFiles->search({ permanent => 1 })->count, 3, |
319 |
'Still 3 permanent uploads' ); |
319 |
'Still 3 permanent uploads' ); |
320 |
- |
|
|