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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
use strict;
use warnings;
use File::Temp qw(tempfile);
use Test::More;
use t::Util;
my $server = spawn_h2o(<< 'EOT');
hosts:
default:
paths:
/:
file.dir: examples/doc_root
limit-request-body: 6
EOT
subtest 'http1' => sub {
plan skip_all => 'curl not found'
unless prog_exists('curl');
my $doit = sub {
my ($proto, $port, $chunked) = @_;
my $url = "$proto://127.0.0.1:$port/";
my $extra = "";
if ($proto eq 'https') {
$extra .= " --insecure";
$extra .= " --http1.1"
if curl_supports_http2();
}
$extra .= " --header 'Transfer-Encoding: chunked'"
if $chunked;
subtest "$proto, @{[ $chunked ? 'chunked' : 'content-length' ]}" => sub {
my $resp = `curl --silent --dump-header /dev/stderr --data hello $extra $url 2>&1 > /dev/null`;
like $resp, qr{^HTTP/[^ ]+ 405\s}s, 'shorter than the limit';
$resp = `curl --silent --dump-header /dev/stderr --data helloworld $extra $url 2>&1 > /dev/null`;
like $resp, qr{^HTTP/[^ ]+ 413\s}s, 'longer than the limit';
};
};
$doit->("http", $server->{port});
$doit->("http", $server->{port}, 1);
$doit->("https", $server->{tls_port});
$doit->("https", $server->{tls_port}, 1);
};
subtest 'http2' => sub {
plan skip_all => 'nghttp not found'
unless prog_exists('nghttp');
my $doit = sub {
my ($proto, $opts, $port) = @_;
my $url = "$proto://127.0.0.1:$port/";
{
my ($tempfh, $tempfn) = tempfile(UNLINK => 1);
print $tempfh 'hello';
close $tempfh;
my $resp = `nghttp $opts -d $tempfn -s $url 2>&1`;
like $resp, qr/(^|\s)405(\s|$)/im, 'shorter than the limit';
}
{
my ($tempfh, $tempfn) = tempfile(UNLINK => 1);
print $tempfh 'helloworld';
close $tempfh;
my $resp = `nghttp $opts -v -d $tempfn -s $url 2>&1`;
like $resp, qr/recv RST_STREAM[^\n]*\n[^\n]*error_code=REFUSED_STREAM/is, 'longer than the limit';
}
};
subtest "http (direct)" => sub {
$doit->("http", "", $server->{port});
};
subtest "http (upgrade)" => sub {
$doit->("http", "-u", $server->{port});
};
subtest "https" => sub {
$doit->("https", "", $server->{tls_port});
};
};
done_testing();
|
