1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
# --
# AuthSession.t - auth session tests
# Copyright (C) 2001-2007 OTRS GmbH, http://otrs.org/
# --
# $Id: WebUploadCache.t,v 1.6 2007/08/21 11:43:08 martin Exp $
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (GPL). If you
# did not receive this file, see http://www.gnu.org/licenses/gpl.txt.
# --
use Kernel::System::Web::UploadCache;
use Digest::MD5 qw(md5_hex);
use utf8;
foreach my $Module (qw(DB FS)) {
$Self->{ConfigObject}->Set(
Key => 'WebUploadCacheModule',
Value => "Kernel::System::Web::UploadCache::$Module",
);
$Self->{UploadCacheObject} = Kernel::System::Web::UploadCache->new(%{$Self});
my $FormID = $Self->{UploadCacheObject}->FormIDCreate();
$Self->True(
$FormID,
"#$Module - FormIDCreate()",
);
# file checks
foreach my $File (qw(xls txt doc png pdf)) {
my $Content = '';
open(IN, "< ".$Self->{ConfigObject}->Get('Home')."/scripts/test/sample/WebUploadCache-Test1.$File") || die $!;
binmode(IN);
while (<IN>) {
$Content .= $_;
}
close(IN);
$Self->{EncodeObject}->EncodeOutput(\$Content);
my $MD5 = md5_hex($Content);
my $Add = $Self->{UploadCacheObject}->FormIDAddFile(
FormID => $FormID,
Filename => 'UploadCache Test1äöüß.'.$File,
Content => $Content,
ContentType => 'text/html',
);
$Self->True(
$Add || '',
"#$Module - FormIDAddFile() - .".$File,
);
my @Data = $Self->{UploadCacheObject}->FormIDGetAllFilesData(
FormID => $FormID,
);
if (@Data) {
my %File = %{$Data[$#Data]};
$Self->Is(
$File{Filename},
"UploadCache Test1äöüß.$File",
"#$Module - FormIDGetAllFilesData() - Filename .".$File,
);
$Self->True(
$File{Content} eq $Content,
"#$Module - FormIDGetAllFilesData() - Content .".$File,
);
$Self->{EncodeObject}->EncodeOutput(\$File{Content});
my $MD5New = md5_hex($File{Content});
$Self->Is(
$MD5New || '',
$MD5 || '',
"#$Module - md5 check",
);
}
my $Delete = $Self->{UploadCacheObject}->FormIDRemoveFile(
FormID => $FormID,
FileID => 1,
);
$Self->True(
$Delete || '',
"#$Module - FormIDRemoveFile() - .".$File,
);
}
my $Remove = $Self->{UploadCacheObject}->FormIDRemove(FormID => $FormID);
$Self->True(
$Remove,
"#$Module - FormIDRemove()",
);
}
1;
|
