blob: 56932f113cd9ed402862943d40b4d2b6c95ac504 (
plain)
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
|
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestRequest ();
use Apache::TestCommon ();
# test merging of byte ranges
if (Apache::Test::need_min_apache_version("2.3.15")) {
Apache::TestCommon::run_files_test(\&verify, 1);
}
else {
plan tests => 0;
}
sub verify {
my($ua, $url, $file) = @_;
my $debug = $Apache::TestRequest::DebugLWP;
$url = Apache::TestRequest::resolve_url($url);
my $req = HTTP::Request->new(GET => $url);
my $total = 0;
my $chunk_size = 8192;
my $wanted = -s $file;
while ($total < $wanted) {
my $end = $total + $chunk_size;
if ($end > $wanted) {
$end = $wanted;
}
my $t1 = $total+1;
my $t10 = $total+5;
my $e1 = $end-1;
my $e20 = $end-10;
#my $range = "bytes=$total-$end";
my $range = "bytes=$t10-$end,$total-$e1,$t10-$e20,$total-$e1";
if ($end - $total < 15) {
# make sure to not send invalid ranges with start > end
$range = "bytes=$total-$end";
}
$req->header(Range => $range);
print $req->as_string if $debug;
my $res = $ua->request($req);
my $content_range = $res->header('Content-Range') || 'NONE';
$res->content("") if $debug and $debug == 1;
print $res->as_string if $debug;
if ($content_range =~ m:^bytes\s+(\d+)-(\d+)/(\d+):) {
my($start, $end, $total_bytes) = ($1, $2, $3);
$total += ($end - $start) + 1;
}
elsif ($total == 0 && $end == $wanted &&
$content_range eq 'NONE' && $res->code == 200) {
$total += $wanted;
}
else {
print "Range: $range\n";
print "Content-Range: $content_range\n";
last;
}
}
print "downloaded $total bytes, file is $wanted bytes\n";
ok $total == $wanted;
}
|
