debian/perl-framework/t/http11/clength.t


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