nginx-tests: h2.t annotate

annotate h2.t @ 742:fc21544a8640

Tests: isolated simple HTTP/2 HPACK tests.

author	Sergey Kandaurov <pluknet@nginx.com>
date	Mon, 19 Oct 2015 17:04:42 +0300
parents	a2e7f5ff3aa8
children	9cd16dea1392

rev	line source
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1 #!/usr/bin/perl
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3 # (C) Sergey Kandaurov
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	4 # (C) Nginx, Inc.
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	5
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	6 # Tests for HTTP/2 protocol [RFC7540].
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	7
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	8 ###############################################################################
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	9
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	10 use warnings;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	11 use strict;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	12
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	13 use Test::More;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	14
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	15 use IO::Select;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	16 use Socket qw/ CRLF /;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	17
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	18 BEGIN { use FindBin; chdir($FindBin::Bin); }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	19
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	20 use lib 'lib';
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	21 use Test::Nginx;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	22
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	23 ###############################################################################
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	24
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	25 select STDERR; $\| = 1;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	26 select STDOUT; $\| = 1;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	27
650 8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	28 eval { require IO::Socket::SSL; };
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	29 plan(skip_all => 'IO::Socket::SSL not installed') if $@;
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	30 eval { IO::Socket::SSL::SSL_VERIFY_NONE(); };
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	31 plan(skip_all => 'IO::Socket::SSL too old') if $@;
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	32
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	33 my $t = Test::Nginx->new()->has(qw/http http_ssl http_v2 proxy cache/)
650 8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	34 ->has(qw/limit_conn rewrite realip shmem/)
740 3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	35 ->has_daemon('openssl')->plan(228);
704 626bc3a0fdaa Tests: SPDY and HTTP/2 write handler tests. Sergey Kandaurov <pluknet@nginx.com> parents: 702 diff changeset	36
730 63c45a158cde Tests: adjusted todo_alerts() in h2.t and spdy.t. Sergey Kandaurov <pluknet@nginx.com> parents: 729 diff changeset	37 # Some systems have a bug in not treating zero writev iovcnt as EINVAL
63c45a158cde Tests: adjusted todo_alerts() in h2.t and spdy.t. Sergey Kandaurov <pluknet@nginx.com> parents: 729 diff changeset	38
63c45a158cde Tests: adjusted todo_alerts() in h2.t and spdy.t. Sergey Kandaurov <pluknet@nginx.com> parents: 729 diff changeset	39 $t->todo_alerts() if $^O eq 'darwin';
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	40
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	41 $t->write_file_expand('nginx.conf', <<'EOF');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	42
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	43 %%TEST_GLOBALS%%
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	44
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	45 daemon off;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	46
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	47 events {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	48 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	49
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	50 http {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	51 %%TEST_GLOBALS_HTTP%%
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	52
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	53 proxy_cache_path %%TESTDIR%%/cache keys_zone=NAME:1m;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	54 limit_conn_zone $binary_remote_addr zone=conn:1m;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	55
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	56 server {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	57 listen 127.0.0.1:8080 http2;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	58 listen 127.0.0.1:8081;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	59 listen 127.0.0.1:8082 proxy_protocol http2;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	60 listen 127.0.0.1:8084 http2 ssl;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	61 server_name localhost;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	62
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	63 ssl_certificate_key localhost.key;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	64 ssl_certificate localhost.crt;
696 beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	65 http2_max_field_size 128k;
698 f86c8314d205 Tests: one more HTTP/2 test for max frame size. Sergey Kandaurov <pluknet@nginx.com> parents: 697 diff changeset	66 http2_max_header_size 128k;
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	67
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	68 location / {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	69 add_header X-Header X-Foo;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	70 add_header X-Sent-Foo $http_x_foo;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	71 add_header X-Referer $http_referer;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	72 return 200 'body';
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	73 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	74 location /t {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	75 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	76 location /t3.html {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	77 limit_conn conn 1;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	78 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	79 location /gzip.html {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	80 gzip on;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	81 gzip_min_length 0;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	82 alias %%TESTDIR%%/t2.html;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	83 }
680 85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	84 location /frame_size {
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	85 http2_chunk_size 64k;
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	86 alias %%TESTDIR%%/t1.html;
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	87 output_buffers 2 1m;
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	88 }
696 beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	89 location /continuation {
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	90 add_header X-LongHeader $arg_h;
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	91 add_header X-LongHeader $arg_h;
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	92 add_header X-LongHeader $arg_h;
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	93 return 200 body;
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	94
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	95 location /continuation/204 {
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	96 return 204;
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	97 }
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	98 }
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	99 location /pp {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	100 set_real_ip_from 127.0.0.1/32;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	101 real_ip_header proxy_protocol;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	102 alias %%TESTDIR%%/t2.html;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	103 add_header X-PP $remote_addr;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	104 }
650 8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	105 location /h2 {
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	106 return 200 $http2;
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	107 }
716 e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	108 location /sp {
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	109 return 200 $server_protocol;
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	110 }
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	111 location /scheme {
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	112 return 200 $scheme;
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	113 }
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	114 location /https {
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	115 return 200 $https;
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	116 }
651 9f66f0029dca Tests: HTTP/2 tests for http2_chunk_size directive. Sergey Kandaurov <pluknet@nginx.com> parents: 650 diff changeset	117 location /chunk_size {
9f66f0029dca Tests: HTTP/2 tests for http2_chunk_size directive. Sergey Kandaurov <pluknet@nginx.com> parents: 650 diff changeset	118 http2_chunk_size 1;
9f66f0029dca Tests: HTTP/2 tests for http2_chunk_size directive. Sergey Kandaurov <pluknet@nginx.com> parents: 650 diff changeset	119 return 200 'body';
9f66f0029dca Tests: HTTP/2 tests for http2_chunk_size directive. Sergey Kandaurov <pluknet@nginx.com> parents: 650 diff changeset	120 }
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	121 location /redirect {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	122 error_page 405 /;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	123 return 405;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	124 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	125 location /return301 {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	126 return 301;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	127 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	128 location /return301_absolute {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	129 return 301 text;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	130 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	131 location /return301_relative {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	132 return 301 /;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	133 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	134 location /proxy/ {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	135 add_header X-UC-a $upstream_cookie_a;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	136 add_header X-UC-c $upstream_cookie_c;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	137 proxy_pass http://127.0.0.1:8083/;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	138 proxy_cache NAME;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	139 proxy_cache_valid 1m;
652 5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	140 proxy_set_header X-Cookie-a $cookie_a;
5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	141 proxy_set_header X-Cookie-c $cookie_c;
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	142 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	143 location /proxy2/ {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	144 add_header X-Body "$request_body";
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	145 proxy_pass http://127.0.0.1:8081/;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	146 proxy_cache NAME;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	147 proxy_cache_valid 1m;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	148 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	149 location /proxy_buffering_off {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	150 proxy_pass http://127.0.0.1:8081/;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	151 proxy_cache NAME;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	152 proxy_cache_valid 1m;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	153 proxy_buffering off;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	154 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	155 location /set-cookie {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	156 add_header Set-Cookie a=b;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	157 add_header Set-Cookie c=d;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	158 return 200;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	159 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	160 location /cookie {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	161 add_header X-Cookie $http_cookie;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	162 add_header X-Cookie-a $cookie_a;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	163 add_header X-Cookie-c $cookie_c;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	164 return 200;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	165 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	166 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	167
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	168 server {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	169 listen 127.0.0.1:8085 http2;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	170 server_name localhost;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	171 return 200 first;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	172 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	173
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	174 server {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	175 listen 127.0.0.1:8085 http2;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	176 server_name localhost2;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	177 return 200 second;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	178 }
654 a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	179
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	180 server {
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	181 listen 127.0.0.1:8086 http2;
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	182 server_name localhost;
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	183
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	184 http2_max_concurrent_streams 1;
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	185 }
684 96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	186
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	187 server {
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	188 listen 127.0.0.1:8087 http2;
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	189 server_name localhost;
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	190
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	191 http2_max_field_size 32;
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	192 }
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	193
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	194 server {
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	195 listen 127.0.0.1:8088 http2;
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	196 server_name localhost;
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	197
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	198 http2_max_header_size 64;
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	199 }
714 ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	200
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	201 server {
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	202 listen 127.0.0.1:8089 http2;
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	203 server_name localhost;
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	204
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	205 http2_recv_timeout 1s;
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	206 }
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	207
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	208 server {
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	209 listen 127.0.0.1:8090 http2;
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	210 server_name localhost;
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	211
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	212 http2_idle_timeout 1s;
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	213 }
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	214 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	215
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	216 EOF
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	217
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	218 $t->write_file('openssl.conf', <<EOF);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	219 [ req ]
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	220 default_bits = 2048
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	221 encrypt_key = no
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	222 distinguished_name = req_distinguished_name
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	223 [ req_distinguished_name ]
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	224 EOF
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	225
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	226 my $d = $t->testdir();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	227
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	228 foreach my $name ('localhost') {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	229 system('openssl req -x509 -new '
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	230 . "-config '$d/openssl.conf' -subj '/CN=$name/' "
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	231 . "-out '$d/$name.crt' -keyout '$d/$name.key' "
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	232 . ">>$d/openssl.out 2>&1") == 0
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	233 or die "Can't create certificate for $name: $!\n";
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	234 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	235
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	236 $t->run_daemon(\&http_daemon);
741 a2e7f5ff3aa8 Tests: hid unwanted output with old OpenSSL. Sergey Kandaurov <pluknet@nginx.com> parents: 740 diff changeset	237
a2e7f5ff3aa8 Tests: hid unwanted output with old OpenSSL. Sergey Kandaurov <pluknet@nginx.com> parents: 740 diff changeset	238 open OLDERR, ">&", \*STDERR; close STDERR;
a2e7f5ff3aa8 Tests: hid unwanted output with old OpenSSL. Sergey Kandaurov <pluknet@nginx.com> parents: 740 diff changeset	239 $t->run();
a2e7f5ff3aa8 Tests: hid unwanted output with old OpenSSL. Sergey Kandaurov <pluknet@nginx.com> parents: 740 diff changeset	240 open STDERR, ">&", \*OLDERR;
a2e7f5ff3aa8 Tests: hid unwanted output with old OpenSSL. Sergey Kandaurov <pluknet@nginx.com> parents: 740 diff changeset	241
a2e7f5ff3aa8 Tests: hid unwanted output with old OpenSSL. Sergey Kandaurov <pluknet@nginx.com> parents: 740 diff changeset	242 $t->waitforsocket('127.0.0.1:8083');
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	243
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	244 # file size is slightly beyond initial window size: 2**16 + 80 bytes
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	245
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	246 $t->write_file('t1.html',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	247 join('', map { sprintf "X%04dXXX", $_ } (1 .. 8202)));
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	248 $t->write_file('tbig.html',
723 bc4d6e2bd031 Tests: adjusted HTTP/2 test to trigger write handler in v2 module. Sergey Kandaurov <pluknet@nginx.com> parents: 722 diff changeset	249 join('', map { sprintf "XX%06dXX", $_ } (1 .. 500000)));
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	250
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	251 $t->write_file('t2.html', 'SEE-THIS');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	252 $t->write_file('t3.html', 'SEE-THIS');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	253
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	254 my %cframe = (
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	255 0 => { name => 'DATA', value => \&data },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	256 1 => { name => 'HEADERS', value => \&headers },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	257 # 2 => { name => 'PRIORITY', value => \&priority },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	258 3 => { name => 'RST_STREAM', value => \&rst_stream },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	259 4 => { name => 'SETTINGS', value => \&settings },
720 3c09ccf97d80 Tests: typo. Sergey Kandaurov <pluknet@nginx.com> parents: 719 diff changeset	260 # 5 => { name => 'PUSH_PROMISE', value => \&push_promise },
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	261 6 => { name => 'PING', value => \&ping },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	262 7 => { name => 'GOAWAY', value => \&goaway },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	263 8 => { name => 'WINDOW_UPDATE', value => \&window_update },
696 beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	264 9 => { name => 'CONTINUATION', value => \&headers },
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	265 );
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	266
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	267 ###############################################################################
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	268
738 0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	269 # Upgrade mechanism
0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	270
0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	271 my $r = http(<<EOF);
0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	272 GET / HTTP/1.1
0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	273 Host: localhost
0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	274 Connection: Upgrade, HTTP2-Settings
0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	275 Upgrade: h2c
0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	276 HTTP2-Settings: AAMAAABkAAQAAP__
0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	277
0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	278 EOF
0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	279
0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	280 SKIP: {
0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	281 skip 'no Upgrade-based negotiation', 2 if $r !~ m!HTTP/1.1 101!;
0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	282
0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	283 like($r, qr!Connection: Upgrade!, 'upgrade - connection');
0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	284 like($r, qr!Upgrade: h2c!, 'upgrade - token');
0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	285
0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	286 }
0881219c0699 Tests: HTTP/2 tests for Upgrade-based negotiation. Sergey Kandaurov <pluknet@nginx.com> parents: 737 diff changeset	287
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	288 # SETTINGS
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	289
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	290 my $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	291 my $frames = h2_read($sess, all => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	292 { type => 'WINDOW_UPDATE' },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	293 { type => 'SETTINGS'}
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	294 ]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	295
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	296 my ($frame) = grep { $_->{type} eq 'WINDOW_UPDATE' } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	297 ok($frame, 'WINDOW_UPDATE frame');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	298 is($frame->{flags}, 0, 'WINDOW_UPDATE zero flags');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	299 is($frame->{sid}, 0, 'WINDOW_UPDATE zero sid');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	300 is($frame->{length}, 4, 'WINDOW_UPDATE fixed length');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	301
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	302 ($frame) = grep { $_->{type} eq 'SETTINGS' } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	303 ok($frame, 'SETTINGS frame');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	304 is($frame->{flags}, 0, 'SETTINGS flags');
655 75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	305 is($frame->{sid}, 0, 'SETTINGS stream');
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	306
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	307 h2_settings($sess, 1);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	308 h2_settings($sess, 0);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	309
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	310 $frames = h2_read($sess, all => [{ type => 'SETTINGS' }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	311
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	312 ($frame) = grep { $_->{type} eq 'SETTINGS' } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	313 ok($frame, 'SETTINGS frame ack');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	314 is($frame->{flags}, 1, 'SETTINGS flags ack');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	315
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	316 # PING
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	317
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	318 h2_ping($sess, 'SEE-THIS');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	319 $frames = h2_read($sess, all => [{ type => 'PING' }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	320
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	321 ($frame) = grep { $_->{type} eq "PING" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	322 ok($frame, 'PING frame');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	323 is($frame->{value}, 'SEE-THIS', 'PING payload');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	324 is($frame->{flags}, 1, 'PING flags ack');
655 75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	325 is($frame->{sid}, 0, 'PING stream');
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	326
714 ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	327 # timeouts
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	328
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	329 push my @sess, new_session(8089);
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	330 push @sess, new_session(8089);
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	331 h2_ping($sess[-1], 'SEE-THIS');
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	332 push @sess, new_session(8090);
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	333 push @sess, new_session(8090);
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	334 h2_ping($sess[-1], 'SEE-THIS');
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	335
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	336 select undef, undef, undef, 2.1;
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	337
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	338 $frames = h2_read(shift @sess, all => [{ type => "GOAWAY" }]);
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	339 ($frame) = grep { $_->{type} eq "GOAWAY" } @$frames;
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	340 ok($frame, 'recv timeout - new connection GOAWAY');
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	341 is($frame->{code}, 1, 'recv timeout - new connection code');
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	342
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	343 $frames = h2_read(shift @sess, all => [{ type => "GOAWAY" }]);
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	344 ($frame) = grep { $_->{type} eq "GOAWAY" } @$frames;
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	345 is($frame, undef, 'recv timeout - idle connection GOAWAY');
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	346
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	347 $frames = h2_read(shift @sess, all => [{ type => "GOAWAY" }]);
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	348 ($frame) = grep { $_->{type} eq "GOAWAY" } @$frames;
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	349 is($frame, undef, 'idle timeout - new connection GOAWAY');
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	350
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	351 $frames = h2_read(shift @sess, all => [{ type => "GOAWAY" }]);
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	352 ($frame) = grep { $_->{type} eq "GOAWAY" } @$frames;
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	353 ok($frame, 'idle timeout - idle connection GOAWAY');
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	354 is($frame->{code}, 0, 'idle timeout - idle connection code');
ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	355
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	356 # GET
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	357
714 ccc9f389e1f8 Tests: HTTP/2 connection timeout tests. Sergey Kandaurov <pluknet@nginx.com> parents: 712 diff changeset	358 $sess = new_session();
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	359 my $sid = new_stream($sess);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	360 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	361
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	362 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	363 ok($frame, 'HEADERS frame');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	364 is($frame->{sid}, $sid, 'HEADERS stream');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	365 is($frame->{headers}->{':status'}, 200, 'HEADERS status');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	366 is($frame->{headers}->{'x-header'}, 'X-Foo', 'HEADERS header');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	367
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	368 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	369 ok($frame, 'DATA frame');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	370 is($frame->{length}, length 'body', 'DATA length');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	371 is($frame->{data}, 'body', 'DATA payload');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	372
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	373 # GET in the new stream on same connection
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	374
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	375 $sid = new_stream($sess);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	376 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	377
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	378 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	379 is($frame->{sid}, $sid, 'HEADERS stream 2');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	380 is($frame->{headers}->{':status'}, 200, 'HEADERS status 2');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	381 is($frame->{headers}->{'x-header'}, 'X-Foo', 'HEADERS header 2');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	382
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	383 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	384 ok($frame, 'DATA frame 2');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	385 is($frame->{sid}, $sid, 'HEADERS stream 2');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	386 is($frame->{length}, length 'body', 'DATA length 2');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	387 is($frame->{data}, 'body', 'DATA payload 2');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	388
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	389 # various HEADERS compression/encoding, see hpack() for mode details
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	390
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	391 # 6.1. Indexed Header Field Representation
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	392
742 fc21544a8640 Tests: isolated simple HTTP/2 HPACK tests. Sergey Kandaurov <pluknet@nginx.com> parents: 741 diff changeset	393 $sess = new_session();
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	394 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	395 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	396 { name => ':scheme', value => 'http', mode => 0 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	397 { name => ':path', value => '/', mode => 0 },
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	398 { name => ':authority', value => 'localhost', mode => 1 }]});
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	399 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	400
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	401 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	402 is($frame->{headers}->{':status'}, 200, 'indexed header field');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	403
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	404 # 6.2.1. Literal Header Field with Incremental Indexing
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	405
742 fc21544a8640 Tests: isolated simple HTTP/2 HPACK tests. Sergey Kandaurov <pluknet@nginx.com> parents: 741 diff changeset	406 $sess = new_session();
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	407 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	408 { name => ':method', value => 'GET', mode => 1, huff => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	409 { name => ':scheme', value => 'http', mode => 1, huff => 0 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	410 { name => ':path', value => '/', mode => 1, huff => 0 },
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	411 { name => ':authority', value => 'localhost', mode => 1, huff => 0 }]});
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	412 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	413
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	414 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	415 is($frame->{headers}->{':status'}, 200, 'literal with indexing');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	416
742 fc21544a8640 Tests: isolated simple HTTP/2 HPACK tests. Sergey Kandaurov <pluknet@nginx.com> parents: 741 diff changeset	417 $sess = new_session();
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	418 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	419 { name => ':method', value => 'GET', mode => 1, huff => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	420 { name => ':scheme', value => 'http', mode => 1, huff => 1 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	421 { name => ':path', value => '/', mode => 1, huff => 1 },
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	422 { name => ':authority', value => 'localhost', mode => 1, huff => 1 }]});
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	423 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	424
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	425 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	426 is($frame->{headers}->{':status'}, 200, 'literal with indexing - huffman');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	427
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	428 # 6.2.1. Literal Header Field with Incremental Indexing -- New Name
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	429
742 fc21544a8640 Tests: isolated simple HTTP/2 HPACK tests. Sergey Kandaurov <pluknet@nginx.com> parents: 741 diff changeset	430 $sess = new_session();
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	431 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	432 { name => ':method', value => 'GET', mode => 2, huff => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	433 { name => ':scheme', value => 'http', mode => 2, huff => 0 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	434 { name => ':path', value => '/', mode => 2, huff => 0 },
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	435 { name => ':authority', value => 'localhost', mode => 2, huff => 0 }]});
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	436 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	437
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	438 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	439 is($frame->{headers}->{':status'}, 200, 'literal with indexing - new');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	440
742 fc21544a8640 Tests: isolated simple HTTP/2 HPACK tests. Sergey Kandaurov <pluknet@nginx.com> parents: 741 diff changeset	441 $sess = new_session();
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	442 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	443 { name => ':method', value => 'GET', mode => 2, huff => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	444 { name => ':scheme', value => 'http', mode => 2, huff => 1 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	445 { name => ':path', value => '/', mode => 2, huff => 1 },
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	446 { name => ':authority', value => 'localhost', mode => 2, huff => 1 }]});
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	447 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	448
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	449 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	450 is($frame->{headers}->{':status'}, 200, 'literal with indexing - new huffman');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	451
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	452 # 6.2.2. Literal Header Field without Indexing
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	453
742 fc21544a8640 Tests: isolated simple HTTP/2 HPACK tests. Sergey Kandaurov <pluknet@nginx.com> parents: 741 diff changeset	454 $sess = new_session();
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	455 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	456 { name => ':method', value => 'GET', mode => 3, huff => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	457 { name => ':scheme', value => 'http', mode => 3, huff => 0 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	458 { name => ':path', value => '/', mode => 3, huff => 0 },
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	459 { name => ':authority', value => 'localhost', mode => 3, huff => 0 }]});
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	460 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	461
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	462 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	463 is($frame->{headers}->{':status'}, 200, 'literal without indexing');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	464
742 fc21544a8640 Tests: isolated simple HTTP/2 HPACK tests. Sergey Kandaurov <pluknet@nginx.com> parents: 741 diff changeset	465 $sess = new_session();
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	466 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	467 { name => ':method', value => 'GET', mode => 3, huff => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	468 { name => ':scheme', value => 'http', mode => 3, huff => 1 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	469 { name => ':path', value => '/', mode => 3, huff => 1 },
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	470 { name => ':authority', value => 'localhost', mode => 3, huff => 1 }]});
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	471 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	472
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	473 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	474 is($frame->{headers}->{':status'}, 200, 'literal without indexing - huffman');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	475
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	476 # 6.2.2. Literal Header Field without Indexing -- New Name
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	477
742 fc21544a8640 Tests: isolated simple HTTP/2 HPACK tests. Sergey Kandaurov <pluknet@nginx.com> parents: 741 diff changeset	478 $sess = new_session();
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	479 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	480 { name => ':method', value => 'GET', mode => 4, huff => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	481 { name => ':scheme', value => 'http', mode => 4, huff => 0 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	482 { name => ':path', value => '/', mode => 4, huff => 0 },
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	483 { name => ':authority', value => 'localhost', mode => 4, huff => 0 }]});
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	484 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	485
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	486 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	487 is($frame->{headers}->{':status'}, 200, 'literal without indexing - new');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	488
742 fc21544a8640 Tests: isolated simple HTTP/2 HPACK tests. Sergey Kandaurov <pluknet@nginx.com> parents: 741 diff changeset	489 $sess = new_session();
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	490 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	491 { name => ':method', value => 'GET', mode => 4, huff => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	492 { name => ':scheme', value => 'http', mode => 4, huff => 1 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	493 { name => ':path', value => '/', mode => 4, huff => 1 },
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	494 { name => ':authority', value => 'localhost', mode => 4, huff => 1 }]});
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	495 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	496
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	497 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	498 is($frame->{headers}->{':status'}, 200, 'literal without indexing - new huffman');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	499
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	500 # 6.2.3. Literal Header Field Never Indexed
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	501
742 fc21544a8640 Tests: isolated simple HTTP/2 HPACK tests. Sergey Kandaurov <pluknet@nginx.com> parents: 741 diff changeset	502 $sess = new_session();
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	503 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	504 { name => ':method', value => 'GET', mode => 5, huff => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	505 { name => ':scheme', value => 'http', mode => 5, huff => 0 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	506 { name => ':path', value => '/', mode => 5, huff => 0 },
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	507 { name => ':authority', value => 'localhost', mode => 5, huff => 0 }]});
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	508 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	509
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	510 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	511 is($frame->{headers}->{':status'}, 200, 'literal never indexed');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	512
742 fc21544a8640 Tests: isolated simple HTTP/2 HPACK tests. Sergey Kandaurov <pluknet@nginx.com> parents: 741 diff changeset	513 $sess = new_session();
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	514 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	515 { name => ':method', value => 'GET', mode => 5, huff => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	516 { name => ':scheme', value => 'http', mode => 5, huff => 1 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	517 { name => ':path', value => '/', mode => 5, huff => 1 },
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	518 { name => ':authority', value => 'localhost', mode => 5, huff => 1 }]});
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	519 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	520
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	521 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	522 is($frame->{headers}->{':status'}, 200, 'literal never indexed - huffman');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	523
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	524 # 6.2.2. Literal Header Field Never Indexed -- New Name
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	525
742 fc21544a8640 Tests: isolated simple HTTP/2 HPACK tests. Sergey Kandaurov <pluknet@nginx.com> parents: 741 diff changeset	526 $sess = new_session();
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	527 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	528 { name => ':method', value => 'GET', mode => 6, huff => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	529 { name => ':scheme', value => 'http', mode => 6, huff => 0 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	530 { name => ':path', value => '/', mode => 6, huff => 0 },
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	531 { name => ':authority', value => 'localhost', mode => 6, huff => 0 }]});
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	532 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	533
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	534 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	535 is($frame->{headers}->{':status'}, 200, 'literal never indexed - new');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	536
742 fc21544a8640 Tests: isolated simple HTTP/2 HPACK tests. Sergey Kandaurov <pluknet@nginx.com> parents: 741 diff changeset	537 $sess = new_session();
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	538 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	539 { name => ':method', value => 'GET', mode => 6, huff => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	540 { name => ':scheme', value => 'http', mode => 6, huff => 1 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	541 { name => ':path', value => '/', mode => 6, huff => 1 },
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	542 { name => ':authority', value => 'localhost', mode => 6, huff => 1 }]});
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	543 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	544
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	545 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	546 is($frame->{headers}->{':status'}, 200, 'literal never indexed - new huffman');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	547
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	548 # reuse literal with indexing
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	549
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	550 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	551 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	552 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	553 { name => ':scheme', value => 'http', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	554 { name => ':path', value => '/', mode => 0 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	555 { name => ':authority', value => 'localhost', mode => 1 },
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	556 { name => 'referer', value => 'foo', mode => 1 }]});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	557 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	558
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	559 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	560 is($frame->{headers}->{'x-referer'}, 'foo', 'value with indexing - new');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	561
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	562 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	563 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	564 { name => ':scheme', value => 'http', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	565 { name => ':path', value => '/', mode => 0 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	566 { name => ':authority', value => 'localhost', mode => 0 },
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	567 { name => 'referer', value => 'foo', mode => 0 }]});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	568 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	569
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	570 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	571 is($frame->{headers}->{'x-referer'}, 'foo', 'value with indexing - indexed');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	572
742 fc21544a8640 Tests: isolated simple HTTP/2 HPACK tests. Sergey Kandaurov <pluknet@nginx.com> parents: 741 diff changeset	573 $sess = new_session();
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	574 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	575 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	576 { name => ':scheme', value => 'http', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	577 { name => ':path', value => '/', mode => 0 },
742 fc21544a8640 Tests: isolated simple HTTP/2 HPACK tests. Sergey Kandaurov <pluknet@nginx.com> parents: 741 diff changeset	578 { name => ':authority', value => 'localhost', mode => 1 },
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	579 { name => 'x-foo', value => 'X-Bar', mode => 2 }]});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	580 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	581
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	582 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	583 is($frame->{headers}->{'x-sent-foo'}, 'X-Bar', 'name with indexing - new');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	584
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	585 # reuse literal with indexing - reused name
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	586
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	587 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	588 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	589 { name => ':scheme', value => 'http', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	590 { name => ':path', value => '/', mode => 0 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	591 { name => ':authority', value => 'localhost', mode => 0 },
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	592 { name => 'x-foo', value => 'X-Bar', mode => 0 }]});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	593 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	594
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	595 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	596 is($frame->{headers}->{'x-sent-foo'}, 'X-Bar', 'name with indexing - indexed');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	597
737 abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	598 # reuse literal with indexing - reused name only
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	599
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	600 $sid = new_stream($sess, { headers => [
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	601 { name => ':method', value => 'GET', mode => 0 },
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	602 { name => ':scheme', value => 'http', mode => 0 },
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	603 { name => ':path', value => '/', mode => 0 },
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	604 { name => ':authority', value => 'localhost', mode => 0 },
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	605 { name => 'x-foo', value => 'X-Baz', mode => 1 }]});
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	606 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	607
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	608 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	609 is($frame->{headers}->{'x-sent-foo'}, 'X-Baz',
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	610 'name with indexing - indexed name');
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	611
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	612 # 6.3. Dynamic Table Size Update
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	613
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	614 # remove some indexed headers from the dynamic table
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	615 # by maintaining dynamic table space only for index 0
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	616 # 'x-foo' has index 0, and 'referer' has index 1
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	617
737 abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	618 $sess = new_session();
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	619 $sid = new_stream($sess, { headers => [
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	620 { name => ':method', value => 'GET', mode => 0 },
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	621 { name => ':scheme', value => 'http', mode => 0 },
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	622 { name => ':path', value => '/', mode => 0 },
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	623 { name => ':authority', value => 'localhost', mode => 1 },
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	624 { name => 'referer', value => 'foo', mode => 1 },
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	625 { name => 'x-foo', value => 'X-Bar', mode => 2 }]});
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	626 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
abf42eb6cf48 Tests: HTTP/2 test for indexed header field name in dynamic table. Sergey Kandaurov <pluknet@nginx.com> parents: 736 diff changeset	627
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	628 $sid = new_stream($sess, { table_size => 61, headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	629 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	630 { name => ':scheme', value => 'http', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	631 { name => ':path', value => '/', mode => 0 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	632 { name => 'x-foo', value => 'X-Bar', mode => 0 },
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	633 { name => ':authority', value => 'localhost', mode => 1 }]});
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	634 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	635
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	636 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	637 isnt($frame, undef, 'updated table size - remaining index');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	638
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	639 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	640 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	641 { name => ':scheme', value => 'http', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	642 { name => ':path', value => '/', mode => 0 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	643 { name => ':authority', value => 'localhost', mode => 1 },
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	644 { name => 'referer', value => 'foo', mode => 0 }]});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	645 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	646
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	647 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
672 66f94d6c5047 Tests: more HTTP/2 error handling tests. Sergey Kandaurov <pluknet@nginx.com> parents: 671 diff changeset	648 is($frame, undef, 'invalid index');
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	649
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	650 # 5.4.1. Connection Error Handling
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	651 # An endpoint that encounters a connection error SHOULD first send a
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	652 # GOAWAY frame <..>
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	653
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	654 ($frame) = grep { $_->{type} eq "GOAWAY" } @$frames;
672 66f94d6c5047 Tests: more HTTP/2 error handling tests. Sergey Kandaurov <pluknet@nginx.com> parents: 671 diff changeset	655 ok($frame, 'invalid index - GOAWAY');
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	656
691 3f4a132c6463 Tests: extended HTTP/2 tests for GOAWAY on compression error. Sergey Kandaurov <pluknet@nginx.com> parents: 685 diff changeset	657 # RFC 7541, 2.3.3. Index Address Space
3f4a132c6463 Tests: extended HTTP/2 tests for GOAWAY on compression error. Sergey Kandaurov <pluknet@nginx.com> parents: 685 diff changeset	658 # Indices strictly greater than the sum of the lengths of both tables
3f4a132c6463 Tests: extended HTTP/2 tests for GOAWAY on compression error. Sergey Kandaurov <pluknet@nginx.com> parents: 685 diff changeset	659 # MUST be treated as a decoding error.
3f4a132c6463 Tests: extended HTTP/2 tests for GOAWAY on compression error. Sergey Kandaurov <pluknet@nginx.com> parents: 685 diff changeset	660
3f4a132c6463 Tests: extended HTTP/2 tests for GOAWAY on compression error. Sergey Kandaurov <pluknet@nginx.com> parents: 685 diff changeset	661 # 4.3. Header Compression and Decompression
3f4a132c6463 Tests: extended HTTP/2 tests for GOAWAY on compression error. Sergey Kandaurov <pluknet@nginx.com> parents: 685 diff changeset	662 # A decoding error in a header block MUST be treated
3f4a132c6463 Tests: extended HTTP/2 tests for GOAWAY on compression error. Sergey Kandaurov <pluknet@nginx.com> parents: 685 diff changeset	663 # as a connection error of type COMPRESSION_ERROR.
3f4a132c6463 Tests: extended HTTP/2 tests for GOAWAY on compression error. Sergey Kandaurov <pluknet@nginx.com> parents: 685 diff changeset	664
3f4a132c6463 Tests: extended HTTP/2 tests for GOAWAY on compression error. Sergey Kandaurov <pluknet@nginx.com> parents: 685 diff changeset	665 is($frame->{last_sid}, $sid, 'invalid index - GOAWAY last stream');
3f4a132c6463 Tests: extended HTTP/2 tests for GOAWAY on compression error. Sergey Kandaurov <pluknet@nginx.com> parents: 685 diff changeset	666 is($frame->{code}, 9, 'invalid index - GOAWAY COMPRESSION_ERROR');
3f4a132c6463 Tests: extended HTTP/2 tests for GOAWAY on compression error. Sergey Kandaurov <pluknet@nginx.com> parents: 685 diff changeset	667
739 610e394a6e73 Tests: HTTP/2 tests for HPACK zero index. Sergey Kandaurov <pluknet@nginx.com> parents: 738 diff changeset	668 # HPACK zero index
610e394a6e73 Tests: HTTP/2 tests for HPACK zero index. Sergey Kandaurov <pluknet@nginx.com> parents: 738 diff changeset	669
610e394a6e73 Tests: HTTP/2 tests for HPACK zero index. Sergey Kandaurov <pluknet@nginx.com> parents: 738 diff changeset	670 # RFC 7541, 6.1 Indexed Header Field Representation
610e394a6e73 Tests: HTTP/2 tests for HPACK zero index. Sergey Kandaurov <pluknet@nginx.com> parents: 738 diff changeset	671 # The index value of 0 is not used. It MUST be treated as a decoding
610e394a6e73 Tests: HTTP/2 tests for HPACK zero index. Sergey Kandaurov <pluknet@nginx.com> parents: 738 diff changeset	672 # error if found in an indexed header field representation.
610e394a6e73 Tests: HTTP/2 tests for HPACK zero index. Sergey Kandaurov <pluknet@nginx.com> parents: 738 diff changeset	673
610e394a6e73 Tests: HTTP/2 tests for HPACK zero index. Sergey Kandaurov <pluknet@nginx.com> parents: 738 diff changeset	674 $sess = new_session();
610e394a6e73 Tests: HTTP/2 tests for HPACK zero index. Sergey Kandaurov <pluknet@nginx.com> parents: 738 diff changeset	675 $sid = new_stream($sess, { headers => [
610e394a6e73 Tests: HTTP/2 tests for HPACK zero index. Sergey Kandaurov <pluknet@nginx.com> parents: 738 diff changeset	676 { name => ':method', value => 'GET', mode => 0 },
610e394a6e73 Tests: HTTP/2 tests for HPACK zero index. Sergey Kandaurov <pluknet@nginx.com> parents: 738 diff changeset	677 { name => ':scheme', value => 'http', mode => 0 },
610e394a6e73 Tests: HTTP/2 tests for HPACK zero index. Sergey Kandaurov <pluknet@nginx.com> parents: 738 diff changeset	678 { name => ':path', value => '/', mode => 0 },
610e394a6e73 Tests: HTTP/2 tests for HPACK zero index. Sergey Kandaurov <pluknet@nginx.com> parents: 738 diff changeset	679 { name => ':authority', value => 'localhost', mode => 1 },
610e394a6e73 Tests: HTTP/2 tests for HPACK zero index. Sergey Kandaurov <pluknet@nginx.com> parents: 738 diff changeset	680 { name => '', value => '', mode => 0 }]});
610e394a6e73 Tests: HTTP/2 tests for HPACK zero index. Sergey Kandaurov <pluknet@nginx.com> parents: 738 diff changeset	681 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
610e394a6e73 Tests: HTTP/2 tests for HPACK zero index. Sergey Kandaurov <pluknet@nginx.com> parents: 738 diff changeset	682
610e394a6e73 Tests: HTTP/2 tests for HPACK zero index. Sergey Kandaurov <pluknet@nginx.com> parents: 738 diff changeset	683 ok($frame, 'zero index - GOAWAY');
610e394a6e73 Tests: HTTP/2 tests for HPACK zero index. Sergey Kandaurov <pluknet@nginx.com> parents: 738 diff changeset	684 is($frame->{code}, 9, 'zero index - GOAWAY COMPRESSION_ERROR');
610e394a6e73 Tests: HTTP/2 tests for HPACK zero index. Sergey Kandaurov <pluknet@nginx.com> parents: 738 diff changeset	685
729 41caaaff9b95 Tests: added HTTP/2 tests for invalid table size update. Sergey Kandaurov <pluknet@nginx.com> parents: 728 diff changeset	686 # invalid table size update
41caaaff9b95 Tests: added HTTP/2 tests for invalid table size update. Sergey Kandaurov <pluknet@nginx.com> parents: 728 diff changeset	687
41caaaff9b95 Tests: added HTTP/2 tests for invalid table size update. Sergey Kandaurov <pluknet@nginx.com> parents: 728 diff changeset	688 $sess = new_session();
41caaaff9b95 Tests: added HTTP/2 tests for invalid table size update. Sergey Kandaurov <pluknet@nginx.com> parents: 728 diff changeset	689 $sid = new_stream($sess, { table_size => 4097, headers => [
41caaaff9b95 Tests: added HTTP/2 tests for invalid table size update. Sergey Kandaurov <pluknet@nginx.com> parents: 728 diff changeset	690 { name => ':method', value => 'GET', mode => 0 },
41caaaff9b95 Tests: added HTTP/2 tests for invalid table size update. Sergey Kandaurov <pluknet@nginx.com> parents: 728 diff changeset	691 { name => ':scheme', value => 'http', mode => 0 },
41caaaff9b95 Tests: added HTTP/2 tests for invalid table size update. Sergey Kandaurov <pluknet@nginx.com> parents: 728 diff changeset	692 { name => ':path', value => '/', mode => 0 },
41caaaff9b95 Tests: added HTTP/2 tests for invalid table size update. Sergey Kandaurov <pluknet@nginx.com> parents: 728 diff changeset	693 { name => 'x-foo', value => 'X-Bar', mode => 0 },
41caaaff9b95 Tests: added HTTP/2 tests for invalid table size update. Sergey Kandaurov <pluknet@nginx.com> parents: 728 diff changeset	694 { name => ':authority', value => 'localhost', mode => 1 }]});
41caaaff9b95 Tests: added HTTP/2 tests for invalid table size update. Sergey Kandaurov <pluknet@nginx.com> parents: 728 diff changeset	695 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
41caaaff9b95 Tests: added HTTP/2 tests for invalid table size update. Sergey Kandaurov <pluknet@nginx.com> parents: 728 diff changeset	696
41caaaff9b95 Tests: added HTTP/2 tests for invalid table size update. Sergey Kandaurov <pluknet@nginx.com> parents: 728 diff changeset	697 ($frame) = grep { $_->{type} eq "GOAWAY" } @$frames;
41caaaff9b95 Tests: added HTTP/2 tests for invalid table size update. Sergey Kandaurov <pluknet@nginx.com> parents: 728 diff changeset	698 ok($frame, 'invalid table size - GOAWAY');
41caaaff9b95 Tests: added HTTP/2 tests for invalid table size update. Sergey Kandaurov <pluknet@nginx.com> parents: 728 diff changeset	699 is($frame->{last_sid}, $sid, 'invalid table size - GOAWAY last stream');
41caaaff9b95 Tests: added HTTP/2 tests for invalid table size update. Sergey Kandaurov <pluknet@nginx.com> parents: 728 diff changeset	700 is($frame->{code}, 9, 'invalid table size - GOAWAY COMPRESSION_ERROR');
41caaaff9b95 Tests: added HTTP/2 tests for invalid table size update. Sergey Kandaurov <pluknet@nginx.com> parents: 728 diff changeset	701
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	702 # HEAD
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	703
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	704 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	705 $sid = new_stream($sess, { method => 'HEAD' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	706 $frames = h2_read($sess, all => [{ sid => $sid, fin => 0x4 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	707
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	708 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	709 is($frame->{sid}, $sid, 'HEAD - HEADERS');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	710 is($frame->{headers}->{':status'}, 200, 'HEAD - HEADERS status');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	711 is($frame->{headers}->{'x-header'}, 'X-Foo', 'HEAD - HEADERS header');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	712
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	713 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	714 is($frame, undef, 'HEAD - no body');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	715
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	716 # GET with PROXY protocol
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	717
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	718 my $proxy = 'PROXY TCP4 192.0.2.1 192.0.2.2 1234 5678' . CRLF;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	719 $sess = new_session(8082, proxy => $proxy);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	720 $sid = new_stream($sess, { path => '/pp' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	721 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	722
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	723 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	724 ok($frame, 'PROXY HEADERS frame');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	725 is($frame->{headers}->{'x-pp'}, '192.0.2.1', 'PROXY remote addr');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	726
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	727 # range filter
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	728
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	729 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	730 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	731 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	732 { name => ':scheme', value => 'http', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	733 { name => ':path', value => '/t1.html', mode => 1 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	734 { name => ':authority', value => 'localhost', mode => 1 },
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	735 { name => 'range', value => 'bytes=10-19', mode => 1 }]});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	736 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	737
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	738 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	739 is($frame->{headers}->{':status'}, 206, 'range - HEADERS status');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	740
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	741 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	742 is($frame->{length}, 10, 'range - DATA length');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	743 is($frame->{data}, '002XXXX000', 'range - DATA payload');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	744
650 8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	745 # $http2
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	746
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	747 $sess = new_session();
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	748 $sid = new_stream($sess, { path => '/h2' });
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	749 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	750
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	751 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	752 is($frame->{data}, 'h2c', 'http variable - h2c');
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	753
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	754 # SSL/TLS connection, NPN
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	755
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	756 SKIP: {
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	757 eval { IO::Socket::SSL->can_npn() or die; };
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	758 skip 'OpenSSL NPN support required', 1 if $@;
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	759
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	760 $sess = new_session(8084, SSL => 1, npn => 'h2');
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	761 $sid = new_stream($sess, { path => '/h2' });
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	762 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	763
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	764 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	765 is($frame->{data}, 'h2', 'http variable - npn');
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	766
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	767 }
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	768
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	769 # SSL/TLS connection, ALPN
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	770
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	771 SKIP: {
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	772 eval { IO::Socket::SSL->can_alpn() or die; };
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	773 skip 'OpenSSL ALPN support required', 1 if $@;
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	774
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	775 $sess = new_session(8084, SSL => 1, alpn => 'h2');
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	776 $sid = new_stream($sess, { path => '/h2' });
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	777 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	778
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	779 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	780 is($frame->{data}, 'h2', 'http variable - alpn');
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	781
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	782 }
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	783
716 e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	784 # $server_protocol
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	785
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	786 $sess = new_session();
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	787 $sid = new_stream($sess, { path => '/sp' });
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	788 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	789
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	790 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	791 is($frame->{data}, 'HTTP/2.0', 'server_protocol variable');
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	792
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	793 # $server_protocol - SSL/TLS connection, NPN
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	794
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	795 SKIP: {
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	796 eval { IO::Socket::SSL->can_npn() or die; };
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	797 skip 'OpenSSL NPN support required', 1 if $@;
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	798
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	799 $sess = new_session(8084, SSL => 1, npn => 'h2');
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	800 $sid = new_stream($sess, { path => '/sp' });
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	801 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	802
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	803 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	804 is($frame->{data}, 'HTTP/2.0', 'server_protocol variable - npn');
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	805
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	806 }
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	807
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	808 # $server_protocol - SSL/TLS connection, ALPN
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	809
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	810 SKIP: {
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	811 eval { IO::Socket::SSL->can_alpn() or die; };
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	812 skip 'OpenSSL ALPN support required', 1 if $@;
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	813
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	814 $sess = new_session(8084, SSL => 1, alpn => 'h2');
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	815 $sid = new_stream($sess, { path => '/sp' });
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	816 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	817
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	818 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	819 is($frame->{data}, 'HTTP/2.0', 'server_protocol variable - alpn');
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	820
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	821 }
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	822
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	823 # $scheme
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	824
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	825 $sess = new_session();
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	826 $sid = new_stream($sess, { path => '/scheme' });
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	827 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	828
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	829 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	830 is($frame->{data}, 'http', 'scheme variable');
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	831
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	832 # $scheme - SSL/TLS connection, NPN
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	833
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	834 SKIP: {
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	835 eval { IO::Socket::SSL->can_npn() or die; };
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	836 skip 'OpenSSL NPN support required', 1 if $@;
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	837
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	838 $sess = new_session(8084, SSL => 1, npn => 'h2');
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	839 $sid = new_stream($sess, { path => '/scheme' });
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	840 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	841
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	842 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	843 is($frame->{data}, 'https', 'scheme variable - npn');
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	844
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	845 }
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	846
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	847 # $scheme - SSL/TLS connection, ALPN
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	848
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	849 SKIP: {
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	850 eval { IO::Socket::SSL->can_alpn() or die; };
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	851 skip 'OpenSSL ALPN support required', 1 if $@;
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	852
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	853 $sess = new_session(8084, SSL => 1, alpn => 'h2');
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	854 $sid = new_stream($sess, { path => '/scheme' });
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	855 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	856
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	857 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	858 is($frame->{data}, 'https', 'scheme variable - alpn');
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	859
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	860 }
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	861
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	862 # $https
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	863
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	864 $sess = new_session();
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	865 $sid = new_stream($sess, { path => '/https' });
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	866 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	867
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	868 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	869 is($frame->{data}, '', 'https variable');
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	870
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	871 # $https - SSL/TLS connection, NPN
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	872
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	873 SKIP: {
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	874 eval { IO::Socket::SSL->can_npn() or die; };
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	875 skip 'OpenSSL NPN support required', 1 if $@;
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	876
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	877 $sess = new_session(8084, SSL => 1, npn => 'h2');
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	878 $sid = new_stream($sess, { path => '/https' });
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	879 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	880
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	881 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	882 is($frame->{data}, 'on', 'https variable - npn');
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	883
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	884 }
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	885
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	886 # $https - SSL/TLS connection, ALPN
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	887
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	888 SKIP: {
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	889 eval { IO::Socket::SSL->can_alpn() or die; };
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	890 skip 'OpenSSL ALPN support required', 1 if $@;
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	891
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	892 $sess = new_session(8084, SSL => 1, alpn => 'h2');
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	893 $sid = new_stream($sess, { path => '/https' });
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	894 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	895
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	896 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	897 is($frame->{data}, 'on', 'https variable - alpn');
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	898
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	899 }
e3fd2c8d257e Tests: added HTTP/2 tests for some http core module variables. Sergey Kandaurov <pluknet@nginx.com> parents: 715 diff changeset	900
651 9f66f0029dca Tests: HTTP/2 tests for http2_chunk_size directive. Sergey Kandaurov <pluknet@nginx.com> parents: 650 diff changeset	901 # http2_chunk_size=1
9f66f0029dca Tests: HTTP/2 tests for http2_chunk_size directive. Sergey Kandaurov <pluknet@nginx.com> parents: 650 diff changeset	902
9f66f0029dca Tests: HTTP/2 tests for http2_chunk_size directive. Sergey Kandaurov <pluknet@nginx.com> parents: 650 diff changeset	903 $sess = new_session();
9f66f0029dca Tests: HTTP/2 tests for http2_chunk_size directive. Sergey Kandaurov <pluknet@nginx.com> parents: 650 diff changeset	904 $sid = new_stream($sess, { path => '/chunk_size' });
9f66f0029dca Tests: HTTP/2 tests for http2_chunk_size directive. Sergey Kandaurov <pluknet@nginx.com> parents: 650 diff changeset	905 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
9f66f0029dca Tests: HTTP/2 tests for http2_chunk_size directive. Sergey Kandaurov <pluknet@nginx.com> parents: 650 diff changeset	906
9f66f0029dca Tests: HTTP/2 tests for http2_chunk_size directive. Sergey Kandaurov <pluknet@nginx.com> parents: 650 diff changeset	907 my @data = grep { $_->{type} eq "DATA" } @$frames;
9f66f0029dca Tests: HTTP/2 tests for http2_chunk_size directive. Sergey Kandaurov <pluknet@nginx.com> parents: 650 diff changeset	908 is(@data, 4, 'chunk_size frames');
9f66f0029dca Tests: HTTP/2 tests for http2_chunk_size directive. Sergey Kandaurov <pluknet@nginx.com> parents: 650 diff changeset	909 is(join(' ', map { $_->{data} } @data), 'b o d y', 'chunk_size data');
9f66f0029dca Tests: HTTP/2 tests for http2_chunk_size directive. Sergey Kandaurov <pluknet@nginx.com> parents: 650 diff changeset	910 is(join(' ', map { $_->{flags} } @data), '0 0 0 1', 'chunk_size flags');
9f66f0029dca Tests: HTTP/2 tests for http2_chunk_size directive. Sergey Kandaurov <pluknet@nginx.com> parents: 650 diff changeset	911
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	912 # CONTINUATION
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	913
650 8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	914 $sess = new_session();
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	915 $sid = new_stream($sess, { continuation => 1, headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	916 { name => ':method', value => 'HEAD', mode => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	917 { name => ':scheme', value => 'http', mode => 0 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	918 { name => ':path', value => '/', mode => 0 },
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	919 { name => ':authority', value => 'localhost', mode => 1 }]});
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	920 h2_continue($sess, $sid, { continuation => 1, headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	921 { name => 'x-foo', value => 'X-Bar', mode => 2 }]});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	922 h2_continue($sess, $sid, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	923 { name => 'referer', value => 'foo', mode => 2 }]});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	924 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	925
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	926 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	927 is($frame, undef, 'CONTINUATION - fragment 1');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	928
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	929 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	930 is($frame->{headers}->{'x-sent-foo'}, 'X-Bar', 'CONTINUATION - fragment 2');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	931 is($frame->{headers}->{'x-referer'}, 'foo', 'CONTINUATION - fragment 3');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	932
699 5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	933 # CONTINUATION - in the middle of request header field
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	934
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	935 $sess = new_session();
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	936 $sid = new_stream($sess, { continuation => [ 2, 4, 1, 5 ], headers => [
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	937 { name => ':method', value => 'HEAD', mode => 1 },
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	938 { name => ':scheme', value => 'http', mode => 0 },
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	939 { name => ':path', value => '/', mode => 0 },
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	940 { name => ':authority', value => 'localhost', mode => 1 }]});
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	941 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	942
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	943 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	944 is($frame->{headers}->{':status'}, 200, 'CONTINUATION - in header field');
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	945
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	946 # frame padding
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	947
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	948 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	949 $sid = new_stream($sess, { padding => 42, headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	950 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	951 { name => ':scheme', value => 'http', mode => 0 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	952 { name => ':path', value => '/', mode => 0 },
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	953 { name => ':authority', value => 'localhost', mode => 1 }]});
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	954 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	955
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	956 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	957 is($frame->{headers}->{':status'}, 200, 'padding - HEADERS status');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	958
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	959 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	960 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	961 { name => ':scheme', value => 'http', mode => 0 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	962 { name => ':path', value => '/', mode => 0 },
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	963 { name => ':authority', value => 'localhost', mode => 1 }]});
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	964 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	965
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	966 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	967 is($frame->{headers}->{':status'}, 200, 'padding - next stream');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	968
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	969 # request header field with multiple values
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	970
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	971 # 8.1.2.5. Compressing the Cookie Header Field
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	972 # To allow for better compression efficiency, the Cookie header field
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	973 # MAY be split into separate header fields <..>.
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	974
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	975 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	976 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	977 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	978 { name => ':scheme', value => 'http', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	979 { name => ':path', value => '/cookie', mode => 2 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	980 { name => ':authority', value => 'localhost', mode => 1 },
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	981 { name => 'cookie', value => 'a=b', mode => 2},
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	982 { name => 'cookie', value => 'c=d', mode => 2}]});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	983 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	984
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	985 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	986 is($frame->{headers}->{'x-cookie-a'}, 'b',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	987 'multiple request header fields - cookie');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	988 is($frame->{headers}->{'x-cookie-c'}, 'd',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	989 'multiple request header fields - cookie 2');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	990 is($frame->{headers}->{'x-cookie'}, 'a=b; c=d',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	991 'multiple request header fields - semi-colon');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	992
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	993 # request header field with multiple values to HTTP backend
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	994
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	995 # 8.1.2.5. Compressing the Cookie Header Field
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	996 # these MUST be concatenated into a single octet string
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	997 # using the two-octet delimiter of 0x3B, 0x20 (the ASCII string "; ")
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	998 # before being passed into a non-HTTP/2 context, such as an HTTP/1.1
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	999 # connection <..>
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1000
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1001 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1002 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1003 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1004 { name => ':scheme', value => 'http', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1005 { name => ':path', value => '/proxy/cookie', mode => 2 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	1006 { name => ':authority', value => 'localhost', mode => 1 },
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1007 { name => 'cookie', value => 'a=b', mode => 2 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1008 { name => 'cookie', value => 'c=d', mode => 2 }]});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1009 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1010
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1011 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
652 5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	1012 is($frame->{headers}->{'x-sent-cookie'}, 'a=b; c=d',
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1013 'multiple request header fields proxied - semi-colon');
652 5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	1014 is($frame->{headers}->{'x-sent-cookie2'}, '',
5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	1015 'multiple request header fields proxied - dublicate cookie');
5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	1016 is($frame->{headers}->{'x-sent-cookie-a'}, 'b',
5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	1017 'multiple request header fields proxied - cookie 1');
5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	1018 is($frame->{headers}->{'x-sent-cookie-c'}, 'd',
5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	1019 'multiple request header fields proxied - cookie 2');
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1020
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1021 # response header field with multiple values
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1022
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1023 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1024 $sid = new_stream($sess, { path => '/set-cookie' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1025 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1026
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1027 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1028 is($frame->{headers}->{'set-cookie'}[0], 'a=b',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1029 'multiple response header fields - cookie');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1030 is($frame->{headers}->{'set-cookie'}[1], 'c=d',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1031 'multiple response header fields - cookie 2');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1032
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1033 # response header field with multiple values from HTTP backend
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1034
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1035 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1036 $sid = new_stream($sess, { path => '/proxy/set-cookie' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1037 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1038
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1039 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1040 is($frame->{headers}->{'set-cookie'}[0], 'a=b',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1041 'multiple response header proxied - cookie');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1042 is($frame->{headers}->{'set-cookie'}[1], 'c=d',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1043 'multiple response header proxied - cookie 2');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1044 is($frame->{headers}->{'x-uc-a'}, 'b',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1045 'multiple response header proxied - upstream cookie');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1046 is($frame->{headers}->{'x-uc-c'}, 'd',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1047 'multiple response header proxied - upstream cookie 2');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1048
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1049 # internal redirect
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1050
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1051 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1052 $sid = new_stream($sess, { path => '/redirect' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1053 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1054
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1055 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1056 is($frame->{headers}->{':status'}, 405, 'redirect - HEADERS');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1057
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1058 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1059 ok($frame, 'redirect - DATA');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1060 is($frame->{data}, 'body', 'redirect - DATA payload');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1061
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1062 # return 301 with absolute URI
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1063
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1064 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1065 $sid = new_stream($sess, { path => '/return301_absolute' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1066 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1067
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1068 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1069 is($frame->{headers}->{':status'}, 301, 'return 301 absolute - status');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1070 is($frame->{headers}->{'location'}, 'text', 'return 301 absolute - location');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1071
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1072 # return 301 with relative URI
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1073
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1074 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1075 $sid = new_stream($sess, { path => '/return301_relative' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1076 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1077
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1078 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1079 is($frame->{headers}->{':status'}, 301, 'return 301 relative - status');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1080 is($frame->{headers}->{'location'}, 'http://127.0.0.1:8080/',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1081 'return 301 relative - location');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1082
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1083 # return 301 with relative URI and ':authority' request header field
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1084
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1085 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1086 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1087 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1088 { name => ':scheme', value => 'http', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1089 { name => ':path', value => '/return301_relative', mode => 2 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1090 { name => ':authority', value => 'localhost', mode => 2 }]});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1091 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1092
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1093 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1094 is($frame->{headers}->{':status'}, 301,
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1095 'return 301 relative - authority - status');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1096 is($frame->{headers}->{'location'}, 'http://localhost:8080/',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1097 'return 301 relative - authority - location');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1098
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1099 # return 301 with relative URI and 'host' request header field
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1100
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1101 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1102 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1103 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1104 { name => ':scheme', value => 'http', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1105 { name => ':path', value => '/return301_relative', mode => 2 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1106 { name => 'host', value => 'localhost', mode => 2 }]});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1107 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1108
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1109 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1110 is($frame->{headers}->{':status'}, 301,
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1111 'return 301 relative - host - status');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1112 is($frame->{headers}->{'location'}, 'http://localhost:8080/',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1113 'return 301 relative - host - location');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1114
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1115 # virtual host
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1116
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1117 $sess = new_session(8085);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1118 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1119 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1120 { name => ':scheme', value => 'http', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1121 { name => ':path', value => '/', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1122 { name => 'host', value => 'localhost', mode => 2 }]});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1123 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1124
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1125 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1126 is($frame->{headers}->{':status'}, 200,
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1127 'virtual host - host - status');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1128
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1129 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1130 is($frame->{data}, 'first', 'virtual host - host - DATA');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1131
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1132 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1133 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1134 { name => ':scheme', value => 'http', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1135 { name => ':path', value => '/', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1136 { name => ':authority', value => 'localhost', mode => 2 }]});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1137 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1138
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1139 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1140 is($frame->{headers}->{':status'}, 200,
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1141 'virtual host - authority - status');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1142
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1143 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1144 is($frame->{data}, 'first', 'virtual host - authority - DATA');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1145
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1146 # virtual host - second
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1147
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1148 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1149 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1150 { name => ':scheme', value => 'http', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1151 { name => ':path', value => '/', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1152 { name => 'host', value => 'localhost2', mode => 2 }]});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1153 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1154
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1155 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1156 is($frame->{headers}->{':status'}, 200,
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1157 'virtual host 2 - host - status');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1158
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1159 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1160 is($frame->{data}, 'second', 'virtual host 2 - host - DATA');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1161
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1162 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1163 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1164 { name => ':scheme', value => 'http', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1165 { name => ':path', value => '/', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1166 { name => ':authority', value => 'localhost2', mode => 2 }]});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1167 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1168
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1169 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1170 is($frame->{headers}->{':status'}, 200,
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1171 'virtual host 2 - authority - status');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1172
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1173 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1174 is($frame->{data}, 'second', 'virtual host 2 - authority - DATA');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1175
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1176 # gzip tests for internal nginx version
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1177
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1178 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1179 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1180 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1181 { name => ':scheme', value => 'http', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1182 { name => ':path', value => '/gzip.html' },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	1183 { name => ':authority', value => 'localhost', mode => 1 },
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1184 { name => 'accept-encoding', value => 'gzip' }]});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1185 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1186
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1187 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1188 is($frame->{headers}->{'content-encoding'}, 'gzip', 'gzip - encoding');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1189
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1190 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
647 4e36550410b3 Tests: h2.t fixes for older perl versions, and gzip test. Sergey Kandaurov <pluknet@nginx.com> parents: 646 diff changeset	1191 gunzip_like($frame->{data}, qr/^SEE-THIS\Z/, 'gzip - DATA');
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1192
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1193 # simple proxy cache test
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1194
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1195 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1196 $sid = new_stream($sess, { path => '/proxy2/t2.html?2' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1197 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1198
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1199 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1200 is($frame->{headers}->{':status'}, '200', 'proxy cache');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1201
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1202 my $etag = $frame->{headers}->{'etag'};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1203
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1204 ($frame) = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1205 is($frame->{length}, length 'SEE-THIS', 'proxy cache - DATA');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1206 is($frame->{data}, 'SEE-THIS', 'proxy cache - DATA payload');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1207
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1208 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1209 { name => ':method', value => 'GET', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1210 { name => ':scheme', value => 'http', mode => 0 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1211 { name => ':path', value => '/proxy2/t2.html?2' },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	1212 { name => ':authority', value => 'localhost', mode => 1 },
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1213 { name => 'if-none-match', value => $etag }]});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1214 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1215
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1216 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1217 is($frame->{headers}->{':status'}, 304, 'proxy cache conditional');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1218
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1219 # HEADERS could be received with fin, followed by DATA
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1220
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1221 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1222 $sid = new_stream($sess, { path => '/proxy2/t2.html', method => 'HEAD' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1223
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1224 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1225 push @$frames, $_ for @{h2_read($sess, all => [{ sid => $sid }])};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1226 ok(!grep ({ $_->{type} eq "DATA" } @$frames), 'proxy cache HEAD - no body');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1227
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1228 # HEAD on empty cache with proxy_buffering off
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1229
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1230 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1231 $sid = new_stream($sess,
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1232 { path => '/proxy_buffering_off/t2.html?1', method => 'HEAD' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1233
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1234 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1235 push @$frames, $_ for @{h2_read($sess, all => [{ sid => $sid }])};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1236 ok(!grep ({ $_->{type} eq "DATA" } @$frames),
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1237 'proxy cache HEAD buffering off - no body');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1238
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1239 # request body (uses proxied response)
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1240
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1241 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1242 $sid = new_stream($sess, { path => '/proxy2/t2.html', body => 'TEST' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1243 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1244
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1245 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1246 is($frame->{headers}->{'x-body'}, 'TEST', 'request body');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1247
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1248 # request body with padding (uses proxied response)
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1249
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1250 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1251 $sid = new_stream($sess,
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1252 { path => '/proxy2/t2.html', body => 'TEST', body_padding => 42 });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1253 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1254
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1255 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1256 is($frame->{headers}->{'x-body'}, 'TEST', 'request body with padding');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1257
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1258 $sid = new_stream($sess);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1259 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1260
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1261 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1262 is($frame->{headers}->{':status'}, '200', 'request body with padding - next');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1263
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1264 # initial window size, client side
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1265
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1266 # 6.9.2. Initial Flow-Control Window Size
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1267 # When an HTTP/2 connection is first established, new streams are
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1268 # created with an initial flow-control window size of 65,535 octets.
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1269 # The connection flow-control window is also 65,535 octets.
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1270
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1271 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1272 $sid = new_stream($sess, { path => '/t1.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1273 $frames = h2_read($sess, all => [{ sid => $sid, length => 2**16 - 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1274
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1275 # with the default http2_chunk_size, data is divided into 8 data frames
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1276
651 9f66f0029dca Tests: HTTP/2 tests for http2_chunk_size directive. Sergey Kandaurov <pluknet@nginx.com> parents: 650 diff changeset	1277 @data = grep { $_->{type} eq "DATA" } @$frames;
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1278 my $lengths = join ' ', map { $_->{length} } @data;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1279 is($lengths, '8192 8192 8192 8192 8192 8192 8192 8191',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1280 'iws - stream blocked on initial window size');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1281
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1282 h2_ping($sess, 'SEE-THIS');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1283 $frames = h2_read($sess, all => [{ type => 'PING' }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1284
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1285 ($frame) = grep { $_->{type} eq "PING" && $_->{flags} & 0x1 } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1286 ok($frame, 'iws - PING not blocked');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1287
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1288 h2_window($sess, 2**16, $sid);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1289 $frames = h2_read($sess);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1290 is(@$frames, 0, 'iws - updated stream window');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1291
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1292 h2_window($sess, 2**16);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1293 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1294
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1295 @data = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1296 my $sum = eval join '+', map { $_->{length} } @data;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1297 is($sum, 81, 'iws - updated connection window');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1298
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1299 # SETTINGS (initial window size, client side)
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1300
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1301 # 6.9.2. Initial Flow-Control Window Size
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1302 # Both endpoints can adjust the initial window size for new streams by
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1303 # including a value for SETTINGS_INITIAL_WINDOW_SIZE in the SETTINGS
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1304 # frame that forms part of the connection preface. The connection
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1305 # flow-control window can only be changed using WINDOW_UPDATE frames.
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1306
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1307 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1308 h2_settings($sess, 0, 0x4 => 2**17);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1309 h2_window($sess, 2**17);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1310
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1311 $sid = new_stream($sess, { path => '/t1.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1312 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1313
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1314 @data = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1315 $sum = eval join '+', map { $_->{length} } @data;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1316 is($sum, 2**16 + 80, 'iws - increased');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1317
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1318 # probe for negative available space in a flow control window
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1319
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1320 # 6.9.2. Initial Flow-Control Window Size
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1321 # A change to SETTINGS_INITIAL_WINDOW_SIZE can cause the available
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1322 # space in a flow-control window to become negative. A sender MUST
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1323 # track the negative flow-control window and MUST NOT send new flow-
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1324 # controlled frames until it receives WINDOW_UPDATE frames that cause
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1325 # the flow-control window to become positive.
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1326
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1327 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1328 $sid = new_stream($sess, { path => '/t1.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1329 h2_read($sess, all => [{ sid => $sid, length => 2**16 - 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1330
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1331 h2_window($sess, 1);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1332 h2_settings($sess, 0, 0x4 => 42);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1333 h2_window($sess, 1024, $sid);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1334
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1335 $frames = h2_read($sess, all => [{ type => 'SETTINGS' }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1336
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1337 ($frame) = grep { $_->{type} eq 'SETTINGS' } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1338 ok($frame, 'negative window - SETTINGS frame ack');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1339 is($frame->{flags}, 1, 'negative window - SETTINGS flags ack');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1340
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1341 ($frame) = grep { $_->{type} ne 'SETTINGS' } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1342 is($frame, undef, 'negative window - no data');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1343
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1344 # predefined window size, minus new iws settings, minus window update
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1345
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1346 h2_window($sess, 2**16 - 1 - 42 - 1024, $sid);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1347
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1348 $frames = h2_read($sess);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1349 is(@$frames, 0, 'zero window - no data');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1350
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1351 h2_window($sess, 1, $sid);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1352
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1353 $frames = h2_read($sess, all => [{ sid => $sid, length => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1354 is(@$frames, 1, 'positive window');
712 649af6069976 Tests: skipped some HTTP/2 tests is case of a failed connection. Sergey Kandaurov <pluknet@nginx.com> parents: 707 diff changeset	1355
649af6069976 Tests: skipped some HTTP/2 tests is case of a failed connection. Sergey Kandaurov <pluknet@nginx.com> parents: 707 diff changeset	1356 SKIP: {
649af6069976 Tests: skipped some HTTP/2 tests is case of a failed connection. Sergey Kandaurov <pluknet@nginx.com> parents: 707 diff changeset	1357 skip 'failed connection', 2 unless @$frames;
649af6069976 Tests: skipped some HTTP/2 tests is case of a failed connection. Sergey Kandaurov <pluknet@nginx.com> parents: 707 diff changeset	1358
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1359 is(@$frames[0]->{type}, 'DATA', 'positive window - data');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1360 is(@$frames[0]->{length}, 1, 'positive window - data length');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1361
712 649af6069976 Tests: skipped some HTTP/2 tests is case of a failed connection. Sergey Kandaurov <pluknet@nginx.com> parents: 707 diff changeset	1362 }
649af6069976 Tests: skipped some HTTP/2 tests is case of a failed connection. Sergey Kandaurov <pluknet@nginx.com> parents: 707 diff changeset	1363
704 626bc3a0fdaa Tests: SPDY and HTTP/2 write handler tests. Sergey Kandaurov <pluknet@nginx.com> parents: 702 diff changeset	1364 # ask write handler in sending large response
626bc3a0fdaa Tests: SPDY and HTTP/2 write handler tests. Sergey Kandaurov <pluknet@nginx.com> parents: 702 diff changeset	1365
626bc3a0fdaa Tests: SPDY and HTTP/2 write handler tests. Sergey Kandaurov <pluknet@nginx.com> parents: 702 diff changeset	1366 $sid = new_stream($sess, { path => '/tbig.html' });
626bc3a0fdaa Tests: SPDY and HTTP/2 write handler tests. Sergey Kandaurov <pluknet@nginx.com> parents: 702 diff changeset	1367
626bc3a0fdaa Tests: SPDY and HTTP/2 write handler tests. Sergey Kandaurov <pluknet@nginx.com> parents: 702 diff changeset	1368 h2_window($sess, 2**30, $sid);
626bc3a0fdaa Tests: SPDY and HTTP/2 write handler tests. Sergey Kandaurov <pluknet@nginx.com> parents: 702 diff changeset	1369 h2_window($sess, 2**30);
626bc3a0fdaa Tests: SPDY and HTTP/2 write handler tests. Sergey Kandaurov <pluknet@nginx.com> parents: 702 diff changeset	1370
626bc3a0fdaa Tests: SPDY and HTTP/2 write handler tests. Sergey Kandaurov <pluknet@nginx.com> parents: 702 diff changeset	1371 sleep 1;
626bc3a0fdaa Tests: SPDY and HTTP/2 write handler tests. Sergey Kandaurov <pluknet@nginx.com> parents: 702 diff changeset	1372 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
626bc3a0fdaa Tests: SPDY and HTTP/2 write handler tests. Sergey Kandaurov <pluknet@nginx.com> parents: 702 diff changeset	1373
626bc3a0fdaa Tests: SPDY and HTTP/2 write handler tests. Sergey Kandaurov <pluknet@nginx.com> parents: 702 diff changeset	1374 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
626bc3a0fdaa Tests: SPDY and HTTP/2 write handler tests. Sergey Kandaurov <pluknet@nginx.com> parents: 702 diff changeset	1375 is($frame->{headers}->{':status'}, 200, 'large response - HEADERS');
626bc3a0fdaa Tests: SPDY and HTTP/2 write handler tests. Sergey Kandaurov <pluknet@nginx.com> parents: 702 diff changeset	1376
626bc3a0fdaa Tests: SPDY and HTTP/2 write handler tests. Sergey Kandaurov <pluknet@nginx.com> parents: 702 diff changeset	1377 @data = grep { $_->{type} eq "DATA" } @$frames;
626bc3a0fdaa Tests: SPDY and HTTP/2 write handler tests. Sergey Kandaurov <pluknet@nginx.com> parents: 702 diff changeset	1378 $sum = eval join '+', map { $_->{length} } @data;
723 bc4d6e2bd031 Tests: adjusted HTTP/2 test to trigger write handler in v2 module. Sergey Kandaurov <pluknet@nginx.com> parents: 722 diff changeset	1379 is($sum, 5000000, 'large response - DATA');
704 626bc3a0fdaa Tests: SPDY and HTTP/2 write handler tests. Sergey Kandaurov <pluknet@nginx.com> parents: 702 diff changeset	1380
740 3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1381 # stream with large response queued on write - RST_STREAM handling
3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1382
3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1383 $sess = new_session();
3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1384 $sid = new_stream($sess, { path => '/tbig.html' });
3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1385
3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1386 h2_window($sess, 2**30, $sid);
3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1387 h2_window($sess, 2**30);
3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1388
3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1389 select undef, undef, undef, 0.4;
3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1390
3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1391 h2_rst($sess, $sid, 8);
3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1392 h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1393
3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1394 $sid = new_stream($sess);
3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1395 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1396
3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1397 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1398 is($frame->{sid}, 3, 'large response - queued with RST_STREAM');
3e2676108d69 Tests: added HTTP/2 test for queued stream cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 739 diff changeset	1399
680 85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1400 # SETTINGS_MAX_FRAME_SIZE
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1401
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1402 $sess = new_session();
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1403 $sid = new_stream($sess, { path => '/frame_size' });
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1404 h2_window($sess, 2**18, 1);
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1405 h2_window($sess, 2**18);
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1406
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1407 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1408 @data = grep { $_->{type} eq "DATA" } @$frames;
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1409 is($data[0]->{length}, 2**14, 'max frame size - default');
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1410
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1411 $sess = new_session();
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1412 h2_settings($sess, 0, 0x5 => 2**15);
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1413 $sid = new_stream($sess, { path => '/frame_size' });
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1414 h2_window($sess, 2**18, 1);
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1415 h2_window($sess, 2**18);
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1416
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1417 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1418 @data = grep { $_->{type} eq "DATA" } @$frames;
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1419 is($data[0]->{length}, 2**15, 'max frame size - custom');
85e368105c8b Tests: added HTTP/2 tests for SETTINGS_MAX_FRAME_SIZE. Sergey Kandaurov <pluknet@nginx.com> parents: 679 diff changeset	1420
696 beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	1421 # CONTINUATION in response
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	1422 # put three long header fields (not less than SETTINGS_MAX_FRAME_SIZE/2)
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	1423 # to break header block into separate frames, one such field per frame
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	1424
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	1425 $sess = new_session();
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	1426 $sid = new_stream($sess, { path => '/continuation?h=' . 'x' x 2**13 });
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	1427
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	1428 $frames = h2_read($sess, all => [{ sid => $sid, fin => 0x4 }]);
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	1429 @data = grep { $_->{type} =~ "HEADERS\|CONTINUATION" } @$frames;
718 ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1430 is(@{$data[-1]->{headers}{'x-longheader'}}, 3,
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1431 'response CONTINUATION - headers');
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1432 is($data[-1]->{headers}{'x-longheader'}[0], 'x' x 2**13,
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1433 'response CONTINUATION - header 1');
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1434 is($data[-1]->{headers}{'x-longheader'}[1], 'x' x 2**13,
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1435 'response CONTINUATION - header 2');
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1436 is($data[-1]->{headers}{'x-longheader'}[2], 'x' x 2**13,
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1437 'response CONTINUATION - header 3');
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1438 @data = sort { $a <=> $b } map { $_->{length} } @data;
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1439 cmp_ok($data[-1], '<=', 2**14, 'response CONTINUATION - max frame size');
696 beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	1440
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	1441 # same but without response DATA frames
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	1442
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	1443 $sess = new_session();
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	1444 $sid = new_stream($sess, { path => '/continuation/204?h=' . 'x' x 2**13 });
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	1445
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	1446 $frames = h2_read($sess, all => [{ sid => $sid, fin => 0x4 }]);
beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	1447 @data = grep { $_->{type} =~ "HEADERS\|CONTINUATION" } @$frames;
718 ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1448 is(@{$data[-1]->{headers}{'x-longheader'}}, 3,
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1449 'no body CONTINUATION - headers');
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1450 is($data[-1]->{headers}{'x-longheader'}[0], 'x' x 2**13,
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1451 'no body CONTINUATION - header 1');
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1452 is($data[-1]->{headers}{'x-longheader'}[1], 'x' x 2**13,
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1453 'no body CONTINUATION - header 2');
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1454 is($data[-1]->{headers}{'x-longheader'}[2], 'x' x 2**13,
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1455 'no body CONTINUATION - header 3');
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1456 @data = sort { $a <=> $b } map { $_->{length} } @data;
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	1457 cmp_ok($data[-1], '<=', 2**14, 'no body CONTINUATION - max frame size');
696 beab9da9b731 Tests: added HTTP/2 tests for CONTINUATION frame in response. Sergey Kandaurov <pluknet@nginx.com> parents: 694 diff changeset	1458
698 f86c8314d205 Tests: one more HTTP/2 test for max frame size. Sergey Kandaurov <pluknet@nginx.com> parents: 697 diff changeset	1459 # response header block is always split by SETTINGS_MAX_FRAME_SIZE
f86c8314d205 Tests: one more HTTP/2 test for max frame size. Sergey Kandaurov <pluknet@nginx.com> parents: 697 diff changeset	1460
f86c8314d205 Tests: one more HTTP/2 test for max frame size. Sergey Kandaurov <pluknet@nginx.com> parents: 697 diff changeset	1461 TODO: {
f86c8314d205 Tests: one more HTTP/2 test for max frame size. Sergey Kandaurov <pluknet@nginx.com> parents: 697 diff changeset	1462 local $TODO = 'not yet';
f86c8314d205 Tests: one more HTTP/2 test for max frame size. Sergey Kandaurov <pluknet@nginx.com> parents: 697 diff changeset	1463
f86c8314d205 Tests: one more HTTP/2 test for max frame size. Sergey Kandaurov <pluknet@nginx.com> parents: 697 diff changeset	1464 $sess = new_session();
719 91bedf9d60a7 Tests: adjusted field length in HTTP/2 test for max frame size. Sergey Kandaurov <pluknet@nginx.com> parents: 718 diff changeset	1465 $sid = new_stream($sess, { path => '/continuation?h=' . 'x' x 2**15 });
698 f86c8314d205 Tests: one more HTTP/2 test for max frame size. Sergey Kandaurov <pluknet@nginx.com> parents: 697 diff changeset	1466
f86c8314d205 Tests: one more HTTP/2 test for max frame size. Sergey Kandaurov <pluknet@nginx.com> parents: 697 diff changeset	1467 $frames = h2_read($sess, all => [{ sid => $sid, fin => 0x4 }]);
f86c8314d205 Tests: one more HTTP/2 test for max frame size. Sergey Kandaurov <pluknet@nginx.com> parents: 697 diff changeset	1468 @data = grep { $_->{type} =~ "HEADERS\|CONTINUATION" } @$frames;
f86c8314d205 Tests: one more HTTP/2 test for max frame size. Sergey Kandaurov <pluknet@nginx.com> parents: 697 diff changeset	1469 @data = sort { $a <=> $b } map { $_->{length} } @data;
f86c8314d205 Tests: one more HTTP/2 test for max frame size. Sergey Kandaurov <pluknet@nginx.com> parents: 697 diff changeset	1470 cmp_ok($data[-1], '<=', 2**14, 'response header frames limited');
f86c8314d205 Tests: one more HTTP/2 test for max frame size. Sergey Kandaurov <pluknet@nginx.com> parents: 697 diff changeset	1471
f86c8314d205 Tests: one more HTTP/2 test for max frame size. Sergey Kandaurov <pluknet@nginx.com> parents: 697 diff changeset	1472 }
f86c8314d205 Tests: one more HTTP/2 test for max frame size. Sergey Kandaurov <pluknet@nginx.com> parents: 697 diff changeset	1473
684 96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1474 # max_field_size
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1475
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1476 $sess = new_session(8087);
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1477 $sid = new_stream($sess, { headers => [
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1478 { name => ':method', value => 'GET', mode => 0 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1479 { name => ':scheme', value => 'http', mode => 0 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1480 { name => ':path', value => '/t2.html', mode => 1 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1481 { name => ':authority', value => 'localhost', mode => 1 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1482 { name => 'longname10', value => 'valu5' x 4 . 'x', mode => 2 }]});
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1483 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1484
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1485 ($frame) = grep { $_->{type} eq 'DATA' } @$frames;
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1486 ok($frame, 'field size less');
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1487
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1488 $sid = new_stream($sess, { headers => [
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1489 { name => ':method', value => 'GET', mode => 0 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1490 { name => ':scheme', value => 'http', mode => 0 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1491 { name => ':path', value => '/t2.html', mode => 1 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1492 { name => ':authority', value => 'localhost', mode => 1 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1493 { name => 'longname10', value => 'valu5' x 4 . 'x', mode => 2 }]});
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1494 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1495
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1496 ($frame) = grep { $_->{type} eq 'DATA' } @$frames;
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1497 ok($frame, 'field size second');
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1498
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1499 $sess = new_session(8087);
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1500 $sid = new_stream($sess, { headers => [
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1501 { name => ':method', value => 'GET', mode => 0 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1502 { name => ':scheme', value => 'http', mode => 0 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1503 { name => ':path', value => '/t2.html', mode => 1 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1504 { name => ':authority', value => 'localhost', mode => 1 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1505 { name => 'longname10', value => 'valu5' x 4 . 'xx', mode => 2 }]});
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1506 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1507
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1508 ($frame) = grep { $_->{type} eq 'DATA' } @$frames;
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1509 ok($frame, 'field size equal');
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1510
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1511 $sess = new_session(8087);
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1512 $sid = new_stream($sess, { headers => [
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1513 { name => ':method', value => 'GET', mode => 0 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1514 { name => ':scheme', value => 'http', mode => 0 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1515 { name => ':path', value => '/t2.html', mode => 1 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1516 { name => ':authority', value => 'localhost', mode => 1 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1517 { name => 'longname10', value => 'valu5' x 4 . 'xxx', mode => 2 }]});
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1518 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1519
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1520 ($frame) = grep { $_->{type} eq 'DATA' } @$frames;
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1521 is($frame, undef, 'field size greater');
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1522
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1523 # max_header_size
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1524
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1525 $sess = new_session(8088);
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1526 $sid = new_stream($sess, { headers => [
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1527 { name => ':method', value => 'GET', mode => 0 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1528 { name => ':scheme', value => 'http', mode => 0 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1529 { name => ':path', value => '/t2.html', mode => 1 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1530 { name => ':authority', value => 'localhost', mode => 1 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1531 { name => 'longname9', value => 'x', mode => 2 }]});
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1532 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1533
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1534 ($frame) = grep { $_->{type} eq 'DATA' } @$frames;
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1535 ok($frame, 'header size less');
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1536
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1537 $sid = new_stream($sess, { headers => [
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1538 { name => ':method', value => 'GET', mode => 0 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1539 { name => ':scheme', value => 'http', mode => 0 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1540 { name => ':path', value => '/t2.html', mode => 1 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1541 { name => ':authority', value => 'localhost', mode => 1 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1542 { name => 'longname9', value => 'x', mode => 2 }]});
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1543 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1544
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1545 ($frame) = grep { $_->{type} eq 'DATA' } @$frames;
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1546 ok($frame, 'header size second');
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1547
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1548 $sess = new_session(8088);
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1549 $sid = new_stream($sess, { headers => [
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1550 { name => ':method', value => 'GET', mode => 0 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1551 { name => ':scheme', value => 'http', mode => 0 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1552 { name => ':path', value => '/t2.html', mode => 1 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1553 { name => ':authority', value => 'localhost', mode => 1 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1554 { name => 'longname9', value => 'xx', mode => 2 }]});
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1555 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1556
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1557 ($frame) = grep { $_->{type} eq 'DATA' } @$frames;
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1558 ok($frame, 'header size equal');
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1559
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1560 $sess = new_session(8088);
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1561 $sid = new_stream($sess, { headers => [
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1562 { name => ':method', value => 'GET', mode => 0 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1563 { name => ':scheme', value => 'http', mode => 0 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1564 { name => ':path', value => '/t2.html', mode => 1 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1565 { name => ':authority', value => 'localhost', mode => 1 },
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1566 { name => 'longname9', value => 'xxx', mode => 2 }]});
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1567 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1568
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1569 ($frame) = grep { $_->{type} eq 'DATA' } @$frames;
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1570 is($frame, undef, 'header size greater');
96666f621dbc Tests: added http2_max_field_size and http2_max_header_size tests. Sergey Kandaurov <pluknet@nginx.com> parents: 680 diff changeset	1571
722 e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1572 # header size is based on (decompressed) header list
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1573 # two extra 1-byte indices would otherwise fit in max_header_size
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1574
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1575 $sess = new_session(8088);
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1576 $sid = new_stream($sess, { headers => [
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1577 { name => ':method', value => 'GET', mode => 0 },
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1578 { name => ':scheme', value => 'http', mode => 0 },
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1579 { name => ':path', value => '/t2.html', mode => 1 },
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1580 { name => ':authority', value => 'localhost', mode => 1 },
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1581 { name => 'longname9', value => 'x', mode => 2 }]});
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1582 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1583
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1584 ($frame) = grep { $_->{type} eq 'DATA' } @$frames;
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1585 ok($frame, 'header size new index');
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1586
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1587 $sid = new_stream($sess, { headers => [
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1588 { name => ':method', value => 'GET', mode => 0 },
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1589 { name => ':scheme', value => 'http', mode => 0 },
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1590 { name => ':path', value => '/t2.html', mode => 1 },
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1591 { name => ':authority', value => 'localhost', mode => 1 },
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1592 { name => 'longname9', value => 'x', mode => 0 }]});
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1593 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1594
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1595 ($frame) = grep { $_->{type} eq 'DATA' } @$frames;
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1596 ok($frame, 'header size indexed');
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1597
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1598 $sid = new_stream($sess, { headers => [
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1599 { name => ':method', value => 'GET', mode => 0 },
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1600 { name => ':scheme', value => 'http', mode => 0 },
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1601 { name => ':path', value => '/t2.html', mode => 1 },
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1602 { name => ':authority', value => 'localhost', mode => 1 },
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1603 { name => 'longname9', value => 'x', mode => 0 },
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1604 { name => 'longname9', value => 'x', mode => 0 }]});
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1605 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1606
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1607 ($frame) = grep { $_->{type} eq 'GOAWAY' } @$frames;
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1608 is($frame->{code}, 0xb, 'header size indexed greater');
e09a6cda6764 Tests: added HTTP/2 max_header_size tests for indexed header field. Sergey Kandaurov <pluknet@nginx.com> parents: 721 diff changeset	1609
736 dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1610 # HPACK table boundary
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1611
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1612 $sess = new_session();
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1613 h2_read($sess, all => [{ sid => new_stream($sess, { headers => [
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1614 { name => ':method', value => 'GET', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1615 { name => ':scheme', value => 'http', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1616 { name => ':path', value => '/', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1617 { name => ':authority', value => '', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1618 { name => 'x' x 2016, value => 'x' x 2048, mode => 2 }]}), fin => 1 }]);
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1619 $frames = h2_read($sess, all => [{ sid => new_stream($sess, { headers => [
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1620 { name => ':method', value => 'GET', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1621 { name => ':scheme', value => 'http', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1622 { name => ':path', value => '/', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1623 { name => ':authority', value => '', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1624 { name => 'x' x 2016, value => 'x' x 2048, mode => 0 }]}), fin => 1 }]);
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1625
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1626 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1627 ok($frame, 'HPACK table boundary');
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1628
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1629 h2_read($sess, all => [{ sid => new_stream($sess, { headers => [
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1630 { name => ':method', value => 'GET', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1631 { name => ':scheme', value => 'http', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1632 { name => ':path', value => '/', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1633 { name => ':authority', value => '', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1634 { name => 'x' x 33, value => 'x' x 4031, mode => 2 }]}), fin => 1 }]);
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1635 $frames = h2_read($sess, all => [{ sid => new_stream($sess, { headers => [
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1636 { name => ':method', value => 'GET', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1637 { name => ':scheme', value => 'http', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1638 { name => ':path', value => '/', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1639 { name => ':authority', value => '', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1640 { name => 'x' x 33, value => 'x' x 4031, mode => 0 }]}), fin => 1 }]);
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1641
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1642 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1643 ok($frame, 'HPACK table boundary - header field name');
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1644
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1645 h2_read($sess, all => [{ sid => new_stream($sess, { headers => [
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1646 { name => ':method', value => 'GET', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1647 { name => ':scheme', value => 'http', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1648 { name => ':path', value => '/', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1649 { name => ':authority', value => '', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1650 { name => 'x', value => 'x' x 64, mode => 2 }]}), fin => 1 }]);
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1651 $frames = h2_read($sess, all => [{ sid => new_stream($sess, { headers => [
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1652 { name => ':method', value => 'GET', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1653 { name => ':scheme', value => 'http', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1654 { name => ':path', value => '/', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1655 { name => ':authority', value => '', mode => 0 },
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1656 { name => 'x', value => 'x' x 64, mode => 0 }]}), fin => 1 }]);
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1657
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1658 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1659 ok($frame, 'HPACK table boundary - header field value');
dcbe4c3d6871 Tests: added HTTP/2 tests for HPACK table boundary. Sergey Kandaurov <pluknet@nginx.com> parents: 735 diff changeset	1660
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1661 # stream multiplexing + WINDOW_UPDATE
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1662
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1663 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1664 $sid = new_stream($sess, { path => '/t1.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1665 $frames = h2_read($sess, all => [{ sid => $sid, length => 2**16 - 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1666
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1667 @data = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1668 $sum = eval join '+', map { $_->{length} } @data;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1669 is($sum, 2**16 - 1, 'multiple - stream1 data');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1670
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1671 my $sid2 = new_stream($sess, { path => '/t1.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1672 $frames = h2_read($sess, all => [{ sid => $sid2, fin => 0x4 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1673
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1674 @data = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1675 is(@data, 0, 'multiple - stream2 no data');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1676
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1677 h2_window($sess, 2**17, $sid);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1678 h2_window($sess, 2**17, $sid2);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1679 h2_window($sess, 2**17);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1680
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1681 $frames = h2_read($sess, all => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1682 { sid => $sid, fin => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1683 { sid => $sid2, fin => 1 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1684 ]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1685
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1686 @data = grep { $_->{type} eq "DATA" && $_->{sid} == $sid } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1687 $sum = eval join '+', map { $_->{length} } @data;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1688 is($sum, 81, 'multiple - stream1 remain data');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1689
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1690 @data = grep { $_->{type} eq "DATA" && $_->{sid} == $sid2 } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1691 $sum = eval join '+', map { $_->{length} } @data;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1692 is($sum, 2**16 + 80, 'multiple - stream2 full data');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1693
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1694 # stream muliplexing + PRIORITY frames
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1695
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1696 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1697 $sid = new_stream($sess, { path => '/t1.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1698 h2_read($sess, all => [{ sid => $sid, length => 2**16 - 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1699
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1700 $sid2 = new_stream($sess, { path => '/t2.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1701 h2_read($sess, all => [{ sid => $sid2, fin => 0x4 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1702
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1703 h2_priority($sess, 0, $sid);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1704 h2_priority($sess, 255, $sid2);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1705
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1706 h2_window($sess, 2**17, $sid);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1707 h2_window($sess, 2**17, $sid2);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1708 h2_window($sess, 2**17);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1709
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1710 $frames = h2_read($sess, all => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1711 { sid => $sid, fin => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1712 { sid => $sid2, fin => 1 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1713 ]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1714
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1715 @data = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1716 is(join(' ', map { $_->{sid} } @data), "$sid2 $sid", 'weight - PRIORITY 1');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1717
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1718 # and vice versa
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1719
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1720 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1721 $sid = new_stream($sess, { path => '/t1.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1722 h2_read($sess, all => [{ sid => $sid, length => 2**16 - 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1723
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1724 $sid2 = new_stream($sess, { path => '/t2.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1725 h2_read($sess, all => [{ sid => $sid2, fin => 0x4 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1726
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1727 h2_priority($sess, 255, $sid);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1728 h2_priority($sess, 0, $sid2);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1729
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1730 h2_window($sess, 2**17, $sid);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1731 h2_window($sess, 2**17, $sid2);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1732 h2_window($sess, 2**17);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1733
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1734 $frames = h2_read($sess, all => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1735 { sid => $sid, fin => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1736 { sid => $sid2, fin => 1 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1737 ]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1738
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1739 @data = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1740 is(join(' ', map { $_->{sid} } @data), "$sid $sid2", 'weight - PRIORITY 2');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1741
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1742 # stream muliplexing + HEADERS PRIORITY flag
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1743
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1744 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1745 $sid = new_stream($sess, { path => '/t1.html', prio => 0 });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1746 h2_read($sess, all => [{ sid => $sid, length => 2**16 - 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1747
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1748 $sid2 = new_stream($sess, { path => '/t2.html', prio => 255 });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1749 h2_read($sess, all => [{ sid => $sid2, fin => 0x4 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1750
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1751 h2_window($sess, 2**17, $sid);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1752 h2_window($sess, 2**17, $sid2);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1753 h2_window($sess, 2**17);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1754
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1755 $frames = h2_read($sess, all => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1756 { sid => $sid, fin => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1757 { sid => $sid2, fin => 1 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1758 ]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1759
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1760 @data = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1761 my $sids = join ' ', map { $_->{sid} } @data;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1762 is($sids, "$sid2 $sid", 'weight - HEADERS PRIORITY 1');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1763
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1764 # and vice versa
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1765
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1766 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1767 $sid = new_stream($sess, { path => '/t1.html', prio => 255 });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1768 h2_read($sess, all => [{ sid => $sid, length => 2**16 - 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1769
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1770 $sid2 = new_stream($sess, { path => '/t2.html', prio => 0 });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1771 h2_read($sess, all => [{ sid => $sid2, fin => 0x4 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1772
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1773 h2_window($sess, 2**17, $sid);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1774 h2_window($sess, 2**17, $sid2);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1775 h2_window($sess, 2**17);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1776
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1777 $frames = h2_read($sess, all => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1778 { sid => $sid, fin => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1779 { sid => $sid2, fin => 1 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1780 ]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1781
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1782 @data = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1783 $sids = join ' ', map { $_->{sid} } @data;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1784 is($sids, "$sid $sid2", 'weight - HEADERS PRIORITY 2');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1785
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1786 # 5.3.1. Stream Dependencies
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1787
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1788 # PRIORITY frame
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1789
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1790 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1791
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1792 h2_priority($sess, 16, 3, 0);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1793 h2_priority($sess, 16, 1, 3);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1794
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1795 $sid = new_stream($sess, { path => '/t1.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1796 h2_read($sess, all => [{ sid => $sid, length => 2**16 - 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1797
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1798 $sid2 = new_stream($sess, { path => '/t2.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1799 h2_read($sess, all => [{ sid => $sid2, fin => 0x4 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1800
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1801 h2_window($sess, 2**17, $sid);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1802 h2_window($sess, 2**17, $sid2);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1803 h2_window($sess, 2**17);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1804
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1805 $frames = h2_read($sess, all => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1806 { sid => $sid, fin => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1807 { sid => $sid2, fin => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1808 ]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1809
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1810 @data = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1811 $sids = join ' ', map { $_->{sid} } @data;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1812 is($sids, "$sid2 $sid", 'dependency - PRIORITY 1');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1813
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1814 # and vice versa
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1815
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1816 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1817
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1818 h2_priority($sess, 16, 1, 0);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1819 h2_priority($sess, 16, 3, 1);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1820
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1821 $sid = new_stream($sess, { path => '/t1.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1822 h2_read($sess, all => [{ sid => $sid, length => 2**16 - 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1823
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1824 $sid2 = new_stream($sess, { path => '/t2.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1825 h2_read($sess, all => [{ sid => $sid2, fin => 0x4 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1826
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1827 h2_window($sess, 2**17, $sid);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1828 h2_window($sess, 2**17, $sid2);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1829 h2_window($sess, 2**17);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1830
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1831 $frames = h2_read($sess, all => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1832 { sid => $sid, fin => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1833 { sid => $sid2, fin => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1834 ]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1835
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1836 @data = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1837 $sids = join ' ', map { $_->{sid} } @data;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1838 is($sids, "$sid $sid2", 'dependency - PRIORITY 2');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1839
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1840 # HEADERS PRIORITY flag, reprioritize prior PRIORITY frame records
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1841
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1842 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1843
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1844 h2_priority($sess, 16, 1, 0);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1845 h2_priority($sess, 16, 3, 0);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1846
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1847 $sid = new_stream($sess, { path => '/t1.html', dep => 3 });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1848 h2_read($sess, all => [{ sid => $sid, length => 2**16 - 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1849
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1850 $sid2 = new_stream($sess, { path => '/t2.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1851 h2_read($sess, all => [{ sid => $sid2, fin => 0x4 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1852
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1853 h2_window($sess, 2**17, $sid);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1854 h2_window($sess, 2**17, $sid2);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1855 h2_window($sess, 2**17);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1856
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1857 $frames = h2_read($sess, all => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1858 { sid => $sid, fin => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1859 { sid => $sid2, fin => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1860 ]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1861
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1862 @data = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1863 $sids = join ' ', map { $_->{sid} } @data;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1864 is($sids, "$sid2 $sid", 'dependency - HEADERS PRIORITY 1');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1865
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1866 # and vice versa
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1867
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1868 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1869
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1870 h2_priority($sess, 16, 1, 0);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1871 h2_priority($sess, 16, 3, 0);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1872
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1873 $sid = new_stream($sess, { path => '/t1.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1874 h2_read($sess, all => [{ sid => $sid, length => 2**16 - 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1875
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1876 $sid2 = new_stream($sess, { path => '/t2.html', dep => 1 });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1877 h2_read($sess, all => [{ sid => $sid2, fin => 0x4 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1878
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1879 h2_window($sess, 2**17, $sid);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1880 h2_window($sess, 2**17, $sid2);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1881 h2_window($sess, 2**17);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1882
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1883 $frames = h2_read($sess, all => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1884 { sid => $sid, fin => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1885 { sid => $sid2, fin => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1886 ]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1887
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1888 @data = grep { $_->{type} eq "DATA" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1889 $sids = join ' ', map { $_->{sid} } @data;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1890 is($sids, "$sid $sid2", 'dependency - HEADERS PRIORITY 2');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1891
662 07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1892 # PRIORITY frame, weighted dependencies
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1893
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1894 $sess = new_session();
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1895
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1896 h2_priority($sess, 16, 5, 0);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1897 h2_priority($sess, 255, 1, 5);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1898 h2_priority($sess, 0, 3, 5);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1899
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1900 $sid = new_stream($sess, { path => '/t1.html' });
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1901 h2_read($sess, all => [{ sid => $sid, length => 2**16 - 1 }]);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1902
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1903 $sid2 = new_stream($sess, { path => '/t2.html' });
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1904 h2_read($sess, all => [{ sid => $sid2, fin => 0x4 }]);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1905
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1906 my $sid3 = new_stream($sess, { path => '/t2.html' });
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1907 h2_read($sess, all => [{ sid => $sid2, fin => 0x4 }]);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1908
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1909 h2_window($sess, 2**16, 1);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1910 h2_window($sess, 2**16, 3);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1911 h2_window($sess, 2**16, 5);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1912 h2_window($sess, 2**16);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1913
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1914 $frames = h2_read($sess, all => [
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1915 { sid => $sid, fin => 1 },
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1916 { sid => $sid2, fin => 1 },
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1917 { sid => $sid3, fin => 1 },
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1918 ]);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1919
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1920 @data = grep { $_->{type} eq "DATA" } @$frames;
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1921 $sids = join ' ', map { $_->{sid} } @data;
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1922 is($sids, "$sid3 $sid $sid2", 'weighted dependency - PRIORITY 1');
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1923
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1924 # and vice versa
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1925
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1926 $sess = new_session();
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1927
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1928 h2_priority($sess, 16, 5, 0);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1929 h2_priority($sess, 0, 1, 5);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1930 h2_priority($sess, 255, 3, 5);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1931
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1932 $sid = new_stream($sess, { path => '/t1.html' });
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1933 h2_read($sess, all => [{ sid => $sid, length => 2**16 - 1 }]);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1934
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1935 $sid2 = new_stream($sess, { path => '/t2.html' });
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1936 h2_read($sess, all => [{ sid => $sid2, fin => 0x4 }]);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1937
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1938 $sid3 = new_stream($sess, { path => '/t2.html' });
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1939 h2_read($sess, all => [{ sid => $sid2, fin => 0x4 }]);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1940
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1941 h2_window($sess, 2**16, 1);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1942 h2_window($sess, 2**16, 3);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1943 h2_window($sess, 2**16, 5);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1944 h2_window($sess, 2**16);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1945
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1946 $frames = h2_read($sess, all => [
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1947 { sid => $sid, fin => 1 },
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1948 { sid => $sid2, fin => 1 },
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1949 { sid => $sid3, fin => 1 },
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1950 ]);
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1951
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1952 @data = grep { $_->{type} eq "DATA" } @$frames;
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1953 $sids = join ' ', map { $_->{sid} } @data;
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1954 is($sids, "$sid3 $sid2 $sid", 'weighted dependency - PRIORITY 2');
07de3d202eb7 Tests: more HTTP/2 tests for streams priority. Sergey Kandaurov <pluknet@nginx.com> parents: 661 diff changeset	1955
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1956 # limit_conn
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1957
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1958 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1959 h2_settings($sess, 0, 0x4 => 1);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1960
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1961 $sid = new_stream($sess, { path => '/t3.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1962 $frames = h2_read($sess, all => [{ sid => $sid, length => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1963
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1964 ($frame) = grep { $_->{type} eq "HEADERS" && $_->{sid} == $sid } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1965 is($frame->{headers}->{':status'}, 200, 'limit_conn first stream');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1966
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1967 $sid2 = new_stream($sess, { path => '/t3.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1968 $frames = h2_read($sess, all => [{ sid => $sid2, fin => 0 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1969
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1970 ($frame) = grep { $_->{type} eq "HEADERS" && $_->{sid} == $sid2 } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1971 is($frame->{headers}->{':status'}, 503, 'limit_conn rejected');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1972
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1973 h2_settings($sess, 0, 0x4 => 2**16);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1974
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1975 h2_read($sess, all => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1976 { sid => $sid, fin => 1 },
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1977 { sid => $sid2, fin => 1 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1978 ]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1979
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1980 # limit_conn + client's RST_STREAM
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1981
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1982 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1983 h2_settings($sess, 0, 0x4 => 1);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1984
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1985 $sid = new_stream($sess, { path => '/t3.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1986 $frames = h2_read($sess, all => [{ sid => $sid, length => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1987 h2_rst($sess, $sid, 5);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1988
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1989 ($frame) = grep { $_->{type} eq "HEADERS" && $_->{sid} == $sid } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1990 is($frame->{headers}->{':status'}, 200, 'RST_STREAM 1');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1991
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1992 $sid2 = new_stream($sess, { path => '/t3.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1993 $frames = h2_read($sess, all => [{ sid => $sid2, fin => 0 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1994
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1995 ($frame) = grep { $_->{type} eq "HEADERS" && $_->{sid} == $sid2 } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1996 is($frame->{headers}->{':status'}, 200, 'RST_STREAM 2');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	1997
654 a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	1998 # http2_max_concurrent_streams
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	1999
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2000 $sess = new_session(8086);
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2001 $frames = h2_read($sess, all => [{ type => 'SETTINGS' }]);
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2002
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2003 ($frame) = grep { $_->{type} eq 'SETTINGS' } @$frames;
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2004 is($frame->{3}, 1, 'http2_max_concurrent_streams SETTINGS');
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2005
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2006 h2_window($sess, 2**18);
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2007
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2008 $sid = new_stream($sess, { path => '/t1.html' });
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2009 $frames = h2_read($sess, all => [{ sid => $sid, length => 2 ** 16 - 1 }]);
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2010
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2011 ($frame) = grep { $_->{type} eq "HEADERS" && $_->{sid} == $sid } @$frames;
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2012 is($frame->{headers}->{':status'}, 200, 'http2_max_concurrent_streams');
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2013
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2014 $sid2 = new_stream($sess, { path => '/t1.html' });
667 0247e314e991 Tests: more HTTP/2 error handling tests. Sergey Kandaurov <pluknet@nginx.com> parents: 662 diff changeset	2015 $frames = h2_read($sess, all => [{ type => 'RST_STREAM' }]);
654 a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2016
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2017 ($frame) = grep { $_->{type} eq "HEADERS" && $_->{sid} == $sid2 } @$frames;
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2018 isnt($frame->{headers}->{':status'}, 200, 'http2_max_concurrent_streams 2');
a64fe1054fb4 Tests: HTTP/2 tests for http2_max_concurrent_streams directive. Sergey Kandaurov <pluknet@nginx.com> parents: 653 diff changeset	2019
667 0247e314e991 Tests: more HTTP/2 error handling tests. Sergey Kandaurov <pluknet@nginx.com> parents: 662 diff changeset	2020 ($frame) = grep { $_->{type} eq "RST_STREAM" && $_->{sid} == $sid2 } @$frames;
0247e314e991 Tests: more HTTP/2 error handling tests. Sergey Kandaurov <pluknet@nginx.com> parents: 662 diff changeset	2021 is($frame->{sid}, $sid2, 'http2_max_concurrent_streams RST_STREAM sid');
0247e314e991 Tests: more HTTP/2 error handling tests. Sergey Kandaurov <pluknet@nginx.com> parents: 662 diff changeset	2022 is($frame->{length}, 4, 'http2_max_concurrent_streams RST_STREAM length');
0247e314e991 Tests: more HTTP/2 error handling tests. Sergey Kandaurov <pluknet@nginx.com> parents: 662 diff changeset	2023 is($frame->{flags}, 0, 'http2_max_concurrent_streams RST_STREAM flags');
0247e314e991 Tests: more HTTP/2 error handling tests. Sergey Kandaurov <pluknet@nginx.com> parents: 662 diff changeset	2024 is($frame->{code}, 7, 'http2_max_concurrent_streams RST_STREAM code');
0247e314e991 Tests: more HTTP/2 error handling tests. Sergey Kandaurov <pluknet@nginx.com> parents: 662 diff changeset	2025
715 9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2026 # properly skip header field that's not/never indexed from discarded streams
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2027
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2028 $sid2 = new_stream($sess, { headers => [
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2029 { name => ':method', value => 'GET' },
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2030 { name => ':scheme', value => 'http' },
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2031 { name => ':path', value => '/', mode => 6 },
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2032 { name => ':authority', value => 'localhost' },
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2033 { name => 'x-foo', value => 'Foo', mode => 2 }]});
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2034 $frames = h2_read($sess, all => [{ type => 'RST_STREAM' }]);
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2035
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2036 # also if split across writes
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2037
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2038 $sid2 = new_stream($sess, { split => [ 22 ], headers => [
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2039 { name => ':method', value => 'GET' },
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2040 { name => ':scheme', value => 'http' },
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2041 { name => ':path', value => '/', mode => 6 },
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2042 { name => ':authority', value => 'localhost' },
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2043 { name => 'x-bar', value => 'Bar', mode => 2 }]});
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2044 $frames = h2_read($sess, all => [{ type => 'RST_STREAM' }]);
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2045
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2046 # also if split across frames
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2047
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2048 $sid2 = new_stream($sess, { continuation => [ 17 ], headers => [
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2049 { name => ':method', value => 'GET' },
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2050 { name => ':scheme', value => 'http' },
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2051 { name => ':path', value => '/', mode => 6 },
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2052 { name => ':authority', value => 'localhost' },
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2053 { name => 'x-baz', value => 'Baz', mode => 2 }]});
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2054 $frames = h2_read($sess, all => [{ type => 'RST_STREAM' }]);
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2055
661 c99c30afc1c9 Tests: one more test for http2_max_concurrent_streams. Sergey Kandaurov <pluknet@nginx.com> parents: 660 diff changeset	2056 h2_window($sess, 2**16, $sid);
c99c30afc1c9 Tests: one more test for http2_max_concurrent_streams. Sergey Kandaurov <pluknet@nginx.com> parents: 660 diff changeset	2057 h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
c99c30afc1c9 Tests: one more test for http2_max_concurrent_streams. Sergey Kandaurov <pluknet@nginx.com> parents: 660 diff changeset	2058
715 9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2059 $sid = new_stream($sess, { headers => [
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2060 { name => ':method', value => 'GET' },
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2061 { name => ':scheme', value => 'http' },
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2062 { name => ':path', value => '/t2.html' },
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2063 { name => ':authority', value => 'localhost' },
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2064 # make sure that discarded streams updated dynamic table
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2065 { name => 'x-foo', value => 'Foo', mode => 0 },
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2066 { name => 'x-bar', value => 'Bar', mode => 0 },
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2067 { name => 'x-baz', value => 'Baz', mode => 0 }]});
661 c99c30afc1c9 Tests: one more test for http2_max_concurrent_streams. Sergey Kandaurov <pluknet@nginx.com> parents: 660 diff changeset	2068 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
c99c30afc1c9 Tests: one more test for http2_max_concurrent_streams. Sergey Kandaurov <pluknet@nginx.com> parents: 660 diff changeset	2069
c99c30afc1c9 Tests: one more test for http2_max_concurrent_streams. Sergey Kandaurov <pluknet@nginx.com> parents: 660 diff changeset	2070 ($frame) = grep { $_->{type} eq "HEADERS" && $_->{sid} == $sid } @$frames;
c99c30afc1c9 Tests: one more test for http2_max_concurrent_streams. Sergey Kandaurov <pluknet@nginx.com> parents: 660 diff changeset	2071 is($frame->{headers}->{':status'}, 200, 'http2_max_concurrent_streams 3');
c99c30afc1c9 Tests: one more test for http2_max_concurrent_streams. Sergey Kandaurov <pluknet@nginx.com> parents: 660 diff changeset	2072
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2073
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2074 # some invalid cases below
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2075
728 61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2076 # invalid connection preface
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2077
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2078 $sess = new_session(8080, preface => 'bogus preface');
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2079 $sid = new_stream($sess, { path => '/pp' });
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2080 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2081
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2082 ($frame) = grep { $_->{type} eq "GOAWAY" } @$frames;
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2083 ok($frame, 'invalid preface - GOAWAY frame');
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2084 is($frame->{code}, 1, 'invalid preface - error code');
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2085
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2086 $sess = new_session(8080, preface => 'PRI * HTTP/2.0' . CRLF . CRLF . 'bogus');
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2087 $sid = new_stream($sess, { path => '/pp' });
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2088 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2089
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2090 ($frame) = grep { $_->{type} eq "GOAWAY" } @$frames;
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2091 ok($frame, 'invalid preface 2 - GOAWAY frame');
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2092 is($frame->{code}, 1, 'invalid preface 2 - error code');
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2093
727 3e034902ebe7 Tests: added HTTP/2 test with invalid PROXY protocol string. Sergey Kandaurov <pluknet@nginx.com> parents: 724 diff changeset	2094 # invalid PROXY protocol string
3e034902ebe7 Tests: added HTTP/2 test with invalid PROXY protocol string. Sergey Kandaurov <pluknet@nginx.com> parents: 724 diff changeset	2095
3e034902ebe7 Tests: added HTTP/2 test with invalid PROXY protocol string. Sergey Kandaurov <pluknet@nginx.com> parents: 724 diff changeset	2096 $sess = new_session(8082, proxy => 'bogus');
3e034902ebe7 Tests: added HTTP/2 test with invalid PROXY protocol string. Sergey Kandaurov <pluknet@nginx.com> parents: 724 diff changeset	2097 $sid = new_stream($sess, { path => '/pp' });
3e034902ebe7 Tests: added HTTP/2 test with invalid PROXY protocol string. Sergey Kandaurov <pluknet@nginx.com> parents: 724 diff changeset	2098 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
3e034902ebe7 Tests: added HTTP/2 test with invalid PROXY protocol string. Sergey Kandaurov <pluknet@nginx.com> parents: 724 diff changeset	2099
3e034902ebe7 Tests: added HTTP/2 test with invalid PROXY protocol string. Sergey Kandaurov <pluknet@nginx.com> parents: 724 diff changeset	2100 ($frame) = grep { $_->{type} eq "GOAWAY" } @$frames;
3e034902ebe7 Tests: added HTTP/2 test with invalid PROXY protocol string. Sergey Kandaurov <pluknet@nginx.com> parents: 724 diff changeset	2101 ok($frame, 'invalid PROXY - GOAWAY frame');
3e034902ebe7 Tests: added HTTP/2 test with invalid PROXY protocol string. Sergey Kandaurov <pluknet@nginx.com> parents: 724 diff changeset	2102 is($frame->{code}, 1, 'invalid PROXY - error code');
3e034902ebe7 Tests: added HTTP/2 test with invalid PROXY protocol string. Sergey Kandaurov <pluknet@nginx.com> parents: 724 diff changeset	2103
675 42de9efd11ee Tests: added HTTP/2 test for request header with newline. Sergey Kandaurov <pluknet@nginx.com> parents: 673 diff changeset	2104 # ensure that request header field value with newline doesn't get split
677 5d258aa5ebc5 Tests: more HTTP/2 tests for newline in request header. Sergey Kandaurov <pluknet@nginx.com> parents: 675 diff changeset	2105 #
5d258aa5ebc5 Tests: more HTTP/2 tests for newline in request header. Sergey Kandaurov <pluknet@nginx.com> parents: 675 diff changeset	2106 # 10.3. Intermediary Encapsulation Attacks
5d258aa5ebc5 Tests: more HTTP/2 tests for newline in request header. Sergey Kandaurov <pluknet@nginx.com> parents: 675 diff changeset	2107 # Any request or response that contains a character not permitted
5d258aa5ebc5 Tests: more HTTP/2 tests for newline in request header. Sergey Kandaurov <pluknet@nginx.com> parents: 675 diff changeset	2108 # in a header field value MUST be treated as malformed.
675 42de9efd11ee Tests: added HTTP/2 test for request header with newline. Sergey Kandaurov <pluknet@nginx.com> parents: 673 diff changeset	2109
42de9efd11ee Tests: added HTTP/2 test for request header with newline. Sergey Kandaurov <pluknet@nginx.com> parents: 673 diff changeset	2110 $sess = new_session();
42de9efd11ee Tests: added HTTP/2 test for request header with newline. Sergey Kandaurov <pluknet@nginx.com> parents: 673 diff changeset	2111 $sid = new_stream($sess, { headers => [
42de9efd11ee Tests: added HTTP/2 test for request header with newline. Sergey Kandaurov <pluknet@nginx.com> parents: 673 diff changeset	2112 { name => ':method', value => 'GET', mode => 0 },
42de9efd11ee Tests: added HTTP/2 test for request header with newline. Sergey Kandaurov <pluknet@nginx.com> parents: 673 diff changeset	2113 { name => ':scheme', value => 'http', mode => 0 },
42de9efd11ee Tests: added HTTP/2 test for request header with newline. Sergey Kandaurov <pluknet@nginx.com> parents: 673 diff changeset	2114 { name => ':path', value => '/proxy2/', mode => 1 },
42de9efd11ee Tests: added HTTP/2 test for request header with newline. Sergey Kandaurov <pluknet@nginx.com> parents: 673 diff changeset	2115 { name => ':authority', value => 'localhost', mode => 1 },
42de9efd11ee Tests: added HTTP/2 test for request header with newline. Sergey Kandaurov <pluknet@nginx.com> parents: 673 diff changeset	2116 { name => 'x-foo', value => "x-bar\r\nreferer:see-this", mode => 2 }]});
42de9efd11ee Tests: added HTTP/2 test for request header with newline. Sergey Kandaurov <pluknet@nginx.com> parents: 673 diff changeset	2117 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
42de9efd11ee Tests: added HTTP/2 test for request header with newline. Sergey Kandaurov <pluknet@nginx.com> parents: 673 diff changeset	2118
677 5d258aa5ebc5 Tests: more HTTP/2 tests for newline in request header. Sergey Kandaurov <pluknet@nginx.com> parents: 675 diff changeset	2119 # 10.3. Intermediary Encapsulation Attacks
5d258aa5ebc5 Tests: more HTTP/2 tests for newline in request header. Sergey Kandaurov <pluknet@nginx.com> parents: 675 diff changeset	2120 # An intermediary therefore cannot translate an HTTP/2 request or response
5d258aa5ebc5 Tests: more HTTP/2 tests for newline in request header. Sergey Kandaurov <pluknet@nginx.com> parents: 675 diff changeset	2121 # containing an invalid field name into an HTTP/1.1 message.
5d258aa5ebc5 Tests: more HTTP/2 tests for newline in request header. Sergey Kandaurov <pluknet@nginx.com> parents: 675 diff changeset	2122
675 42de9efd11ee Tests: added HTTP/2 test for request header with newline. Sergey Kandaurov <pluknet@nginx.com> parents: 673 diff changeset	2123 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
42de9efd11ee Tests: added HTTP/2 test for request header with newline. Sergey Kandaurov <pluknet@nginx.com> parents: 673 diff changeset	2124 isnt($frame->{headers}->{'x-referer'}, 'see-this', 'newline in request header');
42de9efd11ee Tests: added HTTP/2 test for request header with newline. Sergey Kandaurov <pluknet@nginx.com> parents: 673 diff changeset	2125
677 5d258aa5ebc5 Tests: more HTTP/2 tests for newline in request header. Sergey Kandaurov <pluknet@nginx.com> parents: 675 diff changeset	2126 # 8.1.2.6. Malformed Requests and Responses
5d258aa5ebc5 Tests: more HTTP/2 tests for newline in request header. Sergey Kandaurov <pluknet@nginx.com> parents: 675 diff changeset	2127 # Malformed requests or responses that are detected MUST be treated
5d258aa5ebc5 Tests: more HTTP/2 tests for newline in request header. Sergey Kandaurov <pluknet@nginx.com> parents: 675 diff changeset	2128 # as a stream error (Section 5.4.2) of type PROTOCOL_ERROR.
5d258aa5ebc5 Tests: more HTTP/2 tests for newline in request header. Sergey Kandaurov <pluknet@nginx.com> parents: 675 diff changeset	2129
5d258aa5ebc5 Tests: more HTTP/2 tests for newline in request header. Sergey Kandaurov <pluknet@nginx.com> parents: 675 diff changeset	2130 ($frame) = grep { $_->{type} eq "RST_STREAM" } @$frames;
5d258aa5ebc5 Tests: more HTTP/2 tests for newline in request header. Sergey Kandaurov <pluknet@nginx.com> parents: 675 diff changeset	2131 is($frame->{sid}, $sid, 'newline in request header - RST_STREAM sid');
5d258aa5ebc5 Tests: more HTTP/2 tests for newline in request header. Sergey Kandaurov <pluknet@nginx.com> parents: 675 diff changeset	2132 is($frame->{length}, 4, 'newline in request header - RST_STREAM length');
5d258aa5ebc5 Tests: more HTTP/2 tests for newline in request header. Sergey Kandaurov <pluknet@nginx.com> parents: 675 diff changeset	2133 is($frame->{flags}, 0, 'newline in request header - RST_STREAM flags');
5d258aa5ebc5 Tests: more HTTP/2 tests for newline in request header. Sergey Kandaurov <pluknet@nginx.com> parents: 675 diff changeset	2134 is($frame->{code}, 1, 'newline in request header - RST_STREAM code');
5d258aa5ebc5 Tests: more HTTP/2 tests for newline in request header. Sergey Kandaurov <pluknet@nginx.com> parents: 675 diff changeset	2135
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2136 # GOAWAY on SYN_STREAM with even StreamID
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2137
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2138 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2139 new_stream($sess, { path => '/' }, 2);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2140 $frames = h2_read($sess, all => [{ type => 'GOAWAY' }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2141
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2142 ($frame) = grep { $_->{type} eq "GOAWAY" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2143 ok($frame, 'even stream - GOAWAY frame');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2144 is($frame->{code}, 1, 'even stream - error code');
669 0c442e551ba1 Tests: corrected HTTP/2 tests for GOAWAY. Sergey Kandaurov <pluknet@nginx.com> parents: 668 diff changeset	2145 is($frame->{last_sid}, 0, 'even stream - last stream');
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2146
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2147 # GOAWAY on SYN_STREAM with backward StreamID
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2148
669 0c442e551ba1 Tests: corrected HTTP/2 tests for GOAWAY. Sergey Kandaurov <pluknet@nginx.com> parents: 668 diff changeset	2149 # 5.1.1. Stream Identifiers
0c442e551ba1 Tests: corrected HTTP/2 tests for GOAWAY. Sergey Kandaurov <pluknet@nginx.com> parents: 668 diff changeset	2150 # The first use of a new stream identifier implicitly closes all
0c442e551ba1 Tests: corrected HTTP/2 tests for GOAWAY. Sergey Kandaurov <pluknet@nginx.com> parents: 668 diff changeset	2151 # streams in the "idle" state <..> with a lower-valued stream identifier.
0c442e551ba1 Tests: corrected HTTP/2 tests for GOAWAY. Sergey Kandaurov <pluknet@nginx.com> parents: 668 diff changeset	2152
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2153 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2154 $sid = new_stream($sess, { path => '/' }, 3);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2155 h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2156
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2157 $sid2 = new_stream($sess, { path => '/' }, 1);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2158 $frames = h2_read($sess, all => [{ type => 'GOAWAY' }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2159
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2160 ($frame) = grep { $_->{type} eq "GOAWAY" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2161 ok($frame, 'backward stream - GOAWAY frame');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2162 is($frame->{code}, 1, 'backward stream - error code');
669 0c442e551ba1 Tests: corrected HTTP/2 tests for GOAWAY. Sergey Kandaurov <pluknet@nginx.com> parents: 668 diff changeset	2163 is($frame->{last_sid}, $sid, 'backward stream - last stream');
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2164
669 0c442e551ba1 Tests: corrected HTTP/2 tests for GOAWAY. Sergey Kandaurov <pluknet@nginx.com> parents: 668 diff changeset	2165 # GOAWAY on the second SYN_STREAM with same StreamID
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2166
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2167 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2168 $sid = new_stream($sess, { path => '/' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2169 h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2170
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2171 $sid2 = new_stream($sess, { path => '/' }, $sid);
669 0c442e551ba1 Tests: corrected HTTP/2 tests for GOAWAY. Sergey Kandaurov <pluknet@nginx.com> parents: 668 diff changeset	2172 $frames = h2_read($sess, all => [{ type => 'GOAWAY' }]);
0c442e551ba1 Tests: corrected HTTP/2 tests for GOAWAY. Sergey Kandaurov <pluknet@nginx.com> parents: 668 diff changeset	2173
0c442e551ba1 Tests: corrected HTTP/2 tests for GOAWAY. Sergey Kandaurov <pluknet@nginx.com> parents: 668 diff changeset	2174 ($frame) = grep { $_->{type} eq "GOAWAY" } @$frames;
0c442e551ba1 Tests: corrected HTTP/2 tests for GOAWAY. Sergey Kandaurov <pluknet@nginx.com> parents: 668 diff changeset	2175 ok($frame, 'dup stream - GOAWAY frame');
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2176 is($frame->{code}, 1, 'dup stream - error code');
669 0c442e551ba1 Tests: corrected HTTP/2 tests for GOAWAY. Sergey Kandaurov <pluknet@nginx.com> parents: 668 diff changeset	2177 is($frame->{last_sid}, $sid, 'dup stream - last stream');
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2178
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2179 # missing mandatory request header ':scheme'
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2180
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2181 TODO: {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2182 local $TODO = 'not yet';
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2183
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2184 $sess = new_session();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2185 $sid = new_stream($sess, { headers => [
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2186 { name => ':method', value => 'GET', mode => 0 },
653 5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	2187 { name => ':path', value => '/', mode => 0 },
5ad620022234 Tests: HTTP/2 tests adapted to send ':authority' where needed. Sergey Kandaurov <pluknet@nginx.com> parents: 652 diff changeset	2188 { name => ':authority', value => 'localhost', mode => 1 }]});
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2189 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2190
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2191 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2192 is($frame->{headers}->{':status'}, 400, 'incomplete headers');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2193
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2194 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2195
673 9d6c865c2869 Tests: HTTP/2 regression test for empty authority request header. Sergey Kandaurov <pluknet@nginx.com> parents: 672 diff changeset	2196 # empty request header ':authority'
9d6c865c2869 Tests: HTTP/2 regression test for empty authority request header. Sergey Kandaurov <pluknet@nginx.com> parents: 672 diff changeset	2197
9d6c865c2869 Tests: HTTP/2 regression test for empty authority request header. Sergey Kandaurov <pluknet@nginx.com> parents: 672 diff changeset	2198 $sess = new_session();
9d6c865c2869 Tests: HTTP/2 regression test for empty authority request header. Sergey Kandaurov <pluknet@nginx.com> parents: 672 diff changeset	2199 $sid = new_stream($sess, { headers => [
9d6c865c2869 Tests: HTTP/2 regression test for empty authority request header. Sergey Kandaurov <pluknet@nginx.com> parents: 672 diff changeset	2200 { name => ':method', value => 'GET', mode => 0 },
9d6c865c2869 Tests: HTTP/2 regression test for empty authority request header. Sergey Kandaurov <pluknet@nginx.com> parents: 672 diff changeset	2201 { name => ':scheme', value => 'http', mode => 0 },
9d6c865c2869 Tests: HTTP/2 regression test for empty authority request header. Sergey Kandaurov <pluknet@nginx.com> parents: 672 diff changeset	2202 { name => ':path', value => '/', mode => 0 },
9d6c865c2869 Tests: HTTP/2 regression test for empty authority request header. Sergey Kandaurov <pluknet@nginx.com> parents: 672 diff changeset	2203 { name => ':authority', value => '', mode => 0 }]});
9d6c865c2869 Tests: HTTP/2 regression test for empty authority request header. Sergey Kandaurov <pluknet@nginx.com> parents: 672 diff changeset	2204 $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]);
9d6c865c2869 Tests: HTTP/2 regression test for empty authority request header. Sergey Kandaurov <pluknet@nginx.com> parents: 672 diff changeset	2205
9d6c865c2869 Tests: HTTP/2 regression test for empty authority request header. Sergey Kandaurov <pluknet@nginx.com> parents: 672 diff changeset	2206 ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
9d6c865c2869 Tests: HTTP/2 regression test for empty authority request header. Sergey Kandaurov <pluknet@nginx.com> parents: 672 diff changeset	2207 is($frame->{headers}->{':status'}, 400, 'empty authority');
9d6c865c2869 Tests: HTTP/2 regression test for empty authority request header. Sergey Kandaurov <pluknet@nginx.com> parents: 672 diff changeset	2208
697 46f698a7e59c Tests: added HTTP/2 test for unknown frame type. Sergey Kandaurov <pluknet@nginx.com> parents: 696 diff changeset	2209 # unknown frame type
46f698a7e59c Tests: added HTTP/2 test for unknown frame type. Sergey Kandaurov <pluknet@nginx.com> parents: 696 diff changeset	2210
46f698a7e59c Tests: added HTTP/2 test for unknown frame type. Sergey Kandaurov <pluknet@nginx.com> parents: 696 diff changeset	2211 $sess = new_session();
46f698a7e59c Tests: added HTTP/2 test for unknown frame type. Sergey Kandaurov <pluknet@nginx.com> parents: 696 diff changeset	2212 h2_unknown($sess, 'payload');
46f698a7e59c Tests: added HTTP/2 test for unknown frame type. Sergey Kandaurov <pluknet@nginx.com> parents: 696 diff changeset	2213 h2_ping($sess, 'SEE-THIS');
46f698a7e59c Tests: added HTTP/2 test for unknown frame type. Sergey Kandaurov <pluknet@nginx.com> parents: 696 diff changeset	2214 $frames = h2_read($sess, all => [{ type => 'PING' }]);
46f698a7e59c Tests: added HTTP/2 test for unknown frame type. Sergey Kandaurov <pluknet@nginx.com> parents: 696 diff changeset	2215
46f698a7e59c Tests: added HTTP/2 test for unknown frame type. Sergey Kandaurov <pluknet@nginx.com> parents: 696 diff changeset	2216 ($frame) = grep { $_->{type} eq "PING" } @$frames;
46f698a7e59c Tests: added HTTP/2 test for unknown frame type. Sergey Kandaurov <pluknet@nginx.com> parents: 696 diff changeset	2217 is($frame->{value}, 'SEE-THIS', 'unknown frame type');
46f698a7e59c Tests: added HTTP/2 test for unknown frame type. Sergey Kandaurov <pluknet@nginx.com> parents: 696 diff changeset	2218
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2219 # GOAWAY - force closing a connection by server
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2220
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2221 $sid = new_stream($sess, { path => 't1.html' });
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2222 h2_read($sess, all => [{ sid => $sid, length => 2**16 - 1 }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2223
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2224 $t->stop();
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2225
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2226 $frames = h2_read($sess, all => [{ type => 'GOAWAY' }]);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2227
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2228 ($frame) = grep { $_->{type} eq "GOAWAY" } @$frames;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2229 ok($frame, 'GOAWAY on connection close');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2230
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2231 ###############################################################################
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2232
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2233 sub h2_ping {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2234 my ($sess, $payload) = @_;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2235
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2236 raw_write($sess->{socket}, pack("x2C2x5a8", 8, 0x6, $payload));
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2237 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2238
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2239 sub h2_rst {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2240 my ($sess, $stream, $error) = @_;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2241
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2242 raw_write($sess->{socket}, pack("x2C2xNN", 4, 0x3, $stream, $error));
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2243 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2244
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2245 sub h2_priority {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2246 my ($sess, $w, $stream, $dep) = @_;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2247
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2248 $stream = 0 unless defined $stream;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2249 $dep = 0 unless defined $dep;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2250 raw_write($sess->{socket}, pack("x2C2xNNC", 5, 0x2, $stream, $dep, $w));
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2251 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2252
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2253 sub h2_window {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2254 my ($sess, $win, $stream) = @_;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2255
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2256 $stream = 0 unless defined $stream;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2257 raw_write($sess->{socket}, pack("x2C2xNN", 4, 0x8, $stream, $win));
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2258 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2259
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2260 sub h2_settings {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2261 my ($sess, $ack, %extra) = @_;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2262
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2263 my $len = 6 * keys %extra;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2264 my $buf = pack_length($len) . pack "CCx4", 0x4, $ack ? 0x1 : 0x0;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2265 $buf .= join '', map { pack "nN", $_, $extra{$_} } keys %extra;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2266 raw_write($sess->{socket}, $buf);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2267 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2268
697 46f698a7e59c Tests: added HTTP/2 test for unknown frame type. Sergey Kandaurov <pluknet@nginx.com> parents: 696 diff changeset	2269 sub h2_unknown {
46f698a7e59c Tests: added HTTP/2 test for unknown frame type. Sergey Kandaurov <pluknet@nginx.com> parents: 696 diff changeset	2270 my ($sess, $payload) = @_;
46f698a7e59c Tests: added HTTP/2 test for unknown frame type. Sergey Kandaurov <pluknet@nginx.com> parents: 696 diff changeset	2271
46f698a7e59c Tests: added HTTP/2 test for unknown frame type. Sergey Kandaurov <pluknet@nginx.com> parents: 696 diff changeset	2272 my $buf = pack_length(length($payload)) . pack("Cx5a*", 0xa, $payload);
46f698a7e59c Tests: added HTTP/2 test for unknown frame type. Sergey Kandaurov <pluknet@nginx.com> parents: 696 diff changeset	2273 raw_write($sess->{socket}, $buf);
46f698a7e59c Tests: added HTTP/2 test for unknown frame type. Sergey Kandaurov <pluknet@nginx.com> parents: 696 diff changeset	2274 }
46f698a7e59c Tests: added HTTP/2 test for unknown frame type. Sergey Kandaurov <pluknet@nginx.com> parents: 696 diff changeset	2275
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2276 sub h2_continue {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2277 my ($ctx, $stream, $uri) = @_;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2278
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2279 $uri->{h2_continue} = 1;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2280 return new_stream($ctx, $uri, $stream);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2281 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2282
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2283 sub new_stream {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2284 my ($ctx, $uri, $stream) = @_;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2285 my ($input, $buf);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2286 my ($d, $status);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2287
718 ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	2288 $ctx->{headers} = '';
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	2289
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2290 my $host = $uri->{host} \|\| '127.0.0.1:8080';
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2291 my $method = $uri->{method} \|\| 'GET';
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2292 my $scheme = $uri->{scheme} \|\| 'http';
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2293 my $path = $uri->{path} \|\| '/';
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2294 my $headers = $uri->{headers};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2295 my $body = $uri->{body};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2296 my $prio = $uri->{prio};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2297 my $dep = $uri->{dep};
699 5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	2298 my $split = ref $uri->{continuation} && $uri->{continuation} \|\| [];
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2299
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2300 my $pad = defined $uri->{padding} ? $uri->{padding} : 0;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2301 my $padlen = defined $uri->{padding} ? 1 : 0;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2302 my $bpad = defined $uri->{body_padding} ? $uri->{body_padding} : 0;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2303 my $bpadlen = defined $uri->{body_padding} ? 1 : 0;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2304
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2305 my $type = defined $uri->{h2_continue} ? 0x9 : 0x1;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2306 my $flags = defined $uri->{continuation} ? 0x0 : 0x4;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2307 $flags \|= 0x1 unless defined $body;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2308 $flags \|= 0x8 if $padlen;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2309 $flags \|= 0x20 if defined $dep \|\| defined $prio;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2310
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2311 if ($stream) {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2312 $ctx->{last_stream} = $stream;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2313 } else {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2314 $ctx->{last_stream} += 2;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2315 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2316
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2317 $buf = pack("xxx"); # Length stub
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2318 $buf .= pack("CC", $type, $flags); # END_HEADERS
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2319 $buf .= pack("N", $ctx->{last_stream}); # Stream-ID
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2320
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2321 $dep = 0 if defined $prio and not defined $dep;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2322 $prio = 16 if defined $dep and not defined $prio;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2323
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2324 unless ($headers) {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2325 $input = hpack($ctx, ":method", $method);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2326 $input .= hpack($ctx, ":scheme", $scheme);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2327 $input .= hpack($ctx, ":path", $path);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2328 $input .= hpack($ctx, ":authority", $host);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2329 $input .= hpack($ctx, "content-length", length($body)) if $body;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2330
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2331 } else {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2332 $input = join '', map {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2333 hpack($ctx, $_->{name}, $_->{value},
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2334 mode => $_->{mode}, huff => $_->{huff})
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2335 } @$headers if $headers;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2336 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2337
694 3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2338 $input = pack("B*", '001' . ipack(5, $uri->{table_size})) . $input
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2339 if defined $uri->{table_size};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2340
702 cc2b98d028c8 Tests: fixed HTTP/2 test for CONTINUATION while in header field. Sergey Kandaurov <pluknet@nginx.com> parents: 700 diff changeset	2341 my @input = map { substr $input, 0, $_, "" } @$split;
699 5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	2342 push @input, $input;
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	2343
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2344 # set length, attach headers, padding, priority
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2345
699 5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	2346 my $hlen = length($input[0]) + $pad + $padlen;
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2347 $hlen += 5 if $flags & 0x20;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2348 $buf \|= pack_length($hlen);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2349
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2350 $buf .= pack 'C', $pad if $padlen; # Pad Length?
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2351 $buf .= pack 'NC', $dep, $prio if $flags & 0x20;
699 5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	2352 $buf .= $input[0];
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2353 $buf .= (pack 'C', 0) x $pad if $padlen; # Padding
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2354
699 5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	2355 shift @input;
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	2356
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	2357 while (@input) {
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	2358 $input = shift @input;
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	2359 $flags = @input ? 0x0 : 0x4;
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	2360 $buf .= pack_length(length($input));
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	2361 $buf .= pack("CC", 0x9, $flags);
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	2362 $buf .= pack("N", $ctx->{last_stream});
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	2363 $buf .= $input;
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	2364 }
5768830f01c4 Tests: HTTP/2 test for CONTINUATION in the middle of header field. Sergey Kandaurov <pluknet@nginx.com> parents: 698 diff changeset	2365
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2366 if (defined $body) {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2367 $buf .= pack_length(length($body) + $bpad + $bpadlen);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2368 my $flags = $bpadlen ? 0x8 : 0x0;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2369 $buf .= pack 'CC', 0x0, 0x1 \| $flags; # DATA, END_STREAM
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2370 $buf .= pack 'N', $ctx->{last_stream};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2371 $buf .= pack 'C', $bpad if $bpadlen; # DATA Pad Length?
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2372 $buf .= $body;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2373 $buf .= (pack 'C', 0) x $bpad if $bpadlen; # DATA Padding
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2374 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2375
715 9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2376 $split = ref $uri->{split} && $uri->{split} \|\| [];
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2377 for (@$split) {
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2378 raw_write($ctx->{socket}, substr($buf, 0, $_, ""));
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2379 select undef, undef, undef, 0.2;
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2380 }
9ee52e137f3d Tests: more HTTP/2 HPACK decoding tests with discarded streams. Sergey Kandaurov <pluknet@nginx.com> parents: 714 diff changeset	2381
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2382 raw_write($ctx->{socket}, $buf);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2383 return $ctx->{last_stream};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2384 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2385
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2386 sub h2_read {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2387 my ($sess, %extra) = @_;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2388 my (@got);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2389 my $s = $sess->{socket};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2390 my $buf = '';
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2391
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2392 while (1) {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2393 $buf = raw_read($s, $buf, 9);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2394 last unless length $buf;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2395
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2396 my $length = unpack_length($buf);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2397 my $type = unpack('x3C', $buf);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2398 my $flags = unpack('x4C', $buf);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2399
655 75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	2400 my $stream = unpack "x5 B32", $buf;
75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	2401 substr($stream, 0, 1) = 0;
75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	2402 $stream = unpack("N", pack("B32", $stream));
75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	2403
679 b60c1a207675 Tests: fixed HTTP/2 tests with large frames. Sergey Kandaurov <pluknet@nginx.com> parents: 677 diff changeset	2404 $buf = raw_read($s, $buf, $length + 9);
724 4322541b80ed Tests: avoid uninitialized warnings in h2.t with partial frame. Sergey Kandaurov <pluknet@nginx.com> parents: 723 diff changeset	2405 last if length($buf) < $length + 9;
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2406
655 75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	2407 $buf = substr($buf, 9);
75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	2408
718 ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	2409 my $frame = $cframe{$type}{value}($sess, $buf, $length, $flags);
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2410 $frame->{length} = $length;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2411 $frame->{type} = $cframe{$type}{name};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2412 $frame->{flags} = $flags;
655 75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	2413 $frame->{sid} = $stream;
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2414 push @got, $frame;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2415
655 75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	2416 $buf = substr($buf, $length);
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2417
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2418 last unless test_fin($got[-1], $extra{all});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2419 };
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2420 return \@got;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2421 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2422
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2423 sub test_fin {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2424 my ($frame, $all) = @_;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2425 my @test = @{$all};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2426
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2427 # wait for the specified DATA length
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2428
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2429 for (@test) {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2430 if ($_->{length} && $frame->{type} eq 'DATA') {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2431 # check also for StreamID if needed
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2432
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2433 if (!$_->{sid} \|\| $_->{sid} == $frame->{sid}) {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2434 $_->{length} -= $frame->{length};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2435 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2436 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2437 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2438 @test = grep { !(defined $_->{length} && $_->{length} == 0) } @test;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2439
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2440 # wait for the fin flag
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2441
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2442 @test = grep { !(defined $_->{fin}
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2443 && $_->{sid} == $frame->{sid} && $_->{fin} & $frame->{flags})
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2444 } @test if defined $frame->{flags};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2445
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2446 # wait for the specified frame
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2447
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2448 @test = grep { !($_->{type} && $_->{type} eq $frame->{type}) } @test;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2449
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2450 @{$all} = @test;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2451 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2452
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2453 sub headers {
718 ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	2454 my ($ctx, $buf, $len, $flags) = @_;
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	2455 $ctx->{headers} .= substr($buf, 0, $len);
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	2456 return unless $flags & 0x4;
ba822b2e899c Tests: rewrote HTTP/2 response CONTINUATION tests. Sergey Kandaurov <pluknet@nginx.com> parents: 717 diff changeset	2457 { headers => hunpack($ctx, $ctx->{headers}, length($ctx->{headers})) };
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2458 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2459
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2460 sub data {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2461 my ($ctx, $buf, $len) = @_;
655 75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	2462 return { data => substr($buf, 0, $len) };
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2463 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2464
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2465 sub settings {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2466 my ($ctx, $buf, $len) = @_;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2467 my %payload;
655 75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	2468 my $skip = 0;
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2469
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2470 for (1 .. $len / 6) {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2471 my $id = hex unpack "\@$skip n", $buf; $skip += 2;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2472 $payload{$id} = unpack "\@$skip N", $buf; $skip += 4;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2473 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2474 return \%payload;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2475 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2476
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2477 sub ping {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2478 my ($ctx, $buf, $len) = @_;
670 944b87756cab Tests: fixed GOAWAY and PING frames parsing in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 669 diff changeset	2479 return { value => unpack "A$len", $buf };
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2480 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2481
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2482 sub rst_stream {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2483 my ($ctx, $buf, $len) = @_;
655 75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	2484 return { code => unpack "N", $buf };
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2485 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2486
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2487 sub goaway {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2488 my ($ctx, $buf, $len) = @_;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2489 my %payload;
655 75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	2490
75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	2491 my $stream = unpack "B32", $buf;
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2492 substr($stream, 0, 1) = 0;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2493 $stream = unpack("N", pack("B32", $stream));
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2494 $payload{last_sid} = $stream;
655 75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	2495
75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	2496 $len -= 4;
670 944b87756cab Tests: fixed GOAWAY and PING frames parsing in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 669 diff changeset	2497 $payload{code} = unpack "x4 N", $buf;
944b87756cab Tests: fixed GOAWAY and PING frames parsing in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 669 diff changeset	2498 $payload{debug} = unpack "x8 A$len", $buf;
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2499 return \%payload;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2500 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2501
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2502 sub window_update {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2503 my ($ctx, $buf, $len) = @_;
655 75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	2504 my $value = unpack "B32", $buf;
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2505 substr($value, 0, 1) = 0;
655 75ecd26b8831 Tests: HTTP/2 tests cleanup. Sergey Kandaurov <pluknet@nginx.com> parents: 654 diff changeset	2506 return { wdelta => unpack("N", pack("B32", $value)) };
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2507 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2508
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2509 sub pack_length {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2510 pack 'c3', unpack 'xc3', pack 'N', $_[0];
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2511 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2512
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2513 sub unpack_length {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2514 unpack 'N', pack 'xc3', unpack 'c3', $_[0];
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2515 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2516
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2517 sub raw_read {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2518 my ($s, $buf, $len) = @_;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2519 my $got = '';
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2520
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2521 while (length($buf) < $len && IO::Select->new($s)->can_read(1)) {
650 8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	2522 $s->sysread($got, 16384) or last;
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2523 log_in($got);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2524 $buf .= $got;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2525 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2526 return $buf;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2527 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2528
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2529 sub raw_write {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2530 my ($s, $message) = @_;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2531
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2532 local $SIG{PIPE} = 'IGNORE';
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2533
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2534 while (IO::Select->new($s)->can_write(0.4)) {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2535 log_out($message);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2536 my $n = $s->syswrite($message);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2537 last unless $n;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2538 $message = substr($message, $n);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2539 last unless length $message;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2540 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2541 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2542
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2543 sub new_session {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2544 my ($port, %extra) = @_;
728 61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2545
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2546 my $s = new_socket($port, %extra);
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2547 my $preface = $extra{preface}
61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2548 \|\| 'PRI * HTTP/2.0' . CRLF . CRLF . 'SM' . CRLF . CRLF;
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2549
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2550 if ($extra{proxy}) {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2551 raw_write($s, $extra{proxy});
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2552 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2553
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2554 # preface
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2555
728 61800918f647 Tests: added HTTP/2 tests with invalid connection preface. Sergey Kandaurov <pluknet@nginx.com> parents: 727 diff changeset	2556 raw_write($s, $preface);
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2557
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2558 return { socket => $s, last_stream => -1,
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2559 dynamic_encode => [ static_table() ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2560 dynamic_decode => [ static_table() ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2561 static_table_size => scalar @{[static_table()]} };
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2562 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2563
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2564 sub new_socket {
650 8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	2565 my ($port, %extra) = @_;
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	2566 my $npn = $extra{'npn'};
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	2567 my $alpn = $extra{'alpn'};
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2568 my $s;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2569
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2570 $port = 8080 unless defined $port;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2571
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2572 eval {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2573 local $SIG{ALRM} = sub { die "timeout\n" };
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2574 local $SIG{PIPE} = sub { die "sigpipe\n" };
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2575 alarm(2);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2576 $s = IO::Socket::INET->new(
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2577 Proto => 'tcp',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2578 PeerAddr => "127.0.0.1:$port",
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2579 );
650 8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	2580 IO::Socket::SSL->start_SSL($s,
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	2581 SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE(),
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	2582 SSL_npn_protocols => $npn ? [ $npn ] : undef,
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	2583 SSL_alpn_protocols => $alpn ? [ $alpn ] : undef,
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	2584 SSL_error_trap => sub { die $_[1] }
8a2cf558b8ae Tests: HTTP/2 tests for $http2 variable. Sergey Kandaurov <pluknet@nginx.com> parents: 647 diff changeset	2585 ) if $extra{'SSL'};
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2586 alarm(0);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2587 };
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2588 alarm(0);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2589
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2590 if ($@) {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2591 log_in("died: $@");
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2592 return undef;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2593 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2594
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2595 return $s;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2596 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2597
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2598 sub static_table {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2599 [ '', '' ], # unused
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2600 [ ':authority', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2601 [ ':method', 'GET' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2602 [ ':method', 'POST' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2603 [ ':path', '/' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2604 [ ':path', '/index.html' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2605 [ ':scheme', 'http' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2606 [ ':scheme', 'https' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2607 [ ':status', '200' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2608 [ ':status', '204' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2609 [ ':status', '206' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2610 [ ':status', '304' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2611 [ ':status', '400' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2612 [ ':status', '404' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2613 [ ':status', '500' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2614 [ 'accept-charset', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2615 [ 'accept-encoding', 'gzip, deflate' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2616 [ 'accept-language', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2617 [ 'accept-ranges', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2618 [ 'accept', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2619 [ 'access-control-allow-origin',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2620 '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2621 [ 'age', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2622 [ 'allow', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2623 [ 'authorization', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2624 [ 'cache-control', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2625 [ 'content-disposition',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2626 '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2627 [ 'content-encoding', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2628 [ 'content-language', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2629 [ 'content-length', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2630 [ 'content-location', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2631 [ 'content-range', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2632 [ 'content-type', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2633 [ 'cookie', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2634 [ 'date', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2635 [ 'etag', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2636 [ 'expect', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2637 [ 'expires', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2638 [ 'from', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2639 [ 'host', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2640 [ 'if-match', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2641 [ 'if-modified-since', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2642 [ 'if-none-match', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2643 [ 'if-range', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2644 [ 'if-unmodified-since',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2645 '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2646 [ 'last-modified', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2647 [ 'link', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2648 [ 'location', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2649 [ 'max-forwards', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2650 [ 'proxy-authenticate', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2651 [ 'proxy-authorization',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2652 '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2653 [ 'range', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2654 [ 'referer', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2655 [ 'refresh', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2656 [ 'retry-after', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2657 [ 'server', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2658 [ 'set-cookie', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2659 [ 'strict-transport-security',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2660 '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2661 [ 'transfer-encoding', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2662 [ 'user-agent', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2663 [ 'vary', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2664 [ 'via', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2665 [ 'www-authenticate', '' ],
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2666 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2667
694 3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2668 # RFC 7541, 5.1. Integer Representation
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2669
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2670 sub ipack {
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2671 my ($base, $d) = @_;
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2672 return sprintf("%.b", $base, $d) if $d < 2*$base - 1;
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2673
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2674 my $o = sprintf("%${base}b", 2**$base - 1);
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2675 $d -= 2**$base - 1;
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2676 while ($d >= 128) {
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2677 $o .= sprintf("%8b", $d % 128 + 128);
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2678 $d /= 128;
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2679 }
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2680 $o .= sprintf("%08b", $d);
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2681 return $o;
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2682 }
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2683
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2684 sub iunpack {
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2685 my ($base, $b, $s) = @_;
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2686
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2687 my $len = unpack("\@$s B8", $b); $s++;
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2688 my $prefix = substr($len, 0, 8 - $base);
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2689 $len = '0' x (8 - $base) . substr($len, 8 - $base);
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2690 $len = unpack("C", pack("B8", $len));
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2691
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2692 return ($len, $s, $prefix) if $len < 2**$base - 1;
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2693
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2694 my $m = 0;
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2695 my $d;
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2696
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2697 do {
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2698 $d = unpack("\@$s C", $b); $s++;
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2699 $len += ($d & 127) * 2**$m;
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2700 $m += $base;
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2701 } while (($d & 128) == 128);
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2702
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2703 return ($len, $s, $prefix);
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2704 }
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2705
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2706 sub hpack {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2707 my ($ctx, $name, $value, %extra) = @_;
671 0c70eb166a3a Tests: in HTTP/2 tests, always access a dynamic table by reference. Sergey Kandaurov <pluknet@nginx.com> parents: 670 diff changeset	2708 my $table = $ctx->{dynamic_encode};
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2709 my $mode = defined $extra{mode} ? $extra{mode} : 1;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2710 my $huff = $extra{huff};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2711
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2712 my ($index, $buf) = 0;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2713
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2714 # 6.1. Indexed Header Field Representation
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2715
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2716 if ($mode == 0) {
671 0c70eb166a3a Tests: in HTTP/2 tests, always access a dynamic table by reference. Sergey Kandaurov <pluknet@nginx.com> parents: 670 diff changeset	2717 ++$index until $index > $#$table
0c70eb166a3a Tests: in HTTP/2 tests, always access a dynamic table by reference. Sergey Kandaurov <pluknet@nginx.com> parents: 670 diff changeset	2718 or $table->[$index][0] eq $name
0c70eb166a3a Tests: in HTTP/2 tests, always access a dynamic table by reference. Sergey Kandaurov <pluknet@nginx.com> parents: 670 diff changeset	2719 and $table->[$index][1] eq $value;
694 3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2720 $buf = pack('B*', '1' . ipack(7, $index));
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2721 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2722
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2723 # 6.2.1. Literal Header Field with Incremental Indexing
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2724
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2725 if ($mode == 1) {
671 0c70eb166a3a Tests: in HTTP/2 tests, always access a dynamic table by reference. Sergey Kandaurov <pluknet@nginx.com> parents: 670 diff changeset	2726 splice @$table, $ctx->{static_table_size}, 0, [ $name, $value ];
0c70eb166a3a Tests: in HTTP/2 tests, always access a dynamic table by reference. Sergey Kandaurov <pluknet@nginx.com> parents: 670 diff changeset	2727
0c70eb166a3a Tests: in HTTP/2 tests, always access a dynamic table by reference. Sergey Kandaurov <pluknet@nginx.com> parents: 670 diff changeset	2728 ++$index until $index > $#$table
0c70eb166a3a Tests: in HTTP/2 tests, always access a dynamic table by reference. Sergey Kandaurov <pluknet@nginx.com> parents: 670 diff changeset	2729 or $table->[$index][0] eq $name;
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2730 my $value = $huff ? huff($value) : $value;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2731
694 3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2732 $buf = pack('B*', '01' . ipack(6, $index)
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2733 . ($huff ? '1' : '0') . ipack(7, length($value)));
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2734 $buf .= $value;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2735 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2736
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2737 # 6.2.1. Literal Header Field with Incremental Indexing -- New Name
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2738
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2739 if ($mode == 2) {
671 0c70eb166a3a Tests: in HTTP/2 tests, always access a dynamic table by reference. Sergey Kandaurov <pluknet@nginx.com> parents: 670 diff changeset	2740 splice @$table, $ctx->{static_table_size}, 0, [ $name, $value ];
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2741
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2742 my $name = $huff ? huff($name) : $name;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2743 my $value = $huff ? huff($value) : $value;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2744 my $hbit = ($huff ? '1' : '0');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2745
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2746 $buf = pack('B*', '01000000');
694 3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2747 $buf .= pack('B*', $hbit . ipack(7, length($name)));
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2748 $buf .= $name;
694 3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2749 $buf .= pack('B*', $hbit . ipack(7, length($value)));
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2750 $buf .= $value;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2751 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2752
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2753 # 6.2.2. Literal Header Field without Indexing
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2754
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2755 if ($mode == 3) {
671 0c70eb166a3a Tests: in HTTP/2 tests, always access a dynamic table by reference. Sergey Kandaurov <pluknet@nginx.com> parents: 670 diff changeset	2756 ++$index until $index > $#$table
0c70eb166a3a Tests: in HTTP/2 tests, always access a dynamic table by reference. Sergey Kandaurov <pluknet@nginx.com> parents: 670 diff changeset	2757 or $table->[$index][0] eq $name;
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2758 my $value = $huff ? huff($value) : $value;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2759
694 3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2760 $buf = pack('B*', '0000' . ipack(4, $index)
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2761 . ($huff ? '1' : '0') . ipack(7, length($value)));
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2762 $buf .= $value;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2763 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2764
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2765 # 6.2.2. Literal Header Field without Indexing -- New Name
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2766
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2767 if ($mode == 4) {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2768 my $name = $huff ? huff($name) : $name;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2769 my $value = $huff ? huff($value) : $value;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2770 my $hbit = ($huff ? '1' : '0');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2771
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2772 $buf = pack('B*', '00000000');
694 3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2773 $buf .= pack('B*', $hbit . ipack(7, length($name)));
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2774 $buf .= $name;
694 3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2775 $buf .= pack('B*', $hbit . ipack(7, length($value)));
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2776 $buf .= $value;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2777 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2778
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2779 # 6.2.3. Literal Header Field Never Indexed
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2780
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2781 if ($mode == 5) {
671 0c70eb166a3a Tests: in HTTP/2 tests, always access a dynamic table by reference. Sergey Kandaurov <pluknet@nginx.com> parents: 670 diff changeset	2782 ++$index until $index > $#$table
0c70eb166a3a Tests: in HTTP/2 tests, always access a dynamic table by reference. Sergey Kandaurov <pluknet@nginx.com> parents: 670 diff changeset	2783 or $table->[$index][0] eq $name;
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2784 my $value = $huff ? huff($value) : $value;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2785
694 3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2786 $buf = pack('B*', '0001' . ipack(4, $index)
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2787 . ($huff ? '1' : '0') . ipack(7, length($value)));
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2788 $buf .= $value;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2789 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2790
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2791 # 6.2.3. Literal Header Field Never Indexed -- New Name
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2792
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2793 if ($mode == 6) {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2794 my $name = $huff ? huff($name) : $name;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2795 my $value = $huff ? huff($value) : $value;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2796 my $hbit = ($huff ? '1' : '0');
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2797
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2798 $buf = pack('B*', '00010000');
694 3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2799 $buf .= pack('B*', $hbit . ipack(7, length($name)));
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2800 $buf .= $name;
694 3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2801 $buf .= pack('B*', $hbit . ipack(7, length($value)));
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2802 $buf .= $value;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2803 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2804
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2805 return $buf;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2806 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2807
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2808 sub hunpack {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2809 my ($ctx, $data, $length) = @_;
671 0c70eb166a3a Tests: in HTTP/2 tests, always access a dynamic table by reference. Sergey Kandaurov <pluknet@nginx.com> parents: 670 diff changeset	2810 my $table = $ctx->{dynamic_decode};
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2811 my %headers;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2812 my $skip = 0;
694 3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2813 my ($index, $name, $value);
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2814
735 832cd7cc8f53 Tests: made h2.t inner functions anonymous. Sergey Kandaurov <pluknet@nginx.com> parents: 730 diff changeset	2815 my $field = sub {
694 3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2816 my ($b) = @_;
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2817 my ($len, $s, $huff) = iunpack(7, @_);
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2818
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2819 my $field = substr($b, $s, $len);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2820 $field = $huff ? dehuff($field) : $field;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2821 $s += $len;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2822 return ($field, $s);
735 832cd7cc8f53 Tests: made h2.t inner functions anonymous. Sergey Kandaurov <pluknet@nginx.com> parents: 730 diff changeset	2823 };
832cd7cc8f53 Tests: made h2.t inner functions anonymous. Sergey Kandaurov <pluknet@nginx.com> parents: 730 diff changeset	2824
832cd7cc8f53 Tests: made h2.t inner functions anonymous. Sergey Kandaurov <pluknet@nginx.com> parents: 730 diff changeset	2825 my $add = sub {
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2826 my ($h, $n, $v) = @_;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2827 return $h->{$n} = $v unless exists $h->{$n};
717 3b6ff3b7367d Tests: fixed multiple header field values representation in h2.t. Sergey Kandaurov <pluknet@nginx.com> parents: 716 diff changeset	2828 $h->{$n} = [ $h->{$n} ] unless ref $h->{$n};
647 4e36550410b3 Tests: h2.t fixes for older perl versions, and gzip test. Sergey Kandaurov <pluknet@nginx.com> parents: 646 diff changeset	2829 push @{$h->{$n}}, $v;
735 832cd7cc8f53 Tests: made h2.t inner functions anonymous. Sergey Kandaurov <pluknet@nginx.com> parents: 730 diff changeset	2830 };
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2831
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2832 while ($skip < $length) {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2833 my $ib = unpack("\@$skip B8", $data);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2834
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2835 if (substr($ib, 0, 1) eq '1') {
694 3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2836 ($index, $skip) = iunpack(7, $data, $skip);
735 832cd7cc8f53 Tests: made h2.t inner functions anonymous. Sergey Kandaurov <pluknet@nginx.com> parents: 730 diff changeset	2837 $add->(\%headers,
671 0c70eb166a3a Tests: in HTTP/2 tests, always access a dynamic table by reference. Sergey Kandaurov <pluknet@nginx.com> parents: 670 diff changeset	2838 $table->[$index][0], $table->[$index][1]);
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2839 next;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2840 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2841
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2842 if (substr($ib, 0, 2) eq '01') {
694 3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2843 ($index, $skip) = iunpack(6, $data, $skip);
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2844 $name = $table->[$index][0];
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2845
735 832cd7cc8f53 Tests: made h2.t inner functions anonymous. Sergey Kandaurov <pluknet@nginx.com> parents: 730 diff changeset	2846 ($name, $skip) = $field->($data, $skip) unless $name;
832cd7cc8f53 Tests: made h2.t inner functions anonymous. Sergey Kandaurov <pluknet@nginx.com> parents: 730 diff changeset	2847 ($value, $skip) = $field->($data, $skip);
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2848
671 0c70eb166a3a Tests: in HTTP/2 tests, always access a dynamic table by reference. Sergey Kandaurov <pluknet@nginx.com> parents: 670 diff changeset	2849 splice @$table,
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2850 $ctx->{static_table_size}, 0, [ $name, $value ];
735 832cd7cc8f53 Tests: made h2.t inner functions anonymous. Sergey Kandaurov <pluknet@nginx.com> parents: 730 diff changeset	2851 $add->(\%headers, $name, $value);
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2852 next;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2853 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2854
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2855 if (substr($ib, 0, 4) eq '0000') {
694 3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2856 ($index, $skip) = iunpack(4, $data, $skip);
3eba6e1b8313 Tests: finished HPACK coding in HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: 692 diff changeset	2857 $name = $table->[$index][0];
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2858
735 832cd7cc8f53 Tests: made h2.t inner functions anonymous. Sergey Kandaurov <pluknet@nginx.com> parents: 730 diff changeset	2859 ($name, $skip) = $field->($data, $skip) unless $name;
832cd7cc8f53 Tests: made h2.t inner functions anonymous. Sergey Kandaurov <pluknet@nginx.com> parents: 730 diff changeset	2860 ($value, $skip) = $field->($data, $skip);
832cd7cc8f53 Tests: made h2.t inner functions anonymous. Sergey Kandaurov <pluknet@nginx.com> parents: 730 diff changeset	2861
832cd7cc8f53 Tests: made h2.t inner functions anonymous. Sergey Kandaurov <pluknet@nginx.com> parents: 730 diff changeset	2862 $add->(\%headers, $name, $value);
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2863 next;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2864 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2865 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2866
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2867 return \%headers;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2868 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2869
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2870 sub huff_code { scalar {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2871 pack('C', 0) => '1111111111000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2872 pack('C', 1) => '11111111111111111011000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2873 pack('C', 2) => '1111111111111111111111100010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2874 pack('C', 3) => '1111111111111111111111100011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2875 pack('C', 4) => '1111111111111111111111100100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2876 pack('C', 5) => '1111111111111111111111100101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2877 pack('C', 6) => '1111111111111111111111100110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2878 pack('C', 7) => '1111111111111111111111100111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2879 pack('C', 8) => '1111111111111111111111101000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2880 pack('C', 9) => '111111111111111111101010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2881 pack('C', 10) => '111111111111111111111111111100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2882 pack('C', 11) => '1111111111111111111111101001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2883 pack('C', 12) => '1111111111111111111111101010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2884 pack('C', 13) => '111111111111111111111111111101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2885 pack('C', 14) => '1111111111111111111111101011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2886 pack('C', 15) => '1111111111111111111111101100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2887 pack('C', 16) => '1111111111111111111111101101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2888 pack('C', 17) => '1111111111111111111111101110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2889 pack('C', 18) => '1111111111111111111111101111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2890 pack('C', 19) => '1111111111111111111111110000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2891 pack('C', 20) => '1111111111111111111111110001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2892 pack('C', 21) => '1111111111111111111111110010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2893 pack('C', 22) => '111111111111111111111111111110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2894 pack('C', 23) => '1111111111111111111111110011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2895 pack('C', 24) => '1111111111111111111111110100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2896 pack('C', 25) => '1111111111111111111111110101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2897 pack('C', 26) => '1111111111111111111111110110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2898 pack('C', 27) => '1111111111111111111111110111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2899 pack('C', 28) => '1111111111111111111111111000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2900 pack('C', 29) => '1111111111111111111111111001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2901 pack('C', 30) => '1111111111111111111111111010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2902 pack('C', 31) => '1111111111111111111111111011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2903 pack('C', 32) => '010100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2904 pack('C', 33) => '1111111000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2905 pack('C', 34) => '1111111001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2906 pack('C', 35) => '111111111010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2907 pack('C', 36) => '1111111111001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2908 pack('C', 37) => '010101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2909 pack('C', 38) => '11111000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2910 pack('C', 39) => '11111111010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2911 pack('C', 40) => '1111111010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2912 pack('C', 41) => '1111111011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2913 pack('C', 42) => '11111001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2914 pack('C', 43) => '11111111011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2915 pack('C', 44) => '11111010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2916 pack('C', 45) => '010110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2917 pack('C', 46) => '010111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2918 pack('C', 47) => '011000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2919 pack('C', 48) => '00000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2920 pack('C', 49) => '00001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2921 pack('C', 50) => '00010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2922 pack('C', 51) => '011001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2923 pack('C', 52) => '011010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2924 pack('C', 53) => '011011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2925 pack('C', 54) => '011100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2926 pack('C', 55) => '011101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2927 pack('C', 56) => '011110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2928 pack('C', 57) => '011111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2929 pack('C', 58) => '1011100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2930 pack('C', 59) => '11111011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2931 pack('C', 60) => '111111111111100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2932 pack('C', 61) => '100000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2933 pack('C', 62) => '111111111011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2934 pack('C', 63) => '1111111100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2935 pack('C', 64) => '1111111111010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2936 pack('C', 65) => '100001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2937 pack('C', 66) => '1011101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2938 pack('C', 67) => '1011110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2939 pack('C', 68) => '1011111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2940 pack('C', 69) => '1100000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2941 pack('C', 70) => '1100001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2942 pack('C', 71) => '1100010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2943 pack('C', 72) => '1100011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2944 pack('C', 73) => '1100100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2945 pack('C', 74) => '1100101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2946 pack('C', 75) => '1100110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2947 pack('C', 76) => '1100111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2948 pack('C', 77) => '1101000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2949 pack('C', 78) => '1101001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2950 pack('C', 79) => '1101010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2951 pack('C', 80) => '1101011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2952 pack('C', 81) => '1101100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2953 pack('C', 82) => '1101101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2954 pack('C', 83) => '1101110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2955 pack('C', 84) => '1101111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2956 pack('C', 85) => '1110000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2957 pack('C', 86) => '1110001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2958 pack('C', 87) => '1110010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2959 pack('C', 88) => '11111100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2960 pack('C', 89) => '1110011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2961 pack('C', 90) => '11111101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2962 pack('C', 91) => '1111111111011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2963 pack('C', 92) => '1111111111111110000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2964 pack('C', 93) => '1111111111100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2965 pack('C', 94) => '11111111111100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2966 pack('C', 95) => '100010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2967 pack('C', 96) => '111111111111101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2968 pack('C', 97) => '00011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2969 pack('C', 98) => '100011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2970 pack('C', 99) => '00100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2971 pack('C', 100) => '100100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2972 pack('C', 101) => '00101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2973 pack('C', 102) => '100101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2974 pack('C', 103) => '100110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2975 pack('C', 104) => '100111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2976 pack('C', 105) => '00110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2977 pack('C', 106) => '1110100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2978 pack('C', 107) => '1110101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2979 pack('C', 108) => '101000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2980 pack('C', 109) => '101001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2981 pack('C', 110) => '101010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2982 pack('C', 111) => '00111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2983 pack('C', 112) => '101011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2984 pack('C', 113) => '1110110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2985 pack('C', 114) => '101100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2986 pack('C', 115) => '01000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2987 pack('C', 116) => '01001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2988 pack('C', 117) => '101101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2989 pack('C', 118) => '1110111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2990 pack('C', 119) => '1111000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2991 pack('C', 120) => '1111001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2992 pack('C', 121) => '1111010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2993 pack('C', 122) => '1111011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2994 pack('C', 123) => '111111111111110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2995 pack('C', 124) => '11111111100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2996 pack('C', 125) => '11111111111101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2997 pack('C', 126) => '1111111111101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2998 pack('C', 127) => '1111111111111111111111111100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	2999 pack('C', 128) => '11111111111111100110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3000 pack('C', 129) => '1111111111111111010010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3001 pack('C', 130) => '11111111111111100111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3002 pack('C', 131) => '11111111111111101000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3003 pack('C', 132) => '1111111111111111010011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3004 pack('C', 133) => '1111111111111111010100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3005 pack('C', 134) => '1111111111111111010101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3006 pack('C', 135) => '11111111111111111011001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3007 pack('C', 136) => '1111111111111111010110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3008 pack('C', 137) => '11111111111111111011010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3009 pack('C', 138) => '11111111111111111011011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3010 pack('C', 139) => '11111111111111111011100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3011 pack('C', 140) => '11111111111111111011101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3012 pack('C', 141) => '11111111111111111011110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3013 pack('C', 142) => '111111111111111111101011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3014 pack('C', 143) => '11111111111111111011111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3015 pack('C', 144) => '111111111111111111101100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3016 pack('C', 145) => '111111111111111111101101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3017 pack('C', 146) => '1111111111111111010111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3018 pack('C', 147) => '11111111111111111100000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3019 pack('C', 148) => '111111111111111111101110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3020 pack('C', 149) => '11111111111111111100001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3021 pack('C', 150) => '11111111111111111100010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3022 pack('C', 151) => '11111111111111111100011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3023 pack('C', 152) => '11111111111111111100100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3024 pack('C', 153) => '111111111111111011100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3025 pack('C', 154) => '1111111111111111011000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3026 pack('C', 155) => '11111111111111111100101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3027 pack('C', 156) => '1111111111111111011001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3028 pack('C', 157) => '11111111111111111100110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3029 pack('C', 158) => '11111111111111111100111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3030 pack('C', 159) => '111111111111111111101111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3031 pack('C', 160) => '1111111111111111011010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3032 pack('C', 161) => '111111111111111011101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3033 pack('C', 162) => '11111111111111101001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3034 pack('C', 163) => '1111111111111111011011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3035 pack('C', 164) => '1111111111111111011100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3036 pack('C', 165) => '11111111111111111101000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3037 pack('C', 166) => '11111111111111111101001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3038 pack('C', 167) => '111111111111111011110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3039 pack('C', 168) => '11111111111111111101010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3040 pack('C', 169) => '1111111111111111011101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3041 pack('C', 170) => '1111111111111111011110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3042 pack('C', 171) => '111111111111111111110000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3043 pack('C', 172) => '111111111111111011111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3044 pack('C', 173) => '1111111111111111011111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3045 pack('C', 174) => '11111111111111111101011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3046 pack('C', 175) => '11111111111111111101100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3047 pack('C', 176) => '111111111111111100000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3048 pack('C', 177) => '111111111111111100001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3049 pack('C', 178) => '1111111111111111100000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3050 pack('C', 179) => '111111111111111100010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3051 pack('C', 180) => '11111111111111111101101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3052 pack('C', 181) => '1111111111111111100001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3053 pack('C', 182) => '11111111111111111101110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3054 pack('C', 183) => '11111111111111111101111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3055 pack('C', 184) => '11111111111111101010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3056 pack('C', 185) => '1111111111111111100010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3057 pack('C', 186) => '1111111111111111100011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3058 pack('C', 187) => '1111111111111111100100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3059 pack('C', 188) => '11111111111111111110000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3060 pack('C', 189) => '1111111111111111100101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3061 pack('C', 190) => '1111111111111111100110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3062 pack('C', 191) => '11111111111111111110001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3063 pack('C', 192) => '11111111111111111111100000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3064 pack('C', 193) => '11111111111111111111100001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3065 pack('C', 194) => '11111111111111101011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3066 pack('C', 195) => '1111111111111110001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3067 pack('C', 196) => '1111111111111111100111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3068 pack('C', 197) => '11111111111111111110010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3069 pack('C', 198) => '1111111111111111101000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3070 pack('C', 199) => '1111111111111111111101100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3071 pack('C', 200) => '11111111111111111111100010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3072 pack('C', 201) => '11111111111111111111100011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3073 pack('C', 202) => '11111111111111111111100100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3074 pack('C', 203) => '111111111111111111111011110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3075 pack('C', 204) => '111111111111111111111011111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3076 pack('C', 205) => '11111111111111111111100101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3077 pack('C', 206) => '111111111111111111110001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3078 pack('C', 207) => '1111111111111111111101101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3079 pack('C', 208) => '1111111111111110010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3080 pack('C', 209) => '111111111111111100011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3081 pack('C', 210) => '11111111111111111111100110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3082 pack('C', 211) => '111111111111111111111100000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3083 pack('C', 212) => '111111111111111111111100001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3084 pack('C', 213) => '11111111111111111111100111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3085 pack('C', 214) => '111111111111111111111100010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3086 pack('C', 215) => '111111111111111111110010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3087 pack('C', 216) => '111111111111111100100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3088 pack('C', 217) => '111111111111111100101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3089 pack('C', 218) => '11111111111111111111101000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3090 pack('C', 219) => '11111111111111111111101001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3091 pack('C', 220) => '1111111111111111111111111101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3092 pack('C', 221) => '111111111111111111111100011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3093 pack('C', 222) => '111111111111111111111100100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3094 pack('C', 223) => '111111111111111111111100101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3095 pack('C', 224) => '11111111111111101100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3096 pack('C', 225) => '111111111111111111110011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3097 pack('C', 226) => '11111111111111101101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3098 pack('C', 227) => '111111111111111100110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3099 pack('C', 228) => '1111111111111111101001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3100 pack('C', 229) => '111111111111111100111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3101 pack('C', 230) => '111111111111111101000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3102 pack('C', 231) => '11111111111111111110011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3103 pack('C', 232) => '1111111111111111101010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3104 pack('C', 233) => '1111111111111111101011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3105 pack('C', 234) => '1111111111111111111101110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3106 pack('C', 235) => '1111111111111111111101111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3107 pack('C', 236) => '111111111111111111110100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3108 pack('C', 237) => '111111111111111111110101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3109 pack('C', 238) => '11111111111111111111101010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3110 pack('C', 239) => '11111111111111111110100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3111 pack('C', 240) => '11111111111111111111101011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3112 pack('C', 241) => '111111111111111111111100110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3113 pack('C', 242) => '11111111111111111111101100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3114 pack('C', 243) => '11111111111111111111101101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3115 pack('C', 244) => '111111111111111111111100111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3116 pack('C', 245) => '111111111111111111111101000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3117 pack('C', 246) => '111111111111111111111101001',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3118 pack('C', 247) => '111111111111111111111101010',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3119 pack('C', 248) => '111111111111111111111101011',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3120 pack('C', 249) => '1111111111111111111111111110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3121 pack('C', 250) => '111111111111111111111101100',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3122 pack('C', 251) => '111111111111111111111101101',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3123 pack('C', 252) => '111111111111111111111101110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3124 pack('C', 253) => '111111111111111111111101111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3125 pack('C', 254) => '111111111111111111111110000',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3126 pack('C', 255) => '11111111111111111111101110',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3127 '_eos' => '111111111111111111111111111111',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3128 }};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3129
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3130 sub huff {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3131 my ($string) = @_;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3132 my $code = &huff_code;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3133
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3134 my $ret = join '', map { $code->{$_} } (split //, $string);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3135 my $len = length($ret) + (8 - length($ret) % 8);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3136 $ret .= $code->{_eos};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3137
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3138 return pack("B$len", $ret);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3139 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3140
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3141 sub dehuff {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3142 my ($string) = @_;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3143 my $code = &huff_code;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3144 my %decode = reverse %$code;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3145
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3146 my $ret = ''; my $c = '';
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3147 for (split //, unpack('B*', $string)) {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3148 $c .= $_;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3149 next unless exists $decode{$c};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3150 last if $decode{$c} eq '_eos';
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3151
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3152 $ret .= $decode{$c};
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3153 $c = '';
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3154 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3155
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3156 return $ret;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3157 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3158
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3159 ###############################################################################
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3160
647 4e36550410b3 Tests: h2.t fixes for older perl versions, and gzip test. Sergey Kandaurov <pluknet@nginx.com> parents: 646 diff changeset	3161 sub gunzip_like {
4e36550410b3 Tests: h2.t fixes for older perl versions, and gzip test. Sergey Kandaurov <pluknet@nginx.com> parents: 646 diff changeset	3162 my ($in, $re, $name) = @_;
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3163
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3164 SKIP: {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3165 eval { require IO::Uncompress::Gunzip; };
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3166 Test::More::skip(
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3167 "IO::Uncompress::Gunzip not installed", 1) if $@;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3168
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3169 my $out;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3170
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3171 IO::Uncompress::Gunzip::gunzip(\$in => \$out);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3172
647 4e36550410b3 Tests: h2.t fixes for older perl versions, and gzip test. Sergey Kandaurov <pluknet@nginx.com> parents: 646 diff changeset	3173 like($out, $re, $name);
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3174 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3175 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3176
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3177 ###############################################################################
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3178
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3179 # for tests with multiple header fields
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3180
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3181 sub http_daemon {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3182 my $server = IO::Socket::INET->new(
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3183 Proto => 'tcp',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3184 LocalHost => '127.0.0.1',
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3185 LocalPort => 8083,
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3186 Listen => 5,
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3187 Reuse => 1
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3188 )
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3189 or die "Can't create listening socket: $!\n";
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3190
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3191 local $SIG{PIPE} = 'IGNORE';
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3192
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3193 while (my $client = $server->accept()) {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3194 $client->autoflush(1);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3195
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3196 my $headers = '';
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3197 my $uri = '';
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3198
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3199 while (<$client>) {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3200 $headers .= $_;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3201 last if (/^\x0d?\x0a?$/);
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3202 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3203
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3204 next if $headers eq '';
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3205 $uri = $1 if $headers =~ /^\S+\s+([^ ]+)\s+HTTP/i;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3206
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3207 if ($uri eq '/cookie') {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3208
652 5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	3209 my ($cookie, $cookie2) = $headers =~ /Cookie: (.+)/ig;
5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	3210 $cookie2 = '' unless defined $cookie2;
5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	3211
5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	3212 my ($cookie_a, $cookie_c) = ('', '');
5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	3213 $cookie_a = $1 if $headers =~ /X-Cookie-a: (.+)/i;
5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	3214 $cookie_c = $1 if $headers =~ /X-Cookie-c: (.+)/i;
5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	3215
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3216 print $client <<EOF;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3217 HTTP/1.1 200 OK
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3218 Connection: close
652 5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	3219 X-Sent-Cookie: $cookie
5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	3220 X-Sent-Cookie2: $cookie2
5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	3221 X-Sent-Cookie-a: $cookie_a
5a85ad9382a3 Tests: more Cookie tests for HTTP/2. Sergey Kandaurov <pluknet@nginx.com> parents: 651 diff changeset	3222 X-Sent-Cookie-c: $cookie_c
646 843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3223
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3224 EOF
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3225
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3226 } elsif ($uri eq '/set-cookie') {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3227
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3228 print $client <<EOF;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3229 HTTP/1.1 200 OK
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3230 Connection: close
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3231 Set-Cookie: a=b
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3232 Set-Cookie: c=d
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3233
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3234 EOF
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3235
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3236 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3237
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3238 } continue {
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3239 close $client;
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3240 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3241 }
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3242
843a74ff43bc Tests: HTTP/2 tests. Sergey Kandaurov <pluknet@nginx.com> parents: diff changeset	3243 ###############################################################################

Mercurial > hg > nginx-tests

annotate h2.t @ 742:fc21544a8640