cluster.tcl: fix redis links leak in refresh_nodes_map.

1 files changed, 7 insertions, 1 deletions

diff --git a/tests/support/cluster.tcl b/tests/support/cluster.tcl
index 79d9244d0..b007e3b05 100644
--- a/tests/support/cluster.tcl
+++ b/tests/support/cluster.tcl
@@ -64,7 +64,6 @@ proc ::redis_cluster::__method__refresh_nodes_map {id} {
             set r [redis $start_host $start_port]
             set nodes_descr [$r cluster nodes]
             $r close
-            puts $e
         } e]} {
             if {$r ne {}} {catch {$r close}}
             incr idx
@@ -123,6 +122,13 @@ proc ::redis_cluster::__method__refresh_nodes_map {id} {
         lappend ::redis_cluster::startup_nodes($id) $addr
     }
 
+    # Close all the existing links in the old nodes map, and set the new
+    # map as current.
+    foreach n $::redis_cluster::nodes($id) {
+        catch {
+            [dict get $n link] close
+        }
+    }
     set ::redis_cluster::nodes($id) $nodes
 
     # Populates the slots -> nodes map.