From 595854982a59f369ab605794f05c046c86253468 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Mon, 24 Jun 2019 02:52:42 +0000 Subject: nntp: call SSL_shutdown in normal cases This is in accordance with TLS standards and will be needed to support session caching/reuse in the future. However, we don't issue shutdown(2) since we know not to inadvertantly share our sockets with other processes. --- t/nntpd-tls.t | 2 ++ 1 file changed, 2 insertions(+) (limited to 't') diff --git a/t/nntpd-tls.t b/t/nntpd-tls.t index 4727ee5b..00b03b66 100644 --- a/t/nntpd-tls.t +++ b/t/nntpd-tls.t @@ -118,6 +118,8 @@ for my $args ( my $c = Net::NNTP->new($nntps_addr, %o); my $list = $c->list; is_deeply($list, $expect, 'NNTPS LIST works'); + is($c->command('QUIT')->response(), Net::Cmd::CMD_OK(), 'QUIT works'); + is(0, sysread($c, my $buf, 1), 'got EOF after QUIT'); # STARTTLS delete $o{SSL}; -- cgit v1.2.3-24-ge0c7