Mercurial > hg > nginx-tests
comparison mail_ssl.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 | dbce8fb5f5f8 |
children | 7bfa47410cc0 |
comparison
equal
deleted
inserted
replaced
1620:166461f0bd4b | 1621:fd440d324700 |
---|---|
9 | 9 |
10 use warnings; | 10 use warnings; |
11 use strict; | 11 use strict; |
12 | 12 |
13 use Test::More; | 13 use Test::More; |
14 | |
15 use Socket qw/ :DEFAULT $CRLF /; | |
16 | 14 |
17 BEGIN { use FindBin; chdir($FindBin::Bin); } | 15 BEGIN { use FindBin; chdir($FindBin::Bin); } |
18 | 16 |
19 use lib 'lib'; | 17 use lib 'lib'; |
20 use Test::Nginx; | 18 use Test::Nginx; |
292 | 290 |
293 ############################################################################### | 291 ############################################################################### |
294 | 292 |
295 sub get_ssl_socket { | 293 sub get_ssl_socket { |
296 my ($port, $ses) = @_; | 294 my ($port, $ses) = @_; |
297 my $s; | 295 |
298 | 296 my $s = IO::Socket::INET->new('127.0.0.1:' . port($port)); |
299 my $dest_ip = inet_aton('127.0.0.1'); | |
300 my $dest_serv_params = sockaddr_in(port($port), $dest_ip); | |
301 | |
302 socket($s, &AF_INET, &SOCK_STREAM, 0) or die "socket: $!"; | |
303 connect($s, $dest_serv_params) or die "connect: $!"; | |
304 | |
305 my $ssl = Net::SSLeay::new($ctx) or die("Failed to create SSL $!"); | 297 my $ssl = Net::SSLeay::new($ctx) or die("Failed to create SSL $!"); |
306 Net::SSLeay::set_session($ssl, $ses) if defined $ses; | 298 Net::SSLeay::set_session($ssl, $ses) if defined $ses; |
307 Net::SSLeay::set_fd($ssl, fileno($s)); | 299 Net::SSLeay::set_fd($ssl, fileno($s)); |
308 Net::SSLeay::connect($ssl) or die("ssl connect"); | 300 Net::SSLeay::connect($ssl) or die("ssl connect"); |
309 return ($s, $ssl); | 301 return ($s, $ssl); |