From fa5cbc8ca39b6e8137b98bec3ba11e0900f546f4 Mon Sep 17 00:00:00 2001
From: "Brian Fraser fraserb@gmail.com" <>
Date: Sun, 15 Jul 2012 22:27:55 -0300
Subject: [PATCH] t/pt-query-digest/mirror.t: Don't sleep(1), use
 wait_for_files() instead

---
 t/pt-query-digest/mirror.t | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/t/pt-query-digest/mirror.t b/t/pt-query-digest/mirror.t
index 9d13b155..27e77aae 100644
--- a/t/pt-query-digest/mirror.t
+++ b/t/pt-query-digest/mirror.t
@@ -46,19 +46,17 @@ $cmd  = "$trunk/bin/pt-query-digest "
          . "--execute h=127.1,P=12346,u=msandbox,p=msandbox --mirror 1 "
          . "--pid $pid_file";
 
-$ENV{PTDEBUG}=1;
-`$cmd > /tmp/read_only.txt 2>&1 &`;
-
-$ENV{PTDEBUG}=0;
-sleep 3;
+{
+    local $ENV{PTDEBUG}=1;
+    `$cmd > /tmp/read_only.txt 2>&1 &`;
+}
 
 $dbh1->do('select sleep(1)');
-sleep 1;
 $dbh1->do('set global read_only=1');
 $dbh2->do('set global read_only=0');
 $dbh1->do('select sleep(1)');
 
-sleep 1;
+PerconaTest::wait_for_files($pid_file);
 chomp(my $pid = `cat $pid_file`);
 kill 15, $pid;
 sleep 0.25;