- {
- setsockopt($s, IPPROTO_TCP, TCP_NODELAY, 1);
- syswrite($s, 'HDR List-id 1-');
- select(undef, undef, undef, 0.15);
- ok($td->kill, 'killed nntpd');
- select(undef, undef, undef, 0.15);
- syswrite($s, "\r\n");
- $buf = '';
- do {
- sysread($s, $buf, 4096, length($buf));
- } until ($buf =~ /\r\n\z/);
- my @r = split("\r\n", $buf);
- like($r[0], qr/^5\d\d /,
- 'got 5xx response for unoptimized HDR');
- is(scalar @r, 1, 'only one response line');
- }
-