Mercurial > hg > nginx-tests

comparison ssl_proxy_protocol.t @ 1168:8821e405b91e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: handled SSL negotiation errors.
author Sergey Kandaurov <pluknet@nginx.com>
date Thu, 20 Apr 2017 16:29:07 +0300
parents 8ef51dbb5d69
children cf14cfe9ec8c
comparison
equal deleted inserted replaced
1167:1e79a9613813 1168:8821e405b91e
151 sub pp_get { 151 sub pp_get {
152 my ($url, $proxy) = @_; 152 my ($url, $proxy) = @_;
153 153
154 my $s = http($proxy, start => 1); 154 my $s = http($proxy, start => 1);
155 155
156 IO::Socket::SSL->start_SSL($s, 156 eval {
157 SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE(), 157 local $SIG{ALRM} = sub { die "timeout\n" };
158 SSL_error_trap => sub { die $_[1] } 158 local $SIG{PIPE} = sub { die "sigpipe\n" };
159 ); 159 alarm(2);
160 IO::Socket::SSL->start_SSL($s,
161 SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE(),
162 SSL_error_trap => sub { die $_[1] }
163 );
164 alarm(0);
165 };
166 alarm(0);
167
168 if ($@) {
169 log_in("died: $@");
170 return undef;
171 }
160 172
161 return http(<<EOF, socket => $s); 173 return http(<<EOF, socket => $s);
162 GET $url HTTP/1.0 174 GET $url HTTP/1.0
163 Host: localhost 175 Host: localhost
164 176