about summary refs log tree commit homepage
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/nntpd.t8
1 files changed, 8 insertions, 0 deletions
diff --git a/t/nntpd.t b/t/nntpd.t
index c5bc0b54..5f4ba57b 100644
--- a/t/nntpd.t
+++ b/t/nntpd.t
@@ -173,6 +173,14 @@ EOF
                         $len,
                         '1' ] }, "XOVER by article works");
 
+        is_deeply($n->head(1), $n->head('<nntp@example.com>'), 'HEAD OK');
+        is_deeply($n->body(1), $n->body('<nntp@example.com>'), 'BODY OK');
+        my $art = $n->article(1);
+        is(ref($art), 'ARRAY', 'got array for ARTICLE');
+        is_deeply($art, $n->article('<nntp@example.com>'), 'ARTICLE OK');
+        is($n->article(999), undef, 'non-existent num');
+        is($n->article('<non-existent@example>'), undef, 'non-existent mid');
+
         {
                 syswrite($s, "OVER $mid\r\n");
                 $buf = read_til_dot($s);