t/nntpd-tls: sometimes SSL_connect succeeds quickly

[public-inbox.git] / t / nntpd-tls.t

diff --git a/t/nntpd-tls.t b/t/nntpd-tls.t
index 0b6afcefdff750ec189947a9697505922dbb404f..4e71e82d7f57bc34a372eb8dbc6722ce04f6b354 100644 (file)
--- a/t/nntpd-tls.t
+++ b/t/nntpd-tls.t
@@ -120,8 +120,14 @@ for my $args (
        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;
-       my @poll = (fileno($slow), PublicInbox::TLS::epollbit());
+       my @poll;
+       if ($slow_done) {
+               diag('W: connect_SSL early OK, slow client test invalid');
+               use PublicInbox::Syscall qw(EPOLLIN EPOLLOUT);
+               @poll = (fileno($slow), EPOLLIN | EPOLLOUT);
+       } else {
+               @poll = (fileno($slow), PublicInbox::TLS::epollbit());
+       }
        # we should call connect_SSL much later...
 
        # NNTPS