From 3bf72d0d5fb032e7d4b6beaaae8b70b2cb23fa6b Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Thu, 10 Jul 2014 16:42:43 +0200
Subject: [PATCH] Test: more reliable AOF rewrite test under write load.

---
 tests/unit/aofrw.tcl | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/tests/unit/aofrw.tcl b/tests/unit/aofrw.tcl
index 1c61ea56..a2d74168 100644
--- a/tests/unit/aofrw.tcl
+++ b/tests/unit/aofrw.tcl
@@ -39,6 +39,16 @@ start_server {tags {"aofrw"}} {
         stop_write_load $load_handle3
         stop_write_load $load_handle4
 
+        # Make sure that we remain the only connected client.
+        # This step is needed to make sure there are no pending writes
+        # that will be processed between the two "debug digest" calls.
+        wait_for_condition 50 100 {
+            [llength [split [string trim [r client list]] "\n"]] == 1
+        } else {
+            puts [r client list]
+            fail "Clients generating loads are not disconnecting"
+        }
+
         # Get the data set digest
         set d1 [r debug digest]