Cluster test: check that every node has a different ID.

1 files changed, 15 insertions, 1 deletions

diff --git a/tests/cluster/tests/00-base.tcl b/tests/cluster/tests/00-base.tcl
index e3b88e3e8..cf2a7644d 100644
--- a/tests/cluster/tests/00-base.tcl
+++ b/tests/cluster/tests/00-base.tcl
@@ -8,9 +8,23 @@ if {$::simulate_error} {
     }
 }
 
-test "Cluster nodes are reachable." {
+test "Cluster nodes are reachable" {
     foreach_redis_id id {
         # Every node should just know itself.
         assert {[R $id ping] eq {PONG}}
     }
 }
+
+test "Different nodes have different IDs" {
+    set ids {}
+    set numnodes 0
+    foreach_redis_id id {
+        incr numnodes
+        # Every node should just know itself.
+        set nodeid [dict get [get_myself $id] id]
+        assert {$nodeid ne {}}
+        lappend ids $nodeid
+    }
+    set numids [llength [lsort -unique $ids]]
+    assert {$numids == $numnodes}
+}