Mercurial > hg > nginx-tests
diff ssl_verify_client.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 | f55d25e08b3e |
children | dc89eb420196 |
line wrap: on
line diff
--- a/ssl_verify_client.t Mon Nov 23 22:46:07 2020 +0000 +++ b/ssl_verify_client.t Tue Nov 24 00:43:56 2020 +0000 @@ -12,7 +12,7 @@ use Test::More; -use Socket qw/ :DEFAULT CRLF /; +use Socket qw/ CRLF /; BEGIN { use FindBin; chdir($FindBin::Bin); } @@ -185,12 +185,7 @@ $host = $sni if !defined $host; - my $dest_ip = inet_aton('127.0.0.1'); - my $dest_serv_params = sockaddr_in(port(8081), $dest_ip); - - socket(my $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(8081)); my $ctx = Net::SSLeay::CTX_new() or die("Failed to create SSL_CTX $!"); Net::SSLeay::set_cert_and_key($ctx, "$d/$cert.crt", "$d/$cert.key") or die if $cert;