From 1206bdf13f3afbc242a52ee1ce190ef48432fa90 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Mon, 23 Jun 2014 09:08:51 +0200
Subject: Basic tests for the ROLE command.

---
 tests/integration/replication.tcl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/tests/integration/replication.tcl b/tests/integration/replication.tcl
index 5a320e785..131eebe54 100644
--- a/tests/integration/replication.tcl
+++ b/tests/integration/replication.tcl
@@ -74,6 +74,23 @@ start_server {tags {"repl"}} {
             if {$::valgrind} {after 2000}
             list [r -1 dbsize] [r 0 dbsize]
         } {0 0}
+
+        test {ROLE in master reports master with a slave} {
+            set res [r -1 role]
+            lassign $res role offset slaves
+            assert {$role eq {master}}
+            assert {$offset > 0}
+            assert {[llength $slaves] == 1}
+            lassign [lindex $slaves 0] master_host master_port slave_offset
+            assert {$slave_offset < $offset}
+        }
+
+        test {ROLE in slave reports slave in connected state} {
+            set res [r role]
+            lassign $res role master_host master_port slave_state slave_offset
+            assert {$role eq {slave}}
+            assert {$slave_state eq {connected}}
+        }
     }
 }
 
-- 
cgit v1.2.1