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

annotate lib/Test/Nginx/HTTP2.pm @ 1622:5b3d33b5556c

Tests: converted HTTP2 raw_read() and raw_write() to class methods.

author	Sergey Kandaurov <pluknet@nginx.com>
date	Tue, 24 Nov 2020 01:23:00 +0000
parents	4e48bf51714f
children	3fe652bc9dae

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

Mercurial > hg > nginx-tests

annotate lib/Test/Nginx/HTTP2.pm @ 1622:5b3d33b5556c