diff options
author | Eric Wong <e@80x24.org> | 2016-12-26 09:58:02 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-12-26 10:06:14 +0000 |
commit | ae7bb15b33e870c5823e4f31dda527474c57b42b (patch) | |
tree | f3b00410d4b7429c9a684ac1cdb04bb2731cd279 /t | |
parent | 65ed2d84d4d87c7c94dee9e880f694a8607a4d1c (diff) | |
download | public-inbox-ae7bb15b33e870c5823e4f31dda527474c57b42b.tar.gz |
It is never used, and inappropriate to support in generic code. HTTPD::Async already sets non-blocking, and it's better to do it in -httpd-specific code since we know our -httpd can handle it.
Diffstat (limited to 't')
-rw-r--r-- | t/spawn.t | 11 |
1 files changed, 0 insertions, 11 deletions
@@ -81,17 +81,6 @@ use PublicInbox::Spawn qw(which spawn popen_rd); isnt($?, 0, '$? set properly: '.$?); } -{ - my ($fh, $pid) = popen_rd([qw(sleep 60)], undef, { Blocking => 0 }); - ok(defined $pid && $pid > 0, 'returned pid when array requested'); - is(kill(0, $pid), 1, 'child process is running'); - ok(!defined(sysread($fh, my $buf, 1)) && $!{EAGAIN}, - 'sysread returned quickly with EAGAIN'); - is(kill(9, $pid), 1, 'child process killed early'); - is(waitpid($pid, 0), $pid, 'child process reapable'); - isnt($?, 0, '$? set properly: '.$?); -} - done_testing(); 1; |