It limits flexibility and makes it harder to switch
to use PublicImport::Import.
);
my $sock = IO::Socket::INET->new(%opts);
my $pid;
);
my $sock = IO::Socket::INET->new(%opts);
my $pid;
END { kill 'TERM', $pid if defined $pid };
{
local $ENV{HOME} = $home;
END { kill 'TERM', $pid if defined $pid };
{
local $ENV{HOME} = $home;
IPC::Run::run([$mda], \$in);
is(0, $?, 'ran MDA correctly');
is(0, system($index, $maindir), 'indexed git dir');
IPC::Run::run([$mda], \$in);
is(0, $?, 'ran MDA correctly');
is(0, system($index, $maindir), 'indexed git dir');
+ $simple->header_set('List-Id', "<$addr>");
+ $len = length($simple->as_string);
}
ok($sock, 'sock created');
}
ok($sock, 'sock created');
'Thu, 01 Jan 1970 06:06:06 +0000',
'<nntp@example.com>',
'',
'Thu, 01 Jan 1970 06:06:06 +0000',
'<nntp@example.com>',
'',
'1' ] }, "XOVER range works");
is_deeply($n->xover('1'), {
'1' ] }, "XOVER range works");
is_deeply($n->xover('1'), {
'Thu, 01 Jan 1970 06:06:06 +0000',
'<nntp@example.com>',
'',
'Thu, 01 Jan 1970 06:06:06 +0000',
'<nntp@example.com>',
'',
'1' ] }, "XOVER by article works");
{
'1' ] }, "XOVER by article works");
{
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" .
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');
+ "$mid\t\t$len\t1", 'OVER by Message-ID works');
is($r[2], '.', 'correctly terminated response');
}
is($r[2], '.', 'correctly terminated response');
}