4 use File::Temp qw/ tempdir /;
5 use Test::CGI::Multipart;
6 use Test::More tests => 11;
11 use C4::UploadedFiles;
13 # This simulates a multipart POST request with a file upload.
14 my $tcm = new Test::CGI::Multipart;
17 file => 'testfilename.txt',
18 value => "This is the content of testfilename.txt",
20 my $cgi = $tcm->create_cgi;
22 my $tempdir = tempdir(CLEANUP => 1);
23 t::lib::Mocks::mock_config('upload_path', $tempdir);
25 my $testfilename = $cgi->param('testfile');
26 my $testfile_fh = $cgi->upload('testfile');
27 my $id = C4::UploadedFiles::UploadFile($testfilename, '', $testfile_fh->handle);
28 ok($id, "File uploaded, id is $id");
30 my $file = C4::UploadedFiles::GetUploadedFile($id);
31 isa_ok($file, 'HASH', "GetUploadedFiles($id)");
32 foreach my $key (qw(id filename filepath dir)) {
33 ok(exists $file->{$key}, "GetUploadedFile($id)->{$key} exists");
36 ok(-e $file->{filepath}, "File $file->{filepath} exists");
38 ok(C4::UploadedFiles::DelUploadedFile($id), "DelUploadedFile($id) returned true");
39 ok(! -e $file->{filepath}, "File $file->{filepath} does not exist anymore");
41 is(C4::UploadedFiles::UploadFile($testfilename, '../', $testfile_fh->handle), undef, 'UploadFile with $dir containing ".." return undef');
42 is(C4::UploadedFiles::GetUploadedFile(), undef, 'GetUploadedFile without parameters returns undef');