diff options
author | Eric Wong <e@yhbt.net> | 2020-06-16 22:31:22 +0000 |
---|---|---|
committer | Eric Wong <e@yhbt.net> | 2020-06-21 00:43:28 +0000 |
commit | 0e6ceff37fc38f28a1520d7475f31d47f74ec7e6 (patch) | |
tree | 18b8e61fd60f10989b9cffff7417cef050d40e1c /t/nntpd.t | |
parent | 3c947561fa0678803158f2174ff87992addb3c7e (diff) | |
download | public-inbox-0e6ceff37fc38f28a1520d7475f31d47f74ec7e6.tar.gz |
Having `git cat-file' as a separate process naturally lends itself to asynchronous dispatch. Our event loop for -nntpd no longer blocks on slow git storage. Pipelining in -imapd was tricky and bugs were exposed by mbsync(1). Update t/nntpd.t to support pipelining ARTICLE requests to ensure we don't have the same problems -imapd did during development.
Diffstat (limited to 't/nntpd.t')
-rw-r--r-- | t/nntpd.t | 20 |
1 files changed, 19 insertions, 1 deletions
@@ -12,6 +12,8 @@ use IO::Socket; use Socket qw(IPPROTO_TCP TCP_NODELAY); use Net::NNTP; use Sys::Hostname; +use POSIX qw(_exit); +use Digest::SHA; # FIXME: make easier to test both versions my $version = $ENV{PI_TEST_VERSION} || 1; @@ -287,21 +289,37 @@ Date: Fri, 02 Oct 1993 00:00:00 +0000 # pipelined requests: { my $nreq = 90; + my $nart = 2; syswrite($s, "GROUP $group\r\n"); my $res = <$s>; my $rdr = fork; if ($rdr == 0) { - use POSIX qw(_exit); for (1..$nreq) { <$s> =~ /\A224 / or _exit(1); <$s> =~ /\A1/ or _exit(2); <$s> eq ".\r\n" or _exit(3); } + my %sums; + for (1..$nart) { + <$s> =~ /\A220 / or _exit(4); + my $dig = Digest::SHA->new(1); + while (my $l = <$s>) { + last if $l eq ".\r\n"; + $dig->add($l); + } + $dig = $dig->hexdigest; + $sums{$dig}++; + } + if ($nart) { + scalar(keys(%sums)) == 1 or _exit(5); + (values(%sums))[0] == $nart or _exit(6); + } _exit(0); } for (1..$nreq) { syswrite($s, "XOVER 1\r\n"); } + syswrite($s, "ARTICLE 1\r\n" x $nart); is($rdr, waitpid($rdr, 0), 'reader done'); is($? >> 8, 0, 'no errors'); } |