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
|
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestRequest;
use Apache::TestUtil qw(t_write_file);
# test multi-byterange-requests with overlaps (merges)
my $url = "/apache/chunked/byteranges.txt";
my $file = Apache::Test::vars('serverroot') . "/htdocs$url";
my $content = "";
$content .= sprintf("%04d", $_) for (1 .. 2000);
t_write_file($file, $content);
my $clen = length($content);
my $medrange = "";
my $longrange = "";
my $i;
for (0 .. 50) {
$longrange .= "0-1,3-4,0-1,3-4,";
if ($_ % 2) {
$medrange .= "0-1,3-4,0-1,3-4,";
}
}
my @test_cases = (
{ url => "/maxranges/default/byteranges.txt" , h => "0-100", status => "206"},
{ url => "/maxranges/default/byteranges.txt" , h => $medrange, status => "206"},
{ url => "/maxranges/default/byteranges.txt" , h => $longrange, status => "200"},
{ url => "/maxranges/default-explicit/byteranges.txt" , h => "0-100", status => "206"},
{ url => "/maxranges/default-explicit/byteranges.txt" , h => $medrange, status => "206"},
{ url => "/maxranges/default-explicit/byteranges.txt" , h => $longrange, status => "200"},
{ url => "/maxranges/none/byteranges.txt" , h => "0-100", status => "200"},
{ url => "/maxranges/none/byteranges.txt" , h => "$medrange", status => "200"},
{ url => "/maxranges/none/byteranges.txt" , h => "$longrange", status => "200"},
{ url => "/maxranges/1/merge/none/byteranges.txt" , h => "0-100", status => "200"},
{ url => "/maxranges/1/merge/none/byteranges.txt" , h => "$medrange", status => "200"},
{ url => "/maxranges/1/merge/none/byteranges.txt" , h => "$longrange", status => "200"},
{ url => "/maxranges/1/byteranges.txt" , h => "0-100", status => "206"},
{ url => "/maxranges/1/byteranges.txt" , h => "0-100,200-300", status => "200"},
{ url => "/maxranges/2/byteranges.txt" , h => "0-100,200-300", status => "206"},
{ url => "/maxranges/2/byteranges.txt" , h => "0-100,200-300,400-500", status => "200"},
{ url => "/maxranges/unlimited/byteranges.txt" , h => "0-100", status => "206"},
{ url => "/maxranges/unlimited/byteranges.txt" , h => "$medrange", status => "206"},
{ url => "/maxranges/unlimited/byteranges.txt" , h => "$longrange", status => "206"},
);
plan tests => scalar(@test_cases), need need_lwp, need_min_apache_version('2.3.15') || need_min_apache_version('2.2.21'),
need_module('mod_alias');
foreach my $test (@test_cases) {
my $result = GET $test->{"url"}, "Range" => "bytes=" . $test->{"h"} ;
my $boundary;
my $ctype = $result->header("Content-Type");
if ($test->{"status"} ne $result->code()) {
print "Wrong status code: " . $result->code() ."\n";
ok(0);
next;
}
ok (1);
}
|
