24 lines
515 B
Perl
24 lines
515 B
Perl
use strict;
|
|
use warnings FATAL => 'all';
|
|
|
|
use Apache::Test;
|
|
use Apache::TestUtil;
|
|
use Apache::TestRequest ();
|
|
use Apache::TestCommon ();
|
|
|
|
Apache::TestCommon::run_files_test(\&verify);
|
|
|
|
sub verify {
|
|
my($ua, $url, $file) = @_;
|
|
|
|
my $flen = -s $file;
|
|
my $received = 0;
|
|
|
|
$ua->do_request(GET => $url,
|
|
sub {
|
|
my($chunk, $res) = @_;
|
|
$received += length $chunk;
|
|
});
|
|
|
|
ok t_cmp($received, $flen, "download of $url");
|
|
}
|