Mercurial > hg > nginx-tests
comparison stream_proxy_ssl_verify.t @ 892:0c64f87aa689
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 { |