Mercurial > hg > nginx-tests

comparison h2_max_headers.t @ 1979:2d58bb10ff5d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: max_client_headers test.
author Maxim Dounin <mdounin@mdounin.ru>
date Fri, 24 May 2024 00:36:12 +0300
parents
children
comparison
equal deleted inserted replaced
1978:79753dd514e6 1979:2d58bb10ff5d
1 #!/usr/bin/perl
2
3 # (C) Maxim Dounin
4
5 # Tests for max_headers directive, HTTP/2.
6
7 ###############################################################################
8
9 use warnings;
10 use strict;
11
12 use Test::More;
13 use Socket qw/ CRLF /;
14
15 BEGIN { use FindBin; chdir($FindBin::Bin); }
16
17 use lib 'lib';
18 use Test::Nginx;
19 use Test::Nginx::HTTP2;
20
21 ###############################################################################
22
23 select STDERR; $| = 1;
24 select STDOUT; $| = 1;
25
26 my $t = Test::Nginx->new()->has(qw/http http_v2 rewrite/);
27
28 $t->write_file_expand('nginx.conf', <<'EOF');
29
30 %%TEST_GLOBALS%%
31
32 daemon off;
33
34 events {
35 }
36
37 http {
38 %%TEST_GLOBALS_HTTP%%
39
40 server {
41 listen 127.0.0.1:8080;
42 server_name localhost;
43
44 http2 on;
45 max_headers 5;
46
47 location / {
48 return 204;
49 }
50 }
51 }
52
53 EOF
54
55 $t->try_run('no max_headers')->plan(3);
56
57 ###############################################################################
58
59 like(get('/'), qr/ 204/, 'two headers');
60 like(get('/', ('Foo: bar') x 3), qr/ 204/, 'five headers');
61 like(get('/', ('Foo: bar') x 4), qr/ 400/, 'six headers rejected');
62
63 ###############################################################################
64
65 sub get {
66 my ($url, @headers) = @_;
67
68 my $s = Test::Nginx::HTTP2->new();
69 my $sid = $s->new_stream({
70 headers => [
71 { name => ':method', value => 'GET' },
72 { name => ':scheme', value => 'http' },
73 { name => ':path', value => $url },
74 { name => ':authority', value => 'localhost' },
75 { name => 'foo', value => 'bar', mode => 2 },
76 { name => 'foo', value => 'bar', mode => 2 },
77 map {
78 my ($n, $v) = split /:/;
79 { name => lc $n, value => $v, mode => 2 };
80 } @headers
81 ]
82 });
83
84 my $frames = $s->read(all => [{ sid => $sid, fin => 1 }]);
85
86 my ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
87
88 return join("\n", map { "$_: " . $frame->{headers}->{$_}; }
89 keys %{$frame->{headers}});
90 }
91
92 ###############################################################################