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
|
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestUtil;
use Apache::TestConfig;
use Apache::TestRequest qw(UPLOAD_BODY);
plan tests => 7, need_lwp;
my $location = "/apreq_upload_test";
my %files = (
'1b' => 1,
'1k' => 1024,
'10k' => 10240,
'63k' => 64512,
'64k' => 65536,
'65k' => 66560,
'128k' => 131072,
);
my $server_root = Apache::Test::config()->{vars}->{serverroot};
my $dir = "$server_root/c-modules/apreq_upload_test";
foreach my $file (sort { $files{$a} <=> $files{$b} } keys %files) {
my $size = $files{$file};
my $result = UPLOAD_BODY($location, filename => "$dir/$file");
ok t_cmp(
$result,
$size,
"UPLOAD a file size $size btyes"
);
}
|
