diff options
author | Eric Wong <e@80x24.org> | 2015-09-22 10:09:47 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2015-09-22 22:12:20 +0000 |
commit | b25ee445c9c66d8e41b889196668bf2b26a54d53 (patch) | |
tree | ea4324d6667672c9a5a3ce12b901deef9fdc7b0f /t | |
parent | 3c37d760722019323168cf2cd6425c0fddd76b0c (diff) | |
download | public-inbox-b25ee445c9c66d8e41b889196668bf2b26a54d53.tar.gz |
We'll require some modifications for HDR support, though.
Diffstat (limited to 't')
-rw-r--r-- | t/nntpd.t | 17 |
1 files changed, 17 insertions, 0 deletions
@@ -95,6 +95,23 @@ EOF is_deeply($list, { $group => [ qw(1 1 n) ] }, 'LIST works'); is_deeply([$n->group($group)], [ qw(0 1 1), $group ], 'GROUP works'); + my $mid = '<nntp@example.com>'; + my %xhdr = ( + 'message-id' => $mid, + 'subject' => 'hihi', + 'date' => 'Thu, 01 Jan 1970 00:00:00 +0000', + 'from' => 'Me <me@example.com>', + 'to' => 'You <you@example.com>', + 'cc' => $addr, + 'xref' => "example.com $group:1" + ); + while (my ($k, $v) = each %xhdr) { + is_deeply($n->xhdr("$k $mid"), { $mid => $v }, + "$k by message-id works"); + is_deeply($n->xhdr("$k 1"), { 1 => $v }, + "$k by article number works"); + } + # TODO: upgrades and such ok(kill('TERM', $pid), 'killed nntpd'); |