From 617f35dacbd4e5972bf2d82411b45009bbc79a42 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Sat, 27 Feb 2016 21:31:24 +0000 Subject: git: use built-in spawn implementation for vfork This should reduce overhead of spawning git processes from our long-running httpd and nntpd servers. --- t/spawn.t | 36 +++++++++++++++++++++++++++++++++++- 1 file changed, 35 insertions(+), 1 deletion(-) (limited to 't') diff --git a/t/spawn.t b/t/spawn.t index ed9b5b08..d52b6465 100644 --- a/t/spawn.t +++ b/t/spawn.t @@ -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; -- cgit v1.2.3-24-ge0c7