Regression tests for protocol desync bug related to Issue #141

[redis.git] / tests / integration / replication.tcl

diff --git a/tests/integration/replication.tcl b/tests/integration/replication.tcl
index 0a1cd409fed067ae6a7e5c6b3bb61732b7f9feee..49408ac06fe072055d962ab0c5a9c8d63b0ad79b 100644 (file)
--- a/tests/integration/replication.tcl
+++ b/tests/integration/replication.tcl
@@ -57,5 +57,11 @@ start_server {tags {"repl"}} {
             if {$::valgrind} {after 2000}
             r  0 get mykey
         } {bar}
+
+        test {FLUSHALL should replicate} {
+            r -1 flushall
+            if {$::valgrind} {after 2000}
+            list [r -1 dbsize] [r 0 dbsize]
+        } {0 0}
     }
 }