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
|
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestUtil;
use Apache::TestRequest;
my %tests = (
"/foobar.html" => "foobar",
# flushheap0 inserts a single FLUSH bucket after the content, before EOS
"/apache/chunked/flushheap0.html" => "bbbbbbbbbb",
);
plan tests => 3*scalar keys %tests, need 'bucketeer';
Apache::TestRequest::user_agent(keep_alive => 1);
foreach my $path (sort keys %tests) {
my $expected = $tests{$path};
my $r = GET($path);
ok t_cmp($r->code, 200, "successful response");
ok t_cmp($r->header("Content-Length"), length $expected);
ok t_cmp($r->content, $expected);
}
|
