Mercurial > hg > nginx-tests

comparison stream_ssl.t @ 1621:fd440d324700

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: simplified get_ssl_socket() functions that use Net::SSLeay.
author Sergey Kandaurov <pluknet@nginx.com>
date Tue, 24 Nov 2020 00:43:56 +0000
parents f3ba4c74de31
children 1f125771f1a1
comparison
equal deleted inserted replaced
1620:166461f0bd4b 1621:fd440d324700
11 use strict; 11 use strict;
12 12
13 use Test::More; 13 use Test::More;
14 14
15 use POSIX qw/ mkfifo /; 15 use POSIX qw/ mkfifo /;
16 use Socket qw/ :DEFAULT $CRLF /; 16 use Socket qw/ $CRLF /;
17 17
18 BEGIN { use FindBin; chdir($FindBin::Bin); } 18 BEGIN { use FindBin; chdir($FindBin::Bin); }
19 19
20 use lib 'lib'; 20 use lib 'lib';
21 use Test::Nginx; 21 use Test::Nginx;
180 180
181 ############################################################################### 181 ###############################################################################
182 182
183 sub get_ssl_socket { 183 sub get_ssl_socket {
184 my ($port, $ses) = @_; 184 my ($port, $ses) = @_;
185 my $s; 185
186 186 my $s = IO::Socket::INET->new('127.0.0.1:' . $port);
187 my $dest_ip = inet_aton('127.0.0.1');
188 my $dest_serv_params = sockaddr_in($port, $dest_ip);
189
190 socket($s, &AF_INET, &SOCK_STREAM, 0) or die "socket: $!";
191 connect($s, $dest_serv_params) or die "connect: $!";
192
193 my $ssl = Net::SSLeay::new($ctx) or die("Failed to create SSL $!"); 187 my $ssl = Net::SSLeay::new($ctx) or die("Failed to create SSL $!");
194 Net::SSLeay::set_session($ssl, $ses) if defined $ses; 188 Net::SSLeay::set_session($ssl, $ses) if defined $ses;
195 Net::SSLeay::set_fd($ssl, fileno($s)); 189 Net::SSLeay::set_fd($ssl, fileno($s));
196 Net::SSLeay::connect($ssl) or die("ssl connect"); 190 Net::SSLeay::connect($ssl) or die("ssl connect");
197 return ($s, $ssl); 191 return ($s, $ssl);