nntp: XHDR lookups by Message-ID may cross groups

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

diff --git a/t/nntpd.t b/t/nntpd.t
index 090e150029cf3fd671ad79e3b45cea181fdc2c9a..28d8491017a8c0d15d8dc0d4c2c5fd0f94f9e095 100644 (file)
--- a/t/nntpd.t
+++ b/t/nntpd.t
@@ -90,7 +90,8 @@ EOF
        $! = 0;
        fcntl($sock, F_SETFD, $fl |= FD_CLOEXEC);
        ok(! $!, 'no error from fcntl(F_SETFD)');
-       my $n = Net::NNTP->new($sock->sockhost . ':' . $sock->sockport);
+       my $host_port = $sock->sockhost . ':' . $sock->sockport;
+       my $n = Net::NNTP->new($host_port);
        my $list = $n->list;
        is_deeply($list, { $group => [ qw(1 1 n) ] }, 'LIST works');
        is_deeply([$n->group($group)], [ qw(0 1 1), $group ], 'GROUP works');
@@ -112,6 +113,14 @@ EOF
                          "$k by article number works");
        }
 
+       {
+               my $nogroup = Net::NNTP->new($host_port);
+               while (my ($k, $v) = each %xhdr) {
+                       is_deeply($nogroup->xhdr("$k $mid"), { $mid => $v },
+                                 "$k by message-id works without group");
+               }
+       }
+
        # TODO: upgrades and such
 
        ok(kill('TERM', $pid), 'killed nntpd');