View | Details | Raw Unified | Return to bug 21684
Collapse All | Expand All

(-)a/t/db_dependent/Upload.t (-5 / +4 lines)
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
- 

Return to bug 21684