Mercurial > hg > nginx-tests

comparison stream_ssl_realip.t @ 1458:e95133e85798

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: unbreak stream_ssl_realip.t with TLS 1.3.
author Sergey Kandaurov <pluknet@nginx.com>
date Tue, 02 Apr 2019 13:21:47 +0300
parents 4e48bf51714f
children dbce8fb5f5f8
comparison
equal deleted inserted replaced
1457:80911c4fe023 1458:e95133e85798
15 use Socket qw/ $CRLF /; 15 use Socket qw/ $CRLF /;
16 16
17 BEGIN { use FindBin; chdir($FindBin::Bin); } 17 BEGIN { use FindBin; chdir($FindBin::Bin); }
18 18
19 use lib 'lib'; 19 use lib 'lib';
20 use Test::Nginx; 20 use Test::Nginx qw/ :DEFAULT http_end /;
21 use Test::Nginx::Stream qw/ stream /;
22 21
23 ############################################################################### 22 ###############################################################################
24 23
25 select STDERR; $| = 1; 24 select STDERR; $| = 1;
26 select STDOUT; $| = 1; 25 select STDOUT; $| = 1;
126 ############################################################################### 125 ###############################################################################
127 126
128 sub pp_get { 127 sub pp_get {
129 my ($port, $proxy) = @_; 128 my ($port, $proxy) = @_;
130 129
131 my $s = stream(PeerPort => port($port)); 130 my $s = IO::Socket::INET->new('127.0.0.1:' . port($port)) or return;
132 $s->write($proxy); 131 http($proxy, start => 1, socket => $s);
133 132
134 eval { 133 eval {
135 local $SIG{ALRM} = sub { die "timeout\n" }; 134 local $SIG{ALRM} = sub { die "timeout\n" };
136 local $SIG{PIPE} = sub { die "sigpipe\n" }; 135 local $SIG{PIPE} = sub { die "sigpipe\n" };
137 alarm(8); 136 alarm(8);
138 IO::Socket::SSL->start_SSL($s->{_socket}, 137 IO::Socket::SSL->start_SSL($s,
139 SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE(), 138 SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE(),
140 SSL_error_trap => sub { die $_[1] } 139 SSL_error_trap => sub { die $_[1] }
141 ); 140 );
142 alarm(0); 141 alarm(0);
143 }; 142 };
146 if ($@) { 145 if ($@) {
147 log_in("died: $@"); 146 log_in("died: $@");
148 return undef; 147 return undef;
149 } 148 }
150 149
151 return $s->read(); 150 http_end($s);
152 } 151 }
153 152
154 ############################################################################### 153 ###############################################################################