diff options
Diffstat (limited to 't')
-rw-r--r-- | t/nntpd.t | 25 | ||||
-rw-r--r-- | t/search.t | 2 |
2 files changed, 25 insertions, 2 deletions
@@ -151,7 +151,30 @@ EOF '<nntp@example.com>', '', '202', - '1' ] }, "XOVER works"); + '1' ] }, "XOVER range works"); + + is_deeply($n->xover('1'), { + '1' => ['hihi', + 'Me <me@example.com>', + 'Thu, 01 Jan 1970 06:06:06 +0000', + '<nntp@example.com>', + '', + '202', + '1' ] }, "XOVER by article works"); + + { + syswrite($s, "OVER $mid\r\n"); + $buf = ''; + do { + sysread($s, $buf, 4096, length($buf)); + } until ($buf =~ /^[^2]../ || $buf =~ /\r\n\.\r\n\z/); + my @r = split("\r\n", $buf); + like($r[0], qr/^224 /, 'got 224 response for OVER'); + is($r[1], "0\thihi\tMe <me\@example.com>\t" . + "Thu, 01 Jan 1970 06:06:06 +0000\t" . + "$mid\t\t202\t1", 'OVER by Message-ID works'); + is($r[2], '.', 'correctly terminated response'); + } ok(kill('TERM', $pid), 'killed nntpd'); $pid = undef; @@ -285,7 +285,7 @@ sub filter_mids { ok($doc_id > 0, "doc_id defined with circular reference"); my $smsg = $rw->lookup_message('circle@a'); $smsg->ensure_metadata; - is($smsg->references_sorted, '', "no references created"); + is($smsg->references, '', "no references created"); } done_testing(); |