Bug 6874: [QA Follow-up] Adjustments for opac-retrieve

[koha.git] / t / db_dependent / UploadedFiles.t

diff --git a/t/db_dependent/UploadedFiles.t b/t/db_dependent/UploadedFiles.t
index dfa1c47..908f9f9 100644 (file)
--- a/t/db_dependent/UploadedFiles.t
+++ b/t/db_dependent/UploadedFiles.t
@@ -3,7 +3,7 @@
 use Modern::Perl;
 use File::Temp qw/ tempdir /;
 use Test::CGI::Multipart;
-use Test::More tests => 17;
+use Test::More tests => 18;
 use Test::Warn;
 
 use t::lib::Mocks;
@@ -55,3 +55,7 @@ my $UploadResult;
 warning_like { $UploadResult=C4::UploadedFiles::UploadFile($testfilename,'../',$testfile_fh->handle); } qr/^Filename or dirname contains '..'. Aborting upload/, "Expected warning for bad file upload.";
 is($UploadResult, undef, "UploadFile with dir containing \"..\" return undef");
 is(C4::UploadedFiles::GetUploadedFile(), undef, 'GetUploadedFile without parameters returns undef');
+
+#trivial test for httpheaders
+my @hdrs = C4::UploadedFiles::httpheaders('does_not_matter_yet');
+is( @hdrs == 4 && $hdrs[1] =~ /application\/octet-stream/, 1, 'Simple test for httpheaders'); #TODO Will be extended on report 14282