File: pr35292.t

package info (click to toggle)
apache2 2.4.66-5
  • links: PTS, VCS
  • area: main
  • in suites: forky
  • size: 59,500 kB
  • sloc: ansic: 212,331; python: 13,830; perl: 11,307; sh: 7,258; php: 1,320; javascript: 1,314; awk: 749; makefile: 715; lex: 374; yacc: 161; xml: 2
file content (33 lines) | stat: -rw-r--r-- 800 bytes parent folder | download | duplicates (7)
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");