Mercurial > hg > nginx-tests

comparison lib/Test/Nginx/HTTP2.pm @ 1181:eb813f7e0bfa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: adjusted HTTP2.pm to send SETTINGS params in a given order.
author Sergey Kandaurov <pluknet@nginx.com>
date Tue, 06 Jun 2017 14:40:46 +0300
parents eedb96f717ff
children 24e175025ad8
comparison
equal deleted inserted replaced
1180:a69de1aba1ad 1181:eb813f7e0bfa
114 $stream = 0 unless defined $stream; 114 $stream = 0 unless defined $stream;
115 raw_write($self->{socket}, pack("x2C2xNN", 4, 0x8, $stream, $win)); 115 raw_write($self->{socket}, pack("x2C2xNN", 4, 0x8, $stream, $win));
116 } 116 }
117 117
118 sub h2_settings { 118 sub h2_settings {
119 my ($self, $ack, %extra) = @_; 119 my ($self, $ack, @pairs) = @_;
120 120
121 my $len = 6 * keys %extra; 121 my $len = 6 * @pairs / 2;
122 my $buf = pack_length($len) . pack "CCx4", 0x4, $ack ? 0x1 : 0x0; 122 my $buf = pack_length($len) . pack "CCx4", 0x4, $ack ? 0x1 : 0x0;
123 $buf .= join '', map { pack "nN", $_, $extra{$_} } keys %extra; 123 $buf .= pack "nN", splice @pairs, 0, 2 while @pairs;
124 raw_write($self->{socket}, $buf); 124 raw_write($self->{socket}, $buf);
125 } 125 }
126 126
127 sub h2_unknown { 127 sub h2_unknown {
128 my ($self, $payload) = @_; 128 my ($self, $payload) = @_;