t/nntpd.t: fix fcntl test to ensure no failures

We need to run the syscall before testing for its failure :x

diff --git a/t/nntpd.t b/t/nntpd.t
index d30ed63f9fb04baf4c66d93adec93854465354b4..d886e3c65e71949996decace5456859ea5fa5162 100644 (file)
--- a/t/nntpd.t
+++ b/t/nntpd.t
@@ -88,8 +88,8 @@ EOF
        }
        ok(defined $pid, 'forked nntpd process successfully');
        $! = 0;
-       ok(! $!, 'no error from fcntl(F_SETFD)');
        fcntl($sock, F_SETFD, $fl |= FD_CLOEXEC);
+       ok(! $!, 'no error from fcntl(F_SETFD)');
        my $n = Net::NNTP->new($sock->sockhost . ':' . $sock->sockport);
        my $list = $n->list;
        is_deeply($list, { $group => [ qw(1 1 n) ] }, 'LIST works');