mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-12-13 02:01:10 +08:00
Test waitpid in t/pt-table-sync/pt-1194.t
This commit is contained in:
@@ -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);
|
||||
|
||||
Reference in New Issue
Block a user