nginx-tests: lib/Test/Nginx/HTTP2.pm annotate

annotate lib/Test/Nginx/HTTP2.pm @ 1982:fb25cbe9d4ec

Tests: explicit Valgrind support. Valgrind logging is done to a separate file, as it is not able to follow stderr redirection within nginx or append to a file without corrupting it. Further, Valgrind logging seems to interfere with error suppression in tests, and catches various startup errors and warnings, so the log is additionally filtered. Since startup under Valgrind can be really slow, timeout in waitforfile() was changed to 10 seconds. Prodded by Robert Mueller.

author	Maxim Dounin <mdounin@mdounin.ru>
date	Fri, 31 May 2024 06:23:00 +0300
parents	6d3a8f4eb9b2
children

rev	line source
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1 package Test::Nginx::HTTP2;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	2
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	3 # (C) Sergey Kandaurov
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	4 # (C) Nginx, Inc.
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	5
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	6 # Module for nginx HTTP/2 tests.
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	7
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	8 ###############################################################################
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	9
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	10 use warnings;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	11 use strict;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	12
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	13 use Test::More qw//;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	14 use IO::Select;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	15 use IO::Socket;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	16 use Socket qw/ CRLF /;
911 2668f30181eb Tests: HTTP/2 server frames logging. Sergey Kandaurov <pluknet@nginx.com> parents: 896 diff changeset	17 use Data::Dumper;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	18
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	19 use Test::Nginx;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	20
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	21 my %cframe = (
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	22 0 => { name => 'DATA', value => \&data },
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	23 1 => { name => 'HEADERS', value => \&headers },
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	24 # 2 => { name => 'PRIORITY', value => \&priority },
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	25 3 => { name => 'RST_STREAM', value => \&rst_stream },
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	26 4 => { name => 'SETTINGS', value => \&settings },
1274 0f0ad7acb314 Tests: basic HTTP/2 PUSH_PROMISE support. Sergey Kandaurov <pluknet@nginx.com> parents: 1218 diff changeset	27 5 => { name => 'PUSH_PROMISE', value => \&push_promise },
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	28 6 => { name => 'PING', value => \&ping },
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	29 7 => { name => 'GOAWAY', value => \&goaway },
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	30 8 => { name => 'WINDOW_UPDATE', value => \&window_update },
1089 eedb96f717ff Tests: reset headers context when parsing HEADERS frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1051 diff changeset	31 9 => { name => 'CONTINUATION', value => \&continuation },
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	32 );
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	33
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	34 sub new {
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	35 my $class = shift;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	36 my ($port, %extra) = @_;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	37
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	38 my $s = $extra{socket} \|\| new_socket($port, %extra);
1298 84a661563eae Tests: allow to set empty HTTP/2 connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 1278 diff changeset	39 my $preface = defined $extra{preface} ? $extra{preface}
84a661563eae Tests: allow to set empty HTTP/2 connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 1278 diff changeset	40 : 'PRI * HTTP/2.0' . CRLF . CRLF . 'SM' . CRLF . CRLF;
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	41
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	42 my $self = bless {
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	43 socket => $s, last_stream => -1,
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	44 dynamic_encode => [ static_table() ],
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	45 dynamic_decode => [ static_table() ],
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	46 static_table_size => scalar @{[static_table()]},
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	47 iws => 65535, conn_window => 65535, streams => {}
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	48 }, $class;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	49
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	50 if ($extra{proxy}) {
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	51 $self->raw_write($extra{proxy});
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	52 }
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	53
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	54 # preface
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	55
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	56 $self->raw_write($preface);
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	57
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	58 return $self if $extra{pure};
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	59
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	60 # update windows, if any
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	61
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	62 my $frames = $self->read(all => [
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	63 { type => 'WINDOW_UPDATE' },
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	64 { type => 'SETTINGS'}
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	65 ]);
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	66
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	67 # 6.5.3. Settings Synchronization
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	68
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	69 if (grep { $_->{type} eq "SETTINGS" && $_->{flags} == 0 } @$frames) {
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	70 $self->h2_settings(1);
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	71 }
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	72
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	73 return $self;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	74 }
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	75
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	76 sub h2_ping {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	77 my ($self, $payload) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	78
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	79 $self->raw_write(pack("x2C2x5a8", 8, 0x6, $payload));
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	80 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	81
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	82 sub h2_rst {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	83 my ($self, $stream, $error) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	84
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	85 $self->raw_write(pack("x2C2xNN", 4, 0x3, $stream, $error));
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	86 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	87
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	88 sub h2_goaway {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	89 my ($self, $stream, $lstream, $err, $debug, %extra) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	90 $debug = '' unless defined $debug;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	91 my $len = defined $extra{len} ? $extra{len} : 8 + length($debug);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	92 my $buf = pack("x2C2xN3A*", $len, 0x7, $stream, $lstream, $err, $debug);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	93
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	94 my @bufs = map {
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	95 $self->raw_write(substr $buf, 0, $_, "");
945 d73bef563aea Tests: speed up HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 943 diff changeset	96 select undef, undef, undef, 0.2;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	97 } @{$extra{split}};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	98
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	99 $self->raw_write($buf);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	100 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	101
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	102 sub h2_priority {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	103 my ($self, $w, $stream, $dep, %extra) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	104
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	105 $stream = 0 unless defined $stream;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	106 $dep = 0 unless defined $dep;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	107 $dep \|= $extra{excl} << 31 if exists $extra{excl};
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	108 $self->raw_write(pack("x2C2xNNC", 5, 0x2, $stream, $dep, $w));
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	109 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	110
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	111 sub h2_window {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	112 my ($self, $win, $stream) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	113
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	114 $stream = 0 unless defined $stream;
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	115 $self->raw_write(pack("x2C2xNN", 4, 0x8, $stream, $win));
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	116 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	117
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	118 sub h2_settings {
1181 eb813f7e0bfa Tests: adjusted HTTP2.pm to send SETTINGS params in a given order. Sergey Kandaurov <pluknet@nginx.com> parents: 1089 diff changeset	119 my ($self, $ack, @pairs) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	120
1181 eb813f7e0bfa Tests: adjusted HTTP2.pm to send SETTINGS params in a given order. Sergey Kandaurov <pluknet@nginx.com> parents: 1089 diff changeset	121 my $len = 6 * @pairs / 2;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	122 my $buf = pack_length($len) . pack "CCx4", 0x4, $ack ? 0x1 : 0x0;
1181 eb813f7e0bfa Tests: adjusted HTTP2.pm to send SETTINGS params in a given order. Sergey Kandaurov <pluknet@nginx.com> parents: 1089 diff changeset	123 $buf .= pack "nN", splice @pairs, 0, 2 while @pairs;
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	124 $self->raw_write($buf);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	125 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	126
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	127 sub h2_unknown {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	128 my ($self, $payload) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	129
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	130 my $buf = pack_length(length($payload)) . pack("Cx5a*", 0xa, $payload);
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	131 $self->raw_write($buf);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	132 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	133
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	134 sub h2_continue {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	135 my ($ctx, $stream, $uri) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	136
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	137 $uri->{h2_continue} = 1;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	138 return new_stream($ctx, $uri, $stream);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	139 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	140
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	141 sub h2_body {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	142 my ($self, $body, $extra) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	143 $extra = {} unless defined $extra;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	144
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	145 my $len = length $body;
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	146 my $sid = $self->{last_stream};
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	147
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	148 if ($len > $self->{conn_window} \|\| $len > $self->{streams}{$sid}) {
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	149 $self->read(all => [{ type => 'WINDOW_UPDATE' }]);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	150 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	151
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	152 if ($len > $self->{conn_window} \|\| $len > $self->{streams}{$sid}) {
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	153 return;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	154 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	155
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	156 $self->{conn_window} -= $len;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	157 $self->{streams}{$sid} -= $len;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	158
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	159 my $buf;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	160
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	161 my $split = ref $extra->{body_split} && $extra->{body_split} \|\| [];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	162 for (@$split) {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	163 $buf .= pack_body($self, substr($body, 0, $_, ""), 0x0, $extra);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	164 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	165
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	166 $buf .= pack_body($self, $body, 0x1, $extra) if defined $body;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	167
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	168 $split = ref $extra->{split} && $extra->{split} \|\| [];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	169 for (@$split) {
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	170 $self->raw_write(substr($buf, 0, $_, ""));
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	171 return if $extra->{abort};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	172 select undef, undef, undef, ($extra->{split_delay} \|\| 0.2);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	173 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	174
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	175 $self->raw_write($buf);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	176 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	177
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	178 sub new_stream {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	179 my ($self, $uri, $stream) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	180 my ($input, $buf);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	181 my ($d, $status);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	182
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	183 $self->{headers} = '';
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	184
943 0d4536093b39 Tests: changed default HTTP2 host header to localhost. Andrey Zelenkov <zelenkov@nginx.com> parents: 937 diff changeset	185 my $host = $uri->{host} \|\| 'localhost';
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	186 my $method = $uri->{method} \|\| 'GET';
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	187 my $scheme = $uri->{scheme} \|\| 'http';
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	188 my $path = $uri->{path} \|\| '/';
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	189 my $headers = $uri->{headers};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	190 my $body = $uri->{body};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	191 my $prio = $uri->{prio};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	192 my $dep = $uri->{dep};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	193
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	194 my $pad = defined $uri->{padding} ? $uri->{padding} : 0;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	195 my $padlen = defined $uri->{padding} ? 1 : 0;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	196
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	197 my $type = defined $uri->{h2_continue} ? 0x9 : 0x1;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	198 my $flags = defined $uri->{continuation} ? 0x0 : 0x4;
1299 28e5f1fa80e1 Tests: do not set undefined flag 0x1 for HTTP/2 CONTINUATION frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1298 diff changeset	199 $flags \|= 0x1 unless defined $body \|\| defined $uri->{body_more}
28e5f1fa80e1 Tests: do not set undefined flag 0x1 for HTTP/2 CONTINUATION frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1298 diff changeset	200 \|\| defined $uri->{h2_continue};
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	201 $flags \|= 0x8 if $padlen;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	202 $flags \|= 0x20 if defined $dep \|\| defined $prio;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	203
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	204 if ($stream) {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	205 $self->{last_stream} = $stream;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	206 } else {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	207 $self->{last_stream} += 2;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	208 }
1300 940e04c58a79 Tests: fixed initial window size for HTTP/2 streams with given ID. Sergey Kandaurov <pluknet@nginx.com> parents: 1299 diff changeset	209 $self->{streams}{$self->{last_stream}} = $self->{iws};
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	210
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	211 $buf = pack("xxx"); # Length stub
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	212 $buf .= pack("CC", $type, $flags); # END_HEADERS
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	213 $buf .= pack("N", $self->{last_stream}); # Stream-ID
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	214
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	215 $dep = 0 if defined $prio and not defined $dep;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	216 $prio = 16 if defined $dep and not defined $prio;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	217
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	218 unless ($headers) {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	219 $input = hpack($self, ":method", $method);
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	220 $input .= hpack($self, ":scheme", $scheme);
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	221 $input .= hpack($self, ":path", $path);
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	222 $input .= hpack($self, ":authority", $host);
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	223 $input .= hpack($self, "content-length", length($body))
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	224 if $body;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	225
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	226 } else {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	227 $input = join '', map {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	228 hpack($self, $_->{name}, $_->{value},
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	229 mode => $_->{mode}, huff => $_->{huff})
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	230 } @$headers if $headers;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	231 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	232
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	233 $input = pack("B*", '001' . ipack(5, $uri->{table_size})) . $input
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	234 if defined $uri->{table_size};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	235
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	236 my $split = ref $uri->{continuation} && $uri->{continuation} \|\| [];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	237 my @input = map { substr $input, 0, $_, "" } @$split;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	238 push @input, $input;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	239
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	240 # set length, attach headers, padding, priority
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	241
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	242 my $hlen = length($input[0]) + $pad + $padlen;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	243 $hlen += 5 if $flags & 0x20;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	244 $buf \|= pack_length($hlen);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	245
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	246 $buf .= pack 'C', $pad if $padlen; # Pad Length?
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	247 $buf .= pack 'NC', $dep, $prio if $flags & 0x20;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	248 $buf .= $input[0];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	249 $buf .= (pack 'C', 0) x $pad if $padlen; # Padding
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	250
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	251 shift @input;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	252
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	253 while (@input) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	254 $input = shift @input;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	255 $flags = @input ? 0x0 : 0x4;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	256 $buf .= pack_length(length($input));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	257 $buf .= pack("CC", 0x9, $flags);
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	258 $buf .= pack("N", $self->{last_stream});
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	259 $buf .= $input;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	260 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	261
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	262 $split = ref $uri->{body_split} && $uri->{body_split} \|\| [];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	263 for (@$split) {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	264 $buf .= pack_body($self, substr($body, 0, $_, ""), 0x0, $uri);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	265 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	266
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	267 $buf .= pack_body($self, $body, 0x1, $uri) if defined $body;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	268
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	269 $split = ref $uri->{split} && $uri->{split} \|\| [];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	270 for (@$split) {
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	271 $self->raw_write(substr($buf, 0, $_, ""));
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	272 goto done if $uri->{abort};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	273 select undef, undef, undef, ($uri->{split_delay} \|\| 0.2);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	274 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	275
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	276 $self->raw_write($buf);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	277 done:
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	278 return $self->{last_stream};
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	279 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	280
948 4dc302d8e04f Tests: changed HTTP2 package to act as a class. Sergey Kandaurov <pluknet@nginx.com> parents: 945 diff changeset	281 sub read {
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	282 my ($self, %extra) = @_;
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	283 my (@got);
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	284 my $s = $self->{socket};
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	285 my $buf = '';
945 d73bef563aea Tests: speed up HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 943 diff changeset	286 my $wait = $extra{wait};
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	287
911 2668f30181eb Tests: HTTP/2 server frames logging. Sergey Kandaurov <pluknet@nginx.com> parents: 896 diff changeset	288 local $Data::Dumper::Terse = 1;
2668f30181eb Tests: HTTP/2 server frames logging. Sergey Kandaurov <pluknet@nginx.com> parents: 896 diff changeset	289
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	290 while (1) {
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	291 $buf = $self->raw_read($buf, 9, $wait);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	292 last if length $buf < 9;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	293
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	294 my $length = unpack_length($buf);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	295 my $type = unpack('x3C', $buf);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	296 my $flags = unpack('x4C', $buf);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	297
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	298 my $stream = unpack "x5 B32", $buf;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	299 substr($stream, 0, 1) = 0;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	300 $stream = unpack("N", pack("B32", $stream));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	301
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	302 $buf = $self->raw_read($buf, $length + 9, $wait);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	303 last if length($buf) < $length + 9;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	304
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	305 $buf = substr($buf, 9);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	306
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	307 my $frame = $cframe{$type}{value}($self, $buf, $length, $flags,
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	308 $stream);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	309 $frame->{length} = $length;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	310 $frame->{type} = $cframe{$type}{name};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	311 $frame->{flags} = $flags;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	312 $frame->{sid} = $stream;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	313 push @got, $frame;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	314
911 2668f30181eb Tests: HTTP/2 server frames logging. Sergey Kandaurov <pluknet@nginx.com> parents: 896 diff changeset	315 Test::Nginx::log_core('\|\|', $_) for split "\n", Dumper $frame;
2668f30181eb Tests: HTTP/2 server frames logging. Sergey Kandaurov <pluknet@nginx.com> parents: 896 diff changeset	316
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	317 $buf = substr($buf, $length);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	318
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	319 last unless $extra{all} && test_fin($got[-1], $extra{all});
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	320 };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	321 return \@got;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	322 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	323
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	324 sub raw_read {
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	325 my ($self, $buf, $len, $timo) = @_;
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	326 $timo = 8 unless $timo;
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	327 my $got = '';
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	328 my $s = $self->{socket};
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	329
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	330 while (length($buf) < $len && IO::Select->new($s)->can_read($timo)) {
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	331 $s->sysread($got, 16384) or last;
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	332 log_in($got);
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	333 $buf .= $got;
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	334 }
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	335 return $buf;
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	336 }
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	337
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	338 sub raw_write {
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	339 my ($self, $message) = @_;
1623 3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	340
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	341 if ($self->{chaining}) {
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	342 return add_chain($self, $message);
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	343 }
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	344
1622 5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	345 my $s = $self->{socket};
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	346
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	347 local $SIG{PIPE} = 'IGNORE';
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	348
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	349 while (IO::Select->new($s)->can_write(0.4)) {
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	350 log_out($message);
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	351 my $n = $s->syswrite($message);
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	352 last unless $n;
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	353 $message = substr($message, $n);
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	354 last unless length $message;
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	355 }
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	356 }
5b3d33b5556c Tests: converted HTTP2 raw_read() and raw_write() to class methods. Sergey Kandaurov <pluknet@nginx.com> parents: 1421 diff changeset	357
1623 3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	358 sub start_chain {
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	359 my ($self) = @_;
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	360
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	361 $self->{chaining} = 1;
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	362 }
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	363
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	364 sub add_chain {
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	365 my ($self, $buf) = @_;
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	366
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	367 if ($self->{chained_buf}) {
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	368 $self->{chained_buf} .= $buf;
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	369 } else {
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	370 $self->{chained_buf} = $buf;
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	371 }
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	372 }
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	373
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	374 sub send_chain {
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	375 my ($self) = @_;
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	376
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	377 undef $self->{chaining};
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	378 $self->raw_write($self->{chained_buf}) if $self->{chained_buf};
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	379 undef $self->{chained_buf};
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	380 }
3fe652bc9dae Tests: introduced HTTP/2 frames buffering option in HTTP2 package. Sergey Kandaurov <pluknet@nginx.com> parents: 1622 diff changeset	381
949 c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	382 ###############################################################################
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	383
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	384 sub pack_body {
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	385 my ($ctx, $body, $flags, $extra) = @_;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	386
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	387 my $pad = defined $extra->{body_padding} ? $extra->{body_padding} : 0;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	388 my $padlen = defined $extra->{body_padding} ? 1 : 0;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	389
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	390 my $buf = pack_length(length($body) + $pad + $padlen);
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	391 $flags \|= 0x8 if $padlen;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	392 vec($flags, 0, 1) = 0 if $extra->{body_more};
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	393 $buf .= pack 'CC', 0x0, $flags; # DATA, END_STREAM
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	394 $buf .= pack 'N', $ctx->{last_stream};
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	395 $buf .= pack 'C', $pad if $padlen; # DATA Pad Length?
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	396 $buf .= $body;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	397 $buf .= pack "x$pad" if $padlen; # DATA Padding
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	398 return $buf;
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	399 }
c657aaffdaa8 Tests: style. Sergey Kandaurov <pluknet@nginx.com> parents: 948 diff changeset	400
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	401 sub test_fin {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	402 my ($frame, $all) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	403 my @test = @{$all};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	404
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	405 # wait for the specified DATA length
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	406
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	407 for (@test) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	408 if ($_->{length} && $frame->{type} eq 'DATA') {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	409 # check also for StreamID if needed
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	410
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	411 if (!$_->{sid} \|\| $_->{sid} == $frame->{sid}) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	412 $_->{length} -= $frame->{length};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	413 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	414 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	415 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	416 @test = grep { !(defined $_->{length} && $_->{length} == 0) } @test;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	417
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	418 # wait for the fin flag
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	419
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	420 @test = grep { !(defined $_->{fin}
1301 d6382e557fc0 Tests: allow to wait reading unspecified HTTP/2 stream ID. Sergey Kandaurov <pluknet@nginx.com> parents: 1300 diff changeset	421 && (!defined $_->{sid} \|\| $_->{sid} == $frame->{sid})
d6382e557fc0 Tests: allow to wait reading unspecified HTTP/2 stream ID. Sergey Kandaurov <pluknet@nginx.com> parents: 1300 diff changeset	422 && $_->{fin} & $frame->{flags})
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	423 } @test if defined $frame->{flags};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	424
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	425 # wait for the specified frame
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	426
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	427 @test = grep { !($_->{type} && $_->{type} eq $frame->{type}) } @test;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	428
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	429 @{$all} = @test;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	430 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	431
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	432 sub headers {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	433 my ($ctx, $buf, $len, $flags) = @_;
1089 eedb96f717ff Tests: reset headers context when parsing HEADERS frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1051 diff changeset	434 $ctx->{headers} = substr($buf, 0, $len);
eedb96f717ff Tests: reset headers context when parsing HEADERS frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1051 diff changeset	435 return unless $flags & 0x4;
eedb96f717ff Tests: reset headers context when parsing HEADERS frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1051 diff changeset	436 { headers => hunpack($ctx, $buf, $len) };
eedb96f717ff Tests: reset headers context when parsing HEADERS frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1051 diff changeset	437 }
eedb96f717ff Tests: reset headers context when parsing HEADERS frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1051 diff changeset	438
eedb96f717ff Tests: reset headers context when parsing HEADERS frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1051 diff changeset	439 sub continuation {
eedb96f717ff Tests: reset headers context when parsing HEADERS frame. Sergey Kandaurov <pluknet@nginx.com> parents: 1051 diff changeset	440 my ($ctx, $buf, $len, $flags) = @_;
1733 e306bd77321d Tests: handling of HTTP/2 PUSH_PROMISE frames with CONTINUATION. Sergey Kandaurov <pluknet@nginx.com> parents: 1623 diff changeset	441 my %payload;
e306bd77321d Tests: handling of HTTP/2 PUSH_PROMISE frames with CONTINUATION. Sergey Kandaurov <pluknet@nginx.com> parents: 1623 diff changeset	442
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	443 $ctx->{headers} .= substr($buf, 0, $len);
1733 e306bd77321d Tests: handling of HTTP/2 PUSH_PROMISE frames with CONTINUATION. Sergey Kandaurov <pluknet@nginx.com> parents: 1623 diff changeset	444 $payload{promised} = $ctx->{promised} if $ctx->{promised};
e306bd77321d Tests: handling of HTTP/2 PUSH_PROMISE frames with CONTINUATION. Sergey Kandaurov <pluknet@nginx.com> parents: 1623 diff changeset	445 return \%payload unless $flags & 0x4;
e306bd77321d Tests: handling of HTTP/2 PUSH_PROMISE frames with CONTINUATION. Sergey Kandaurov <pluknet@nginx.com> parents: 1623 diff changeset	446
e306bd77321d Tests: handling of HTTP/2 PUSH_PROMISE frames with CONTINUATION. Sergey Kandaurov <pluknet@nginx.com> parents: 1623 diff changeset	447 $ctx->{promised} = undef;
e306bd77321d Tests: handling of HTTP/2 PUSH_PROMISE frames with CONTINUATION. Sergey Kandaurov <pluknet@nginx.com> parents: 1623 diff changeset	448 return { %payload, headers => hunpack($ctx, $ctx->{headers},
e306bd77321d Tests: handling of HTTP/2 PUSH_PROMISE frames with CONTINUATION. Sergey Kandaurov <pluknet@nginx.com> parents: 1623 diff changeset	449 length($ctx->{headers})) };
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	450 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	451
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	452 sub data {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	453 my ($ctx, $buf, $len) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	454 return { data => substr($buf, 0, $len) };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	455 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	456
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	457 sub settings {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	458 my ($ctx, $buf, $len) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	459 my %payload;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	460 my $skip = 0;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	461
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	462 for (1 .. $len / 6) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	463 my $id = hex unpack "\@$skip n", $buf; $skip += 2;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	464 $payload{$id} = unpack "\@$skip N", $buf; $skip += 4;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	465
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	466 $ctx->{iws} = $payload{$id} if $id == 4;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	467 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	468 return \%payload;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	469 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	470
1274 0f0ad7acb314 Tests: basic HTTP/2 PUSH_PROMISE support. Sergey Kandaurov <pluknet@nginx.com> parents: 1218 diff changeset	471 sub push_promise {
0f0ad7acb314 Tests: basic HTTP/2 PUSH_PROMISE support. Sergey Kandaurov <pluknet@nginx.com> parents: 1218 diff changeset	472 my ($ctx, $buf, $len, $flags) = @_;
1733 e306bd77321d Tests: handling of HTTP/2 PUSH_PROMISE frames with CONTINUATION. Sergey Kandaurov <pluknet@nginx.com> parents: 1623 diff changeset	473 my %payload;
1278 6d065c9a3b1f Tests: fixed HTTP/2 PUSH_PROMISE frame parsing. Sergey Kandaurov <pluknet@nginx.com> parents: 1274 diff changeset	474 $len -= 4;
1274 0f0ad7acb314 Tests: basic HTTP/2 PUSH_PROMISE support. Sergey Kandaurov <pluknet@nginx.com> parents: 1218 diff changeset	475
1733 e306bd77321d Tests: handling of HTTP/2 PUSH_PROMISE frames with CONTINUATION. Sergey Kandaurov <pluknet@nginx.com> parents: 1623 diff changeset	476 $ctx->{promised} = $payload{promised} = unpack("N", $buf);
e306bd77321d Tests: handling of HTTP/2 PUSH_PROMISE frames with CONTINUATION. Sergey Kandaurov <pluknet@nginx.com> parents: 1623 diff changeset	477 $ctx->{headers} = substr($buf, 4, $len);
e306bd77321d Tests: handling of HTTP/2 PUSH_PROMISE frames with CONTINUATION. Sergey Kandaurov <pluknet@nginx.com> parents: 1623 diff changeset	478 return \%payload unless $flags & 0x4;
e306bd77321d Tests: handling of HTTP/2 PUSH_PROMISE frames with CONTINUATION. Sergey Kandaurov <pluknet@nginx.com> parents: 1623 diff changeset	479 return { %payload, headers => hunpack($ctx, $ctx->{headers}, $len) };
1274 0f0ad7acb314 Tests: basic HTTP/2 PUSH_PROMISE support. Sergey Kandaurov <pluknet@nginx.com> parents: 1218 diff changeset	480 }
0f0ad7acb314 Tests: basic HTTP/2 PUSH_PROMISE support. Sergey Kandaurov <pluknet@nginx.com> parents: 1218 diff changeset	481
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	482 sub ping {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	483 my ($ctx, $buf, $len) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	484 return { value => unpack "A$len", $buf };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	485 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	486
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	487 sub rst_stream {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	488 my ($ctx, $buf, $len) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	489 return { code => unpack "N", $buf };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	490 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	491
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	492 sub goaway {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	493 my ($ctx, $buf, $len) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	494 my %payload;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	495
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	496 my $stream = unpack "B32", $buf;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	497 substr($stream, 0, 1) = 0;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	498 $stream = unpack("N", pack("B32", $stream));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	499 $payload{last_sid} = $stream;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	500
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	501 $len -= 4;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	502 $payload{code} = unpack "x4 N", $buf;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	503 $payload{debug} = unpack "x8 A$len", $buf;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	504 return \%payload;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	505 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	506
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	507 sub window_update {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	508 my ($ctx, $buf, $len, $flags, $sid) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	509 my $value = unpack "B32", $buf;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	510 substr($value, 0, 1) = 0;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	511 $value = unpack("N", pack("B32", $value));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	512
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	513 unless ($sid) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	514 $ctx->{conn_window} += $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	515
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	516 } else {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	517 $ctx->{streams}{$sid} = $ctx->{iws}
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	518 unless defined $ctx->{streams}{$sid};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	519 $ctx->{streams}{$sid} += $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	520 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	521
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	522 return { wdelta => $value };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	523 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	524
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	525 sub pack_length {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	526 pack 'c3', unpack 'xc3', pack 'N', $_[0];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	527 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	528
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	529 sub unpack_length {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	530 unpack 'N', pack 'xc3', unpack 'c3', $_[0];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	531 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	532
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	533 sub new_socket {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	534 my ($port, %extra) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	535 my $npn = $extra{'npn'};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	536 my $alpn = $extra{'alpn'};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	537 my $s;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	538
969 1edb092149e2 Tests: simplified parallel tests. Maxim Dounin <mdounin@mdounin.ru> parents: 951 diff changeset	539 $port \|\|= port(8080);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	540
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	541 eval {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	542 local $SIG{ALRM} = sub { die "timeout\n" };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	543 local $SIG{PIPE} = sub { die "sigpipe\n" };
1421 4e48bf51714f Tests: aligned various generic read timeouts to http_end(). Sergey Kandaurov <pluknet@nginx.com> parents: 1406 diff changeset	544 alarm(8);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	545 $s = IO::Socket::INET->new(
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	546 Proto => 'tcp',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	547 PeerAddr => "127.0.0.1:$port",
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	548 );
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	549 require IO::Socket::SSL if $extra{'SSL'};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	550 IO::Socket::SSL->start_SSL($s,
1970 6d3a8f4eb9b2 Tests: relaxed SSL version used in testing. Maxim Dounin <mdounin@mdounin.ru> parents: 1733 diff changeset	551 SSL_version => 'SSLv23',
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	552 SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE(),
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	553 SSL_npn_protocols => $npn ? [ $npn ] : undef,
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	554 SSL_alpn_protocols => $alpn ? [ $alpn ] : undef,
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	555 SSL_error_trap => sub { die $_[1] }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	556 ) if $extra{'SSL'};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	557 alarm(0);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	558 };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	559 alarm(0);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	560
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	561 if ($@) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	562 log_in("died: $@");
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	563 return undef;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	564 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	565
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	566 return $s;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	567 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	568
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	569 sub static_table {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	570 [ '', '' ], # unused
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	571 [ ':authority', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	572 [ ':method', 'GET' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	573 [ ':method', 'POST' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	574 [ ':path', '/' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	575 [ ':path', '/index.html' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	576 [ ':scheme', 'http' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	577 [ ':scheme', 'https' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	578 [ ':status', '200' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	579 [ ':status', '204' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	580 [ ':status', '206' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	581 [ ':status', '304' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	582 [ ':status', '400' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	583 [ ':status', '404' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	584 [ ':status', '500' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	585 [ 'accept-charset', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	586 [ 'accept-encoding', 'gzip, deflate' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	587 [ 'accept-language', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	588 [ 'accept-ranges', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	589 [ 'accept', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	590 [ 'access-control-allow-origin',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	591 '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	592 [ 'age', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	593 [ 'allow', '' ],
937 b1fa8e0cc27b Tests: whitespaces fix. Andrey Zelenkov <zelenkov@nginx.com> parents: 932 diff changeset	594 [ 'authorization', '' ],
b1fa8e0cc27b Tests: whitespaces fix. Andrey Zelenkov <zelenkov@nginx.com> parents: 932 diff changeset	595 [ 'cache-control', '' ],
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	596 [ 'content-disposition',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	597 '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	598 [ 'content-encoding', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	599 [ 'content-language', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	600 [ 'content-length', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	601 [ 'content-location', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	602 [ 'content-range', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	603 [ 'content-type', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	604 [ 'cookie', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	605 [ 'date', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	606 [ 'etag', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	607 [ 'expect', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	608 [ 'expires', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	609 [ 'from', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	610 [ 'host', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	611 [ 'if-match', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	612 [ 'if-modified-since', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	613 [ 'if-none-match', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	614 [ 'if-range', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	615 [ 'if-unmodified-since',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	616 '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	617 [ 'last-modified', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	618 [ 'link', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	619 [ 'location', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	620 [ 'max-forwards', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	621 [ 'proxy-authenticate', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	622 [ 'proxy-authorization',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	623 '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	624 [ 'range', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	625 [ 'referer', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	626 [ 'refresh', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	627 [ 'retry-after', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	628 [ 'server', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	629 [ 'set-cookie', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	630 [ 'strict-transport-security',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	631 '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	632 [ 'transfer-encoding', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	633 [ 'user-agent', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	634 [ 'vary', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	635 [ 'via', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	636 [ 'www-authenticate', '' ],
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	637 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	638
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	639 # RFC 7541, 5.1. Integer Representation
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	640
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	641 sub ipack {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	642 my ($base, $d) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	643 return sprintf("%.b", $base, $d) if $d < 2*$base - 1;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	644
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	645 my $o = sprintf("%${base}b", 2**$base - 1);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	646 $d -= 2**$base - 1;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	647 while ($d >= 128) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	648 $o .= sprintf("%8b", $d % 128 + 128);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	649 $d /= 128;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	650 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	651 $o .= sprintf("%08b", $d);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	652 return $o;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	653 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	654
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	655 sub iunpack {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	656 my ($base, $b, $s) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	657
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	658 my $len = unpack("\@$s B8", $b); $s++;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	659 my $prefix = substr($len, 0, 8 - $base);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	660 $len = '0' x (8 - $base) . substr($len, 8 - $base);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	661 $len = unpack("C", pack("B8", $len));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	662
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	663 return ($len, $s, $prefix) if $len < 2**$base - 1;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	664
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	665 my $m = 0;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	666 my $d;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	667
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	668 do {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	669 $d = unpack("\@$s C", $b); $s++;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	670 $len += ($d & 127) * 2**$m;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	671 $m += $base;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	672 } while (($d & 128) == 128);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	673
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	674 return ($len, $s, $prefix);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	675 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	676
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	677 sub hpack {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	678 my ($ctx, $name, $value, %extra) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	679 my $table = $ctx->{dynamic_encode};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	680 my $mode = defined $extra{mode} ? $extra{mode} : 1;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	681 my $huff = $extra{huff};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	682
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	683 my ($index, $buf) = 0;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	684
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	685 # 6.1. Indexed Header Field Representation
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	686
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	687 if ($mode == 0) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	688 ++$index until $index > $#$table
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	689 or $table->[$index][0] eq $name
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	690 and $table->[$index][1] eq $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	691 $buf = pack('B*', '1' . ipack(7, $index));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	692 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	693
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	694 # 6.2.1. Literal Header Field with Incremental Indexing
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	695
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	696 if ($mode == 1) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	697 splice @$table, $ctx->{static_table_size}, 0, [ $name, $value ];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	698
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	699 ++$index until $index > $#$table
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	700 or $table->[$index][0] eq $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	701 my $value = $huff ? huff($value) : $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	702
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	703 $buf = pack('B*', '01' . ipack(6, $index)
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	704 . ($huff ? '1' : '0') . ipack(7, length($value)));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	705 $buf .= $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	706 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	707
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	708 # 6.2.1. Literal Header Field with Incremental Indexing -- New Name
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	709
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	710 if ($mode == 2) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	711 splice @$table, $ctx->{static_table_size}, 0, [ $name, $value ];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	712
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	713 my $name = $huff ? huff($name) : $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	714 my $value = $huff ? huff($value) : $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	715 my $hbit = ($huff ? '1' : '0');
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	716
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	717 $buf = pack('B*', '01000000');
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	718 $buf .= pack('B*', $hbit . ipack(7, length($name)));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	719 $buf .= $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	720 $buf .= pack('B*', $hbit . ipack(7, length($value)));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	721 $buf .= $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	722 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	723
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	724 # 6.2.2. Literal Header Field without Indexing
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	725
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	726 if ($mode == 3) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	727 ++$index until $index > $#$table
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	728 or $table->[$index][0] eq $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	729 my $value = $huff ? huff($value) : $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	730
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	731 $buf = pack('B*', '0000' . ipack(4, $index)
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	732 . ($huff ? '1' : '0') . ipack(7, length($value)));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	733 $buf .= $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	734 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	735
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	736 # 6.2.2. Literal Header Field without Indexing -- New Name
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	737
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	738 if ($mode == 4) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	739 my $name = $huff ? huff($name) : $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	740 my $value = $huff ? huff($value) : $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	741 my $hbit = ($huff ? '1' : '0');
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	742
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	743 $buf = pack('B*', '00000000');
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	744 $buf .= pack('B*', $hbit . ipack(7, length($name)));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	745 $buf .= $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	746 $buf .= pack('B*', $hbit . ipack(7, length($value)));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	747 $buf .= $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	748 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	749
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	750 # 6.2.3. Literal Header Field Never Indexed
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	751
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	752 if ($mode == 5) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	753 ++$index until $index > $#$table
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	754 or $table->[$index][0] eq $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	755 my $value = $huff ? huff($value) : $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	756
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	757 $buf = pack('B*', '0001' . ipack(4, $index)
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	758 . ($huff ? '1' : '0') . ipack(7, length($value)));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	759 $buf .= $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	760 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	761
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	762 # 6.2.3. Literal Header Field Never Indexed -- New Name
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	763
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	764 if ($mode == 6) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	765 my $name = $huff ? huff($name) : $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	766 my $value = $huff ? huff($value) : $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	767 my $hbit = ($huff ? '1' : '0');
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	768
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	769 $buf = pack('B*', '00010000');
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	770 $buf .= pack('B*', $hbit . ipack(7, length($name)));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	771 $buf .= $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	772 $buf .= pack('B*', $hbit . ipack(7, length($value)));
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	773 $buf .= $value;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	774 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	775
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	776 return $buf;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	777 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	778
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	779 sub hunpack {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	780 my ($ctx, $data, $length) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	781 my $table = $ctx->{dynamic_decode};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	782 my %headers;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	783 my $skip = 0;
1218 24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	784 my ($index, $name, $value, $size);
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	785
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	786 my $field = sub {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	787 my ($b) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	788 my ($len, $s, $huff) = iunpack(7, @_);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	789
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	790 my $field = substr($b, $s, $len);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	791 $field = $huff ? dehuff($field) : $field;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	792 $s += $len;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	793 return ($field, $s);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	794 };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	795
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	796 my $add = sub {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	797 my ($h, $n, $v) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	798 return $h->{$n} = $v unless exists $h->{$n};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	799 $h->{$n} = [ $h->{$n} ] unless ref $h->{$n};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	800 push @{$h->{$n}}, $v;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	801 };
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	802
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	803 while ($skip < $length) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	804 my $ib = unpack("\@$skip B8", $data);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	805
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	806 if (substr($ib, 0, 1) eq '1') {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	807 ($index, $skip) = iunpack(7, $data, $skip);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	808 $add->(\%headers,
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	809 $table->[$index][0], $table->[$index][1]);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	810 next;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	811 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	812
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	813 if (substr($ib, 0, 2) eq '01') {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	814 ($index, $skip) = iunpack(6, $data, $skip);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	815 $name = $table->[$index][0];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	816
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	817 ($name, $skip) = $field->($data, $skip) unless $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	818 ($value, $skip) = $field->($data, $skip);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	819
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	820 splice @$table,
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	821 $ctx->{static_table_size}, 0, [ $name, $value ];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	822 $add->(\%headers, $name, $value);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	823 next;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	824 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	825
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	826 if (substr($ib, 0, 4) eq '0000') {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	827 ($index, $skip) = iunpack(4, $data, $skip);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	828 $name = $table->[$index][0];
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	829
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	830 ($name, $skip) = $field->($data, $skip) unless $name;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	831 ($value, $skip) = $field->($data, $skip);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	832
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	833 $add->(\%headers, $name, $value);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	834 next;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	835 }
1218 24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	836
24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	837 if (substr($ib, 0, 3) eq '001') {
24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	838 ($size, $skip) = iunpack(5, $data, $skip);
24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	839
24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	840 # TODO: handle dynamic table size update
24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	841
24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	842 next;
24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	843 }
24e175025ad8 Tests: minimal handling of HTTP/2 dynamic table size update. Maxim Dounin <mdounin@mdounin.ru> parents: 1181 diff changeset	844
876 a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	845 last;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	846 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	847
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	848 return \%headers;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	849 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	850
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	851 sub huff_code { scalar {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	852 pack('C', 0) => '1111111111000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	853 pack('C', 1) => '11111111111111111011000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	854 pack('C', 2) => '1111111111111111111111100010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	855 pack('C', 3) => '1111111111111111111111100011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	856 pack('C', 4) => '1111111111111111111111100100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	857 pack('C', 5) => '1111111111111111111111100101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	858 pack('C', 6) => '1111111111111111111111100110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	859 pack('C', 7) => '1111111111111111111111100111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	860 pack('C', 8) => '1111111111111111111111101000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	861 pack('C', 9) => '111111111111111111101010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	862 pack('C', 10) => '111111111111111111111111111100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	863 pack('C', 11) => '1111111111111111111111101001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	864 pack('C', 12) => '1111111111111111111111101010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	865 pack('C', 13) => '111111111111111111111111111101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	866 pack('C', 14) => '1111111111111111111111101011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	867 pack('C', 15) => '1111111111111111111111101100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	868 pack('C', 16) => '1111111111111111111111101101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	869 pack('C', 17) => '1111111111111111111111101110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	870 pack('C', 18) => '1111111111111111111111101111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	871 pack('C', 19) => '1111111111111111111111110000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	872 pack('C', 20) => '1111111111111111111111110001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	873 pack('C', 21) => '1111111111111111111111110010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	874 pack('C', 22) => '111111111111111111111111111110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	875 pack('C', 23) => '1111111111111111111111110011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	876 pack('C', 24) => '1111111111111111111111110100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	877 pack('C', 25) => '1111111111111111111111110101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	878 pack('C', 26) => '1111111111111111111111110110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	879 pack('C', 27) => '1111111111111111111111110111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	880 pack('C', 28) => '1111111111111111111111111000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	881 pack('C', 29) => '1111111111111111111111111001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	882 pack('C', 30) => '1111111111111111111111111010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	883 pack('C', 31) => '1111111111111111111111111011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	884 pack('C', 32) => '010100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	885 pack('C', 33) => '1111111000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	886 pack('C', 34) => '1111111001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	887 pack('C', 35) => '111111111010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	888 pack('C', 36) => '1111111111001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	889 pack('C', 37) => '010101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	890 pack('C', 38) => '11111000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	891 pack('C', 39) => '11111111010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	892 pack('C', 40) => '1111111010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	893 pack('C', 41) => '1111111011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	894 pack('C', 42) => '11111001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	895 pack('C', 43) => '11111111011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	896 pack('C', 44) => '11111010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	897 pack('C', 45) => '010110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	898 pack('C', 46) => '010111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	899 pack('C', 47) => '011000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	900 pack('C', 48) => '00000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	901 pack('C', 49) => '00001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	902 pack('C', 50) => '00010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	903 pack('C', 51) => '011001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	904 pack('C', 52) => '011010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	905 pack('C', 53) => '011011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	906 pack('C', 54) => '011100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	907 pack('C', 55) => '011101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	908 pack('C', 56) => '011110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	909 pack('C', 57) => '011111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	910 pack('C', 58) => '1011100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	911 pack('C', 59) => '11111011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	912 pack('C', 60) => '111111111111100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	913 pack('C', 61) => '100000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	914 pack('C', 62) => '111111111011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	915 pack('C', 63) => '1111111100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	916 pack('C', 64) => '1111111111010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	917 pack('C', 65) => '100001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	918 pack('C', 66) => '1011101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	919 pack('C', 67) => '1011110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	920 pack('C', 68) => '1011111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	921 pack('C', 69) => '1100000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	922 pack('C', 70) => '1100001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	923 pack('C', 71) => '1100010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	924 pack('C', 72) => '1100011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	925 pack('C', 73) => '1100100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	926 pack('C', 74) => '1100101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	927 pack('C', 75) => '1100110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	928 pack('C', 76) => '1100111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	929 pack('C', 77) => '1101000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	930 pack('C', 78) => '1101001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	931 pack('C', 79) => '1101010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	932 pack('C', 80) => '1101011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	933 pack('C', 81) => '1101100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	934 pack('C', 82) => '1101101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	935 pack('C', 83) => '1101110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	936 pack('C', 84) => '1101111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	937 pack('C', 85) => '1110000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	938 pack('C', 86) => '1110001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	939 pack('C', 87) => '1110010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	940 pack('C', 88) => '11111100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	941 pack('C', 89) => '1110011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	942 pack('C', 90) => '11111101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	943 pack('C', 91) => '1111111111011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	944 pack('C', 92) => '1111111111111110000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	945 pack('C', 93) => '1111111111100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	946 pack('C', 94) => '11111111111100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	947 pack('C', 95) => '100010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	948 pack('C', 96) => '111111111111101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	949 pack('C', 97) => '00011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	950 pack('C', 98) => '100011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	951 pack('C', 99) => '00100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	952 pack('C', 100) => '100100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	953 pack('C', 101) => '00101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	954 pack('C', 102) => '100101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	955 pack('C', 103) => '100110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	956 pack('C', 104) => '100111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	957 pack('C', 105) => '00110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	958 pack('C', 106) => '1110100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	959 pack('C', 107) => '1110101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	960 pack('C', 108) => '101000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	961 pack('C', 109) => '101001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	962 pack('C', 110) => '101010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	963 pack('C', 111) => '00111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	964 pack('C', 112) => '101011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	965 pack('C', 113) => '1110110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	966 pack('C', 114) => '101100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	967 pack('C', 115) => '01000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	968 pack('C', 116) => '01001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	969 pack('C', 117) => '101101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	970 pack('C', 118) => '1110111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	971 pack('C', 119) => '1111000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	972 pack('C', 120) => '1111001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	973 pack('C', 121) => '1111010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	974 pack('C', 122) => '1111011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	975 pack('C', 123) => '111111111111110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	976 pack('C', 124) => '11111111100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	977 pack('C', 125) => '11111111111101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	978 pack('C', 126) => '1111111111101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	979 pack('C', 127) => '1111111111111111111111111100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	980 pack('C', 128) => '11111111111111100110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	981 pack('C', 129) => '1111111111111111010010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	982 pack('C', 130) => '11111111111111100111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	983 pack('C', 131) => '11111111111111101000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	984 pack('C', 132) => '1111111111111111010011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	985 pack('C', 133) => '1111111111111111010100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	986 pack('C', 134) => '1111111111111111010101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	987 pack('C', 135) => '11111111111111111011001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	988 pack('C', 136) => '1111111111111111010110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	989 pack('C', 137) => '11111111111111111011010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	990 pack('C', 138) => '11111111111111111011011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	991 pack('C', 139) => '11111111111111111011100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	992 pack('C', 140) => '11111111111111111011101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	993 pack('C', 141) => '11111111111111111011110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	994 pack('C', 142) => '111111111111111111101011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	995 pack('C', 143) => '11111111111111111011111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	996 pack('C', 144) => '111111111111111111101100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	997 pack('C', 145) => '111111111111111111101101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	998 pack('C', 146) => '1111111111111111010111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	999 pack('C', 147) => '11111111111111111100000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1000 pack('C', 148) => '111111111111111111101110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1001 pack('C', 149) => '11111111111111111100001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1002 pack('C', 150) => '11111111111111111100010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1003 pack('C', 151) => '11111111111111111100011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1004 pack('C', 152) => '11111111111111111100100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1005 pack('C', 153) => '111111111111111011100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1006 pack('C', 154) => '1111111111111111011000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1007 pack('C', 155) => '11111111111111111100101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1008 pack('C', 156) => '1111111111111111011001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1009 pack('C', 157) => '11111111111111111100110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1010 pack('C', 158) => '11111111111111111100111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1011 pack('C', 159) => '111111111111111111101111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1012 pack('C', 160) => '1111111111111111011010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1013 pack('C', 161) => '111111111111111011101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1014 pack('C', 162) => '11111111111111101001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1015 pack('C', 163) => '1111111111111111011011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1016 pack('C', 164) => '1111111111111111011100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1017 pack('C', 165) => '11111111111111111101000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1018 pack('C', 166) => '11111111111111111101001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1019 pack('C', 167) => '111111111111111011110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1020 pack('C', 168) => '11111111111111111101010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1021 pack('C', 169) => '1111111111111111011101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1022 pack('C', 170) => '1111111111111111011110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1023 pack('C', 171) => '111111111111111111110000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1024 pack('C', 172) => '111111111111111011111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1025 pack('C', 173) => '1111111111111111011111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1026 pack('C', 174) => '11111111111111111101011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1027 pack('C', 175) => '11111111111111111101100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1028 pack('C', 176) => '111111111111111100000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1029 pack('C', 177) => '111111111111111100001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1030 pack('C', 178) => '1111111111111111100000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1031 pack('C', 179) => '111111111111111100010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1032 pack('C', 180) => '11111111111111111101101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1033 pack('C', 181) => '1111111111111111100001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1034 pack('C', 182) => '11111111111111111101110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1035 pack('C', 183) => '11111111111111111101111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1036 pack('C', 184) => '11111111111111101010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1037 pack('C', 185) => '1111111111111111100010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1038 pack('C', 186) => '1111111111111111100011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1039 pack('C', 187) => '1111111111111111100100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1040 pack('C', 188) => '11111111111111111110000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1041 pack('C', 189) => '1111111111111111100101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1042 pack('C', 190) => '1111111111111111100110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1043 pack('C', 191) => '11111111111111111110001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1044 pack('C', 192) => '11111111111111111111100000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1045 pack('C', 193) => '11111111111111111111100001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1046 pack('C', 194) => '11111111111111101011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1047 pack('C', 195) => '1111111111111110001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1048 pack('C', 196) => '1111111111111111100111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1049 pack('C', 197) => '11111111111111111110010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1050 pack('C', 198) => '1111111111111111101000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1051 pack('C', 199) => '1111111111111111111101100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1052 pack('C', 200) => '11111111111111111111100010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1053 pack('C', 201) => '11111111111111111111100011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1054 pack('C', 202) => '11111111111111111111100100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1055 pack('C', 203) => '111111111111111111111011110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1056 pack('C', 204) => '111111111111111111111011111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1057 pack('C', 205) => '11111111111111111111100101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1058 pack('C', 206) => '111111111111111111110001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1059 pack('C', 207) => '1111111111111111111101101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1060 pack('C', 208) => '1111111111111110010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1061 pack('C', 209) => '111111111111111100011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1062 pack('C', 210) => '11111111111111111111100110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1063 pack('C', 211) => '111111111111111111111100000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1064 pack('C', 212) => '111111111111111111111100001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1065 pack('C', 213) => '11111111111111111111100111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1066 pack('C', 214) => '111111111111111111111100010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1067 pack('C', 215) => '111111111111111111110010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1068 pack('C', 216) => '111111111111111100100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1069 pack('C', 217) => '111111111111111100101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1070 pack('C', 218) => '11111111111111111111101000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1071 pack('C', 219) => '11111111111111111111101001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1072 pack('C', 220) => '1111111111111111111111111101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1073 pack('C', 221) => '111111111111111111111100011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1074 pack('C', 222) => '111111111111111111111100100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1075 pack('C', 223) => '111111111111111111111100101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1076 pack('C', 224) => '11111111111111101100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1077 pack('C', 225) => '111111111111111111110011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1078 pack('C', 226) => '11111111111111101101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1079 pack('C', 227) => '111111111111111100110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1080 pack('C', 228) => '1111111111111111101001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1081 pack('C', 229) => '111111111111111100111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1082 pack('C', 230) => '111111111111111101000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1083 pack('C', 231) => '11111111111111111110011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1084 pack('C', 232) => '1111111111111111101010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1085 pack('C', 233) => '1111111111111111101011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1086 pack('C', 234) => '1111111111111111111101110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1087 pack('C', 235) => '1111111111111111111101111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1088 pack('C', 236) => '111111111111111111110100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1089 pack('C', 237) => '111111111111111111110101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1090 pack('C', 238) => '11111111111111111111101010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1091 pack('C', 239) => '11111111111111111110100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1092 pack('C', 240) => '11111111111111111111101011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1093 pack('C', 241) => '111111111111111111111100110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1094 pack('C', 242) => '11111111111111111111101100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1095 pack('C', 243) => '11111111111111111111101101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1096 pack('C', 244) => '111111111111111111111100111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1097 pack('C', 245) => '111111111111111111111101000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1098 pack('C', 246) => '111111111111111111111101001',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1099 pack('C', 247) => '111111111111111111111101010',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1100 pack('C', 248) => '111111111111111111111101011',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1101 pack('C', 249) => '1111111111111111111111111110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1102 pack('C', 250) => '111111111111111111111101100',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1103 pack('C', 251) => '111111111111111111111101101',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1104 pack('C', 252) => '111111111111111111111101110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1105 pack('C', 253) => '111111111111111111111101111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1106 pack('C', 254) => '111111111111111111111110000',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1107 pack('C', 255) => '11111111111111111111101110',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1108 '_eos' => '111111111111111111111111111111',
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1109 }};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1110
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1111 sub huff {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1112 my ($string) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1113 my $code = &huff_code;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1114
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1115 my $ret = join '', map { $code->{$_} } (split //, $string);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1116 my $len = length($ret) + (8 - length($ret) % 8);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1117 $ret .= $code->{_eos};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1118
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1119 return pack("B$len", $ret);
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1120 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1121
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1122 sub dehuff {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1123 my ($string) = @_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1124 my $code = &huff_code;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1125 my %decode = reverse %$code;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1126
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1127 my $ret = ''; my $c = '';
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1128 for (split //, unpack('B*', $string)) {
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1129 $c .= $_;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1130 next unless exists $decode{$c};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1131 last if $decode{$c} eq '_eos';
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1132
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1133 $ret .= $decode{$c};
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1134 $c = '';
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1135 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1136
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1137 return $ret;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1138 }
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1139
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1140 ###############################################################################
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1141
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1142 1;
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1143
a6abbfed42c0 Tests: split HTTP/2 tests, HTTP2 package introduced. Andrey Zelenkov <zelenkov@nginx.com> parents: diff changeset	1144 ###############################################################################

Mercurial > hg > nginx-tests

annotate lib/Test/Nginx/HTTP2.pm @ 1982:fb25cbe9d4ec