Lines 3-9
Link Here
|
3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
4 |
use File::Temp qw/ tempdir /; |
4 |
use File::Temp qw/ tempdir /; |
5 |
use Test::CGI::Multipart; |
5 |
use Test::CGI::Multipart; |
6 |
use Test::More tests => 17; |
6 |
use Test::More tests => 18; |
7 |
use Test::Warn; |
7 |
use Test::Warn; |
8 |
|
8 |
|
9 |
use t::lib::Mocks; |
9 |
use t::lib::Mocks; |
Lines 55-57
my $UploadResult;
Link Here
|
55 |
warning_like { $UploadResult=C4::UploadedFiles::UploadFile($testfilename,'../',$testfile_fh->handle); } qr/^Filename or dirname contains '..'. Aborting upload/, "Expected warning for bad file upload."; |
55 |
warning_like { $UploadResult=C4::UploadedFiles::UploadFile($testfilename,'../',$testfile_fh->handle); } qr/^Filename or dirname contains '..'. Aborting upload/, "Expected warning for bad file upload."; |
56 |
is($UploadResult, undef, "UploadFile with dir containing \"..\" return undef"); |
56 |
is($UploadResult, undef, "UploadFile with dir containing \"..\" return undef"); |
57 |
is(C4::UploadedFiles::GetUploadedFile(), undef, 'GetUploadedFile without parameters returns undef'); |
57 |
is(C4::UploadedFiles::GetUploadedFile(), undef, 'GetUploadedFile without parameters returns undef'); |
58 |
- |
58 |
|
|
|
59 |
#trivial test for httpheaders |
60 |
my @hdrs = C4::UploadedFiles::httpheaders('does_not_matter_yet'); |
61 |
is( @hdrs == 4 && $hdrs[1] =~ /application\/octet-stream/, 1, 'Simple test for httpheaders'); #TODO Will be extended on report 14282 |