about summary refs log tree commit homepage
path: root/t/nntpd-tls.t
diff options
context:
space:
mode:
Diffstat (limited to 't/nntpd-tls.t')
-rw-r--r--t/nntpd-tls.t2
1 files changed, 2 insertions, 0 deletions
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};