Mercurial > hg > nginx-tests
comparison stream_ssl_realip.t @ 1458:e95133e85798
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 ############################################################################### |