Mercurial > hg > nginx-tests

comparison stream_proxy_ssl_verify.t @ 892:0c64f87aa689

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: guard stream_proxy_ssl_verify.t tests against undef.
author Sergey Kandaurov <pluknet@nginx.com>
date Wed, 06 Apr 2016 13:59:19 +0300
parents f4189a38c3a4
children e9064d691790
comparison
equal deleted inserted replaced
891:f4189a38c3a4 892:0c64f87aa689
151 151
152 ############################################################################### 152 ###############################################################################
153 153
154 # subjectAltName 154 # subjectAltName
155 155
156 like(http_get('/', socket => getconn('127.0.0.1:8080')), 156 like(get('/', '127.0.0.1:8080'), qr/200 OK/, 'verify');
157 qr/200 OK/, 'verify'); 157 like(get('/', '127.0.0.1:8081'), qr/200 OK/, 'verify wildcard');
158 like(http_get('/', socket => getconn('127.0.0.1:8081')), 158 unlike(get('/', '127.0.0.1:8082'), qr/200 OK/, 'verify fail');
159 qr/200 OK/, 'verify wildcard');
160 unlike(http_get('/', socket => getconn('127.0.0.1:8082')),
161 qr/200 OK/, 'verify fail');
162 159
163 # commonName 160 # commonName
164 161
165 like(http_get('/', socket => getconn('127.0.0.1:8083')), 162 like(get('/', '127.0.0.1:8083'), qr/200 OK/, 'verify cn');
166 qr/200 OK/, 'verify cn'); 163 unlike(get('/', '127.0.0.1:8084'), qr/200 OK/, 'verify cn fail');
167 unlike(http_get('/', socket => getconn('127.0.0.1:8084')),
168 qr/200 OK/, 'verify cn fail');
169 164
170 # untrusted 165 # untrusted
171 166
172 unlike(http_get('/', socket => getconn('127.0.0.1:8085')), 167 unlike(get('/', '127.0.0.1:8085'), qr/200 OK/, 'untrusted');
173 qr/200 OK/, 'untrusted'); 168
174 169 ###############################################################################
175 ############################################################################### 170
176 171 sub get {
177 sub getconn { 172 my ($uri, $peer) = @_;
178 my $peer = shift; 173
179 my $s = IO::Socket::INET->new( 174 my $s = IO::Socket::INET->new(
180 Proto => 'tcp', 175 Proto => 'tcp',
181 PeerAddr => $peer || '127.0.0.1:8080' 176 PeerAddr => $peer
182 ) 177 )
183 or die "Can't connect to nginx: $!\n"; 178 or die "Can't connect to nginx: $!\n";
184 179
185 return $s; 180 my $r = http_get($uri, socket => $s);
181 return defined $r ? $r : '';
186 } 182 }
187 183
188 ############################################################################### 184 ###############################################################################
189 185
190 sub http_daemon { 186 sub http_daemon {