@@ -24,7 +24,7 @@ select STDERR; $| = 1;
24
24
select STDOUT ; $| = 1;
25
25
26
26
my $t = Test::Nginx-> new()-> has(qw/ http http_ssl http_v2 rewrite socket_ssl/ )
27
- -> has_daemon(' openssl' )-> plan(8 );
27
+ -> has_daemon(' openssl' )-> plan(4 );
28
28
29
29
$t -> write_file_expand(' nginx.conf' , <<'EOF' );
30
30
@@ -93,20 +93,6 @@ my $has_npn = eval { Test::Nginx::HTTP2::new_socket(port(8080), SSL => 1,
93
93
my $has_alpn = eval { Test::Nginx::HTTP2::new_socket(port(8080), SSL => 1,
94
94
alpn => ' h2' )-> alpn_selected() };
95
95
96
- # SSL/TLS connection, NPN
97
-
98
- SKIP: {
99
- skip ' OpenSSL NPN support required' , 1 unless $has_npn ;
100
-
101
- $s = Test::Nginx::HTTP2-> new(port(8080), SSL => 1, npn => ' h2' );
102
- $sid = $s -> new_stream({ path => ' /h2' });
103
- $frames = $s -> read (all => [{ sid => $sid , fin => 1 }]);
104
-
105
- ($frame ) = grep { $_ -> {type } eq " DATA" } @$frames ;
106
- is($frame -> {data }, ' h2' , ' http variable - npn' );
107
-
108
- }
109
-
110
96
# SSL/TLS connection, ALPN
111
97
112
98
SKIP: {
@@ -121,20 +107,6 @@ is($frame->{data}, 'h2', 'http variable - alpn');
121
107
122
108
}
123
109
124
- # $server_protocol - SSL/TLS connection, NPN
125
-
126
- SKIP: {
127
- skip ' OpenSSL NPN support required' , 1 unless $has_npn ;
128
-
129
- $s = Test::Nginx::HTTP2-> new(port(8080), SSL => 1, npn => ' h2' );
130
- $sid = $s -> new_stream({ path => ' /sp' });
131
- $frames = $s -> read (all => [{ sid => $sid , fin => 1 }]);
132
-
133
- ($frame ) = grep { $_ -> {type } eq " DATA" } @$frames ;
134
- is($frame -> {data }, ' HTTP/2.0' , ' server_protocol variable - npn' );
135
-
136
- }
137
-
138
110
# $server_protocol - SSL/TLS connection, ALPN
139
111
140
112
SKIP: {
@@ -149,20 +121,6 @@ is($frame->{data}, 'HTTP/2.0', 'server_protocol variable - alpn');
149
121
150
122
}
151
123
152
- # $scheme - SSL/TLS connection, NPN
153
-
154
- SKIP: {
155
- skip ' OpenSSL NPN support required' , 1 unless $has_npn ;
156
-
157
- $s = Test::Nginx::HTTP2-> new(port(8080), SSL => 1, npn => ' h2' );
158
- $sid = $s -> new_stream({ path => ' /scheme' });
159
- $frames = $s -> read (all => [{ sid => $sid , fin => 1 }]);
160
-
161
- ($frame ) = grep { $_ -> {type } eq " DATA" } @$frames ;
162
- is($frame -> {data }, ' https' , ' scheme variable - npn' );
163
-
164
- }
165
-
166
124
# $scheme - SSL/TLS connection, ALPN
167
125
168
126
SKIP: {
@@ -177,20 +135,6 @@ is($frame->{data}, 'https', 'scheme variable - alpn');
177
135
178
136
}
179
137
180
- # $https - SSL/TLS connection, NPN
181
-
182
- SKIP: {
183
- skip ' OpenSSL NPN support required' , 1 unless $has_npn ;
184
-
185
- $s = Test::Nginx::HTTP2-> new(port(8080), SSL => 1, npn => ' h2' );
186
- $sid = $s -> new_stream({ path => ' /https' });
187
- $frames = $s -> read (all => [{ sid => $sid , fin => 1 }]);
188
-
189
- ($frame ) = grep { $_ -> {type } eq " DATA" } @$frames ;
190
- is($frame -> {data }, ' on' , ' https variable - npn' );
191
-
192
- }
193
-
194
138
# $https - SSL/TLS connection, ALPN
195
139
196
140
SKIP: {
0 commit comments