summaryrefslogtreecommitdiffstats
path: root/debian/perl-framework/t/apache/pr35292.t
blob: 9a6243ef20815eaddf37ec06fd3cbe11ac17e938 (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
use strict;
use warnings FATAL => 'all';

use Apache::Test;
use Apache::TestUtil;
use Apache::TestRequest;

$SIG{PIPE} = 'IGNORE';

plan tests => 3, need_min_apache_version('2.1.8');

my $sock = Apache::TestRequest::vhost_socket('default');
ok $sock;

Apache::TestRequest::socket_trace($sock);

$sock->print("POST /apache/limits/ HTTP/1.1\r\n");
$sock->print("Host: localhost\r\n");
$sock->print("Content-Length: 1048576\r\n");
$sock->print("\r\n");

foreach (1..128) {
    $sock->print('x'x8192) if $sock->connected;
}

# Before the PR 35292 fix, the socket would already have been reset by
# this point and most clients will have stopped sending and gone away.

ok $sock->connected;

my $line = Apache::TestRequest::getline($sock) || '';

ok t_cmp($line, qr{^HTTP/1\.. 413}, "read response-line");