Lines 175-185
subtest 'Test delete via UploadedFile as well as UploadedFiles' => sub {
Link Here
|
175 |
isnt( -e $path, 1, 'File no longer found after delete' ); |
175 |
isnt( -e $path, 1, 'File no longer found after delete' ); |
176 |
|
176 |
|
177 |
# add another record with TestBuilder, so file does not exist |
177 |
# add another record with TestBuilder, so file does not exist |
178 |
# catch warning |
178 |
# catch warning (which occurs when deleting permanent file) |
179 |
my $upload01 = $builder->build({ source => 'UploadedFile' }); |
179 |
my $upload01 = $builder->build({ source => 'UploadedFile', value => { permanent => 1 } }); |
180 |
warning_like { $delete = Koha::UploadedFiles->find( $upload01->{id} )->delete; } |
180 |
warning_like { $delete = Koha::UploadedFiles->find( $upload01->{id} )->delete; } |
181 |
qr/file was missing/, |
181 |
qr/file was missing/, |
182 |
'delete warns when file is missing'; |
182 |
'delete warns when permanent file is missing'; |
183 |
ok( $delete, 'Deleting record was successful' ); |
183 |
ok( $delete, 'Deleting record was successful' ); |
184 |
is( Koha::UploadedFiles->count, 4, 'Back to four uploads now' ); |
184 |
is( Koha::UploadedFiles->count, 4, 'Back to four uploads now' ); |
185 |
|
185 |
|
186 |
- |
|
|