t/active-unix-socket: sleep for init(8) to reap worker

Unfortunately, we need a sleep loop here since kill(2) succeeds
on zombies and init(8) doesn't reap the worker soon enough on
a FreeBSD VM.

1 files changed, 4 insertions, 0 deletions

diff --git a/t/active-unix-socket.t b/t/active-unix-socket.t
index 4e11837..4dcc8dc 100644
--- a/t/active-unix-socket.t
+++ b/t/active-unix-socket.t
@@ -84,6 +84,10 @@ is($pidf, $to_kill{u1}, 'pid file contents unchanged after 2nd start failure');
         ok(-S $u1, 'socket stayed after SIGKILL');
         is(IO::Socket::UNIX->new(Peer => $u1, Type => SOCK_STREAM), undef,
                 'fail to connect to u1');
+        for (1..50) { # wait for init process to reap worker
+                kill(0, $worker_pid) or last;
+                select(undef, undef, undef, 0.011);
+        }
         ok(!kill(0, $worker_pid), 'worker gone after parent dies');
 }