2
use warnings FATAL => 'all';
6
use Apache::TestConfig;
7
use Apache::TestRequest qw(UPLOAD_BODY);
9
plan tests => 7, need_lwp;
11
my $location = "/apreq_upload_test";
23
my $server_root = Apache::Test::config()->{vars}->{serverroot};
24
my $dir = "$server_root/c-modules/apreq_upload_test";
26
foreach my $file (sort { $files{$a} <=> $files{$b} } keys %files) {
27
my $size = $files{$file};
29
my $result = UPLOAD_BODY($location, filename => "$dir/$file");
33
"UPLOAD a file size $size btyes"