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"); | |
} |