diff options
author | Eric Wong <e@80x24.org> | 2016-02-27 21:31:24 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-02-27 21:51:39 +0000 |
commit | 617f35dacbd4e5972bf2d82411b45009bbc79a42 (patch) | |
tree | 0a763db89c81941f16dbd16761a35602f3c723c9 /t | |
parent | ca885bd5905b7faa9ecb7b0eb02476de1d3a7f88 (diff) | |
download | public-inbox-617f35dacbd4e5972bf2d82411b45009bbc79a42.tar.gz |
This should reduce overhead of spawning git processes from our long-running httpd and nntpd servers.
Diffstat (limited to 't')
-rw-r--r-- | t/spawn.t | 36 |
1 files changed, 35 insertions, 1 deletions
@@ -3,7 +3,7 @@ use strict; use warnings; use Test::More; -use PublicInbox::Spawn qw(which spawn); +use PublicInbox::Spawn qw(which spawn popen_rd); { my $true = which('true'); @@ -48,6 +48,40 @@ use PublicInbox::Spawn qw(which spawn); is($?, 0, 'env(1) exited successfully'); } +{ + my $fh = popen_rd([qw(echo hello)]); + ok(fileno($fh) >= 0, 'tied fileno works'); + my $l = <$fh>; + is($l, "hello\n", 'tied readline works'); + $l = <$fh>; + ok(!$l, 'tied readline works for EOF'); +} + +{ + my $fh = popen_rd([qw(printf foo\nbar)]); + ok(fileno($fh) >= 0, 'tied fileno works'); + my @line = <$fh>; + is_deeply(\@line, [ "foo\n", 'bar' ], 'wantarray works on readline'); +} + +{ + my $fh = popen_rd([qw(echo hello)]); + my $buf; + is(sysread($fh, $buf, 6), 6, 'sysread got 6 bytes'); + is($buf, "hello\n", 'tied gets works'); + is(sysread($fh, $buf, 6), 0, 'sysread got EOF'); +} + +{ + 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(15, $pid), 1, 'child process killed early'); + is(waitpid($pid, 0), $pid, 'child process reapable'); +} + done_testing(); 1; |