Mercurial > hg > nginx-tests
changeset 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 | 4fad3232ad56 |
files | stream_proxy_ssl_verify.t |
diffstat | 1 files changed, 12 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/stream_proxy_ssl_verify.t Fri Apr 01 20:16:27 2016 +0300 +++ b/stream_proxy_ssl_verify.t Wed Apr 06 13:59:19 2016 +0300 @@ -153,36 +153,32 @@ # subjectAltName -like(http_get('/', socket => getconn('127.0.0.1:8080')), - qr/200 OK/, 'verify'); -like(http_get('/', socket => getconn('127.0.0.1:8081')), - qr/200 OK/, 'verify wildcard'); -unlike(http_get('/', socket => getconn('127.0.0.1:8082')), - qr/200 OK/, 'verify fail'); +like(get('/', '127.0.0.1:8080'), qr/200 OK/, 'verify'); +like(get('/', '127.0.0.1:8081'), qr/200 OK/, 'verify wildcard'); +unlike(get('/', '127.0.0.1:8082'), qr/200 OK/, 'verify fail'); # commonName -like(http_get('/', socket => getconn('127.0.0.1:8083')), - qr/200 OK/, 'verify cn'); -unlike(http_get('/', socket => getconn('127.0.0.1:8084')), - qr/200 OK/, 'verify cn fail'); +like(get('/', '127.0.0.1:8083'), qr/200 OK/, 'verify cn'); +unlike(get('/', '127.0.0.1:8084'), qr/200 OK/, 'verify cn fail'); # untrusted -unlike(http_get('/', socket => getconn('127.0.0.1:8085')), - qr/200 OK/, 'untrusted'); +unlike(get('/', '127.0.0.1:8085'), qr/200 OK/, 'untrusted'); ############################################################################### -sub getconn { - my $peer = shift; +sub get { + my ($uri, $peer) = @_; + my $s = IO::Socket::INET->new( Proto => 'tcp', - PeerAddr => $peer || '127.0.0.1:8080' + PeerAddr => $peer ) or die "Can't connect to nginx: $!\n"; - return $s; + my $r = http_get($uri, socket => $s); + return defined $r ? $r : ''; } ###############################################################################