use warnings;
use Test::More;
use Time::HiRes qw(gettimeofday tv_interval);
+use PublicInbox::Spawn qw(which);
foreach my $mod (qw(Plack::Util Plack::Builder
HTTP::Date HTTP::Status IPC::Run)) {
my $psgi = "./t/httpd-corner.psgi";
my $sock = tcp_server();
+# make sure stdin is not a pipe for lsof test to check for leaking pipes
+open(STDIN, '<', '/dev/null') or die 'no /dev/null: $!';
+
# Make sure we don't clobber socket options set by systemd or similar
# using socket activation:
my ($defer_accept_val, $accf_arg);
};
SKIP: {
- my $have_curl = 0;
- foreach my $p (split(':', $ENV{PATH})) {
- -x "$p/curl" or next;
- $have_curl = 1;
- last;
- }
- my $ntest = 4;
- $have_curl or skip('curl(1) missing', $ntest);
+ which('curl') or skip('curl(1) missing', 4);
my $base = 'http://' . $sock->sockhost . ':' . $sock->sockport;
my $url = "$base/sha1";
my ($r, $w);
is($x, $accf_arg, 'SO_ACCEPTFILTER unchanged if previously set');
};
SKIP: {
- use PublicInbox::Spawn qw(which);
skip 'only testing lsof(8) output on Linux', 1 if $^O ne 'linux';
skip 'no lsof in PATH', 1 unless which('lsof');
my @lsof = `lsof -p $pid`;