# HG changeset patch
# User Sergey Kandaurov <pluknet@nginx.com>
# Date 1496749246 -10800
# Node ID eb813f7e0bfac127770f30567bfc46b86157cf18
# Parent  a69de1aba1adecd1e6e335b8732c350a70dea951
Tests: adjusted HTTP2.pm to send SETTINGS params in a given order.

diff --git a/lib/Test/Nginx/HTTP2.pm b/lib/Test/Nginx/HTTP2.pm
--- a/lib/Test/Nginx/HTTP2.pm
+++ b/lib/Test/Nginx/HTTP2.pm
@@ -116,11 +116,11 @@ sub h2_window {
 }
 
 sub h2_settings {
-	my ($self, $ack, %extra) = @_;
+	my ($self, $ack, @pairs) = @_;
 
-	my $len = 6 * keys %extra;
+	my $len = 6 * @pairs / 2;
 	my $buf = pack_length($len) . pack "CCx4", 0x4, $ack ? 0x1 : 0x0;
-	$buf .= join '', map { pack "nN", $_, $extra{$_} } keys %extra;
+	$buf .= pack "nN", splice @pairs, 0, 2 while @pairs;
 	raw_write($self->{socket}, $buf);
 }