atom: switch to getline/close for response bodies

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

diff --git a/t/nntpd.t b/t/nntpd.t
index 5f4ba57ba0c3b89bc0fe7e6b528ba723f50b9ef7..7192d7819dd6d12e9a758581da373042cc39091b 100644 (file)
--- a/t/nntpd.t
+++ b/t/nntpd.t
@@ -175,6 +175,8 @@ EOF
 
        is_deeply($n->head(1), $n->head('<nntp@example.com>'), 'HEAD OK');
        is_deeply($n->body(1), $n->body('<nntp@example.com>'), 'BODY OK');
+       is($n->body(1)->[0], "This is a test message for El\xc3\xa9anor\n",
+               'body really matches');
        my $art = $n->article(1);
        is(ref($art), 'ARRAY', 'got array for ARTICLE');
        is_deeply($art, $n->article('<nntp@example.com>'), 'ARTICLE OK');
@@ -217,6 +219,7 @@ EOF
                is(scalar @r, 1, 'only one response line');
        }
 
+       $n = $s = undef;
        is($pid, waitpid($pid, 0), 'nntpd exited successfully');
        my $eout = eval {
                local $/;