percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-10-19 00:43:58 +00:00
Code Issues Packages Projects Releases Wiki Activity

t/pt-table-sync/wait.t: use wait_until() instead of sleep()

Browse Source
This commit is contained in:
Brian Fraser
2012-07-23 13:48:05 -03:00
parent a948014991
commit 0d26097f31
1 changed files with 9 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
t/pt-table-sync/wait.t
View File

@@ -61,15 +61,13 @@ if ( !$pid ) {
}
# parent
sleep 4; # give time slave to become lagged
my $lag = $slave_dbh->selectrow_hashref("show slave status");
if ( !$lag->{seconds_behind_master} ) {
PerconaTest::wait_until(sub {
$slave_dbh->selectrow_hashref("show slave status")->{seconds_behind_master}
}) or do {
kill 15, $pid;
waitpid ($pid, 0);
die "Slave did not lag";
}
};
my $start = time;
@@ -93,14 +91,13 @@ cmp_ok(
);
# Repeat the test with --wait 0 to test that the sync happens without delay.
$lag = $slave_dbh->selectrow_hashref("show slave status");
if ( !$lag->{seconds_behind_master} ) {
PerconaTest::wait_until(sub {
$slave_dbh->selectrow_hashref("show slave status")->{seconds_behind_master}
}) or do {
kill 15, $pid;
waitpid ($pid, 0);
die "Slave is not lagged";
}
die "Slave did not lag";
};
$start = time;