Lines 323-329
subtest 'Testing download headers' => sub {
Link Here
|
323 |
plan tests => 2; |
323 |
plan tests => 2; |
324 |
my $test_pdf = Koha::UploadedFile->new({ filename => 'pdf.pdf', uploadcategorycode => 'B', filesize => 1000 }); |
324 |
my $test_pdf = Koha::UploadedFile->new({ filename => 'pdf.pdf', uploadcategorycode => 'B', filesize => 1000 }); |
325 |
my $test_not = Koha::UploadedFile->new({ filename => 'pdf.not', uploadcategorycode => 'B', filesize => 1000 }); |
325 |
my $test_not = Koha::UploadedFile->new({ filename => 'pdf.not', uploadcategorycode => 'B', filesize => 1000 }); |
326 |
my @pdf_expect = ( '-type'=>'application/pdf','Content-Disposition'=>'inline; filename=pdf.pdf' ); |
326 |
my @pdf_expect = ( '-type'=>'application/pdf','Content-Disposition'=>'inline; filename="pdf.pdf"' ); |
327 |
my @not_expect = ( '-type'=>'application/octet-stream','-attachment'=>'pdf.not' ); |
327 |
my @not_expect = ( '-type'=>'application/octet-stream','-attachment'=>'pdf.not' ); |
328 |
my @pdf_head = $test_pdf->httpheaders; |
328 |
my @pdf_head = $test_pdf->httpheaders; |
329 |
my @not_head = $test_not->httpheaders; |
329 |
my @not_head = $test_not->httpheaders; |
330 |
- |
|
|