diff options
author | Eric Wong <e@80x24.org> | 2019-09-02 04:51:31 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-09-09 01:59:23 +0000 |
commit | 7f3f4923ec711ec97a1204ec2c080e219f50ff3b (patch) | |
tree | 0f15ed7624754eda339fc31d8889ba1407e0241c /t/nntpd-tls.t | |
parent | 16d96f80e55d3f40338101ee8641e03f3b4f2d64 (diff) | |
download | public-inbox-7f3f4923ec711ec97a1204ec2c080e219f50ff3b.tar.gz |
IO::Socket::INET->new is rather verbose with the options hash, extract it into a standalone sub
Diffstat (limited to 't/nntpd-tls.t')
-rw-r--r-- | t/nntpd-tls.t | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/t/nntpd-tls.t b/t/nntpd-tls.t index 84d6e3c0..e961965b 100644 --- a/t/nntpd-tls.t +++ b/t/nntpd-tls.t @@ -117,12 +117,7 @@ for my $args ( my $expect = { $group => [qw(1 1 n)] }; # start negotiating a slow TLS connection - my $slow = IO::Socket::INET->new( - Proto => 'tcp', - PeerAddr => $nntps_addr, - Type => SOCK_STREAM, - Blocking => 0, - ); + my $slow = tcp_connect($nntps, Blocking => 0); $slow = IO::Socket::SSL->start_SSL($slow, SSL_startHandshake => 0, %o); my $slow_done = $slow->connect_SSL; diag('W: connect_SSL early OK, slow client test invalid') if $slow_done; |