Mercurial > hg > nginx-tests

comparison h2_server_tokens.t @ 948:4dc302d8e04f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: changed HTTP2 package to act as a class. Stopped exporting any subroutines. A subset of them now act as class methods.
author Sergey Kandaurov <pluknet@nginx.com>
date Fri, 17 Jun 2016 11:36:33 +0300
parents 697fc80b8606
children e9064d691790
comparison
equal deleted inserted replaced
947:b9e42c554ba7 948:4dc302d8e04f
99 ############################################################################### 99 ###############################################################################
100 100
101 sub header_server { 101 sub header_server {
102 my ($path) = shift; 102 my ($path) = shift;
103 103
104 my $sess = new_session(); 104 my $s = Test::Nginx::HTTP2->new();
105 my $sid = new_stream($sess, { path => $path }); 105 my $sid = $s->new_stream({ path => $path });
106 my $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]); 106 my $frames = $s->read(all => [{ sid => $sid, fin => 1 }]);
107 107
108 my ($frame) = grep { $_->{type} eq "HEADERS" } @$frames; 108 my ($frame) = grep { $_->{type} eq "HEADERS" } @$frames;
109 return $frame->{headers}->{'server'}; 109 return $frame->{headers}->{'server'};
110 } 110 }
111 111
112 sub body { 112 sub body {
113 my ($path) = shift; 113 my ($path) = shift;
114 114
115 my $sess = new_session(); 115 my $s = Test::Nginx::HTTP2->new();
116 my $sid = new_stream($sess, { path => $path }); 116 my $sid = $s->new_stream({ path => $path });
117 my $frames = h2_read($sess, all => [{ sid => $sid, fin => 1 }]); 117 my $frames = $s->read(all => [{ sid => $sid, fin => 1 }]);
118 118
119 my ($frame) = grep { $_->{type} eq "DATA" } @$frames; 119 my ($frame) = grep { $_->{type} eq "DATA" } @$frames;
120 return $frame->{'data'}; 120 return $frame->{'data'};
121 } 121 }
122 122