From df2cc0c9ca7f32c5b65cc2ff38cadcf962a86a09 Mon Sep 17 00:00:00 2001
From: Sveta Smirnova <sveta.smirnova@percona.com>
Date: Fri, 29 Nov 2024 01:51:12 +0300
Subject: [PATCH] Test waitpid in t/pt-table-sync/pt-1194.t

---
 t/pt-table-sync/pt-1194.t | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/t/pt-table-sync/pt-1194.t b/t/pt-table-sync/pt-1194.t
index 625555b8..13b6b210 100644
--- a/t/pt-table-sync/pt-1194.t
+++ b/t/pt-table-sync/pt-1194.t
@@ -10,6 +10,7 @@ use strict;
 use warnings FATAL => 'all';
 use English qw(-no_match_vars);
 use Test::More;
+use POSIX ":sys_wait_h";
 
 use PerconaTest;
 use Sandbox;
@@ -96,6 +97,9 @@ diag("OK 11\n");
 kill -1, getpgrp($pid1);
 kill -1, getpgrp($pid2);
 
+1 while waitpid($pid1, WUNTRACED) > 0;
+1 while waitpid($pid2, WNOHANG) > 0;
+
 diag("OK 12\n");
 $replica1_dbh->do("STOP ${replica_name}");
 $ss = $ms->get_replica_status($replica1_dbh);