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

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

1 files changed, 1 insertions, 1 deletions

diff --git a/t/nntpd.t b/t/nntpd.t
index d30ed63f..d886e3c6 100644
--- 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');