tests: show lsof output on deleted-file-check failures

[public-inbox.git] / t / httpd-corner.t

diff --git a/t/httpd-corner.t b/t/httpd-corner.t
index 794d8aebe7ca0414a22492bb747778784e839723..296e1dc1abfa1b7416838a40f3a813c5ad270353 100644 (file)
--- 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);