1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
use strict;
use warnings FATAL => 'all';
use Apache::TestUtil;
use Apache::Test;
use Apache::TestRequest;
my $location = "/TestApache__discard_rbody";
my $content = "Y" x 100000; # more than one bucket
plan tests => 3;
for my $test (qw(none partial all)) {
my $received = POST_BODY "$location?$test", content => $content;
ok t_cmp($received, $test, "data consumption: $test");
}
|
