Mercurial > hg > nginx-tests
diff stream_ssl_variables.t @ 1621:fd440d324700
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 | 3f155fe97521 |
line wrap: on
line diff
--- a/stream_ssl_variables.t Mon Nov 23 22:46:07 2020 +0000 +++ b/stream_ssl_variables.t Tue Nov 24 00:43:56 2020 +0000 @@ -12,8 +12,6 @@ use Test::More; -use Socket; - BEGIN { use FindBin; chdir($FindBin::Bin); } use lib 'lib'; @@ -127,14 +125,8 @@ sub get_ssl_socket { my ($port, $ses, $name) = @_; - my $s; - my $dest_ip = inet_aton('127.0.0.1'); - my $dest_serv_params = sockaddr_in($port, $dest_ip); - - socket($s, &AF_INET, &SOCK_STREAM, 0) or die "socket: $!"; - connect($s, $dest_serv_params) or die "connect: $!"; - + my $s = IO::Socket::INET->new('127.0.0.1:' . $port); my $ctx = Net::SSLeay::CTX_new() or die("Failed to create SSL_CTX $!"); my $ssl = Net::SSLeay::new($ctx) or die("Failed to create SSL $!"); Net::SSLeay::set_tlsext_host_name($ssl, $name) if defined $name;