diff options
author | Eric Wong <e@80x24.org> | 2021-03-16 23:02:18 -0800 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-03-17 19:03:14 +0000 |
commit | 4c6c853494b4936825741bb5e8885f1312639058 (patch) | |
tree | 417b6ef72b5c4c4b738effbe5a1cca36c359ae8b /t/httpd-corner.t | |
parent | 081918279573b209c27a91e443c37df597bcd43f (diff) | |
download | public-inbox-4c6c853494b4936825741bb5e8885f1312639058.tar.gz |
This may help track down some occasional test failures I'm seeing.
Diffstat (limited to 't/httpd-corner.t')
-rw-r--r-- | t/httpd-corner.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/httpd-corner.t b/t/httpd-corner.t index 794d8aeb..296e1dc1 100644 --- a/t/httpd-corner.t +++ b/t/httpd-corner.t @@ -610,7 +610,8 @@ SKIP: { my $null_in = ''; my $rdr = { 2 => \(my $null_err), 0 => \$null_in }; my @lsof = xqx([$lsof, '-p', $td->{pid}], undef, $rdr); - is_deeply([grep(/\bdeleted\b/, @lsof)], [], 'no lingering deleted inputs'); + my $d = [ grep(/\(deleted\)/, @lsof) ]; + is_deeply($d, [], 'no lingering deleted inputs') or diag explain($d); # filter out pipes inherited from the parent my @this = xqx([$lsof, '-p', $$], undef, $rdr); |