diff options
Diffstat (limited to 'examples/redis-unstable/tests/unit/cluster/announced-endpoints.tcl')
| -rw-r--r-- | examples/redis-unstable/tests/unit/cluster/announced-endpoints.tcl | 75 |
1 files changed, 0 insertions, 75 deletions
diff --git a/examples/redis-unstable/tests/unit/cluster/announced-endpoints.tcl b/examples/redis-unstable/tests/unit/cluster/announced-endpoints.tcl deleted file mode 100644 index a37ca58..0000000 --- a/examples/redis-unstable/tests/unit/cluster/announced-endpoints.tcl +++ /dev/null @@ -1,75 +0,0 @@ -start_cluster 2 2 {tags {external:skip cluster}} { - - test "Test change cluster-announce-port and cluster-announce-tls-port at runtime" { - if {$::tls} { - set baseport [lindex [R 0 config get tls-port] 1] - } else { - set baseport [lindex [R 0 config get port] 1] - } - set count [expr [llength $::servers] + 1] - set used_port [find_available_port $baseport $count] - - R 0 config set cluster-announce-tls-port $used_port - R 0 config set cluster-announce-port $used_port - - assert_match "*:$used_port@*" [R 0 CLUSTER NODES] - wait_for_condition 50 100 { - [string match "*:$used_port@*" [R 1 CLUSTER NODES]] - } else { - fail "Cluster announced port was not propagated via gossip" - } - - R 0 config set cluster-announce-tls-port 0 - R 0 config set cluster-announce-port 0 - assert_match "*:$baseport@*" [R 0 CLUSTER NODES] - } - - test "Test change cluster-announce-bus-port at runtime" { - if {$::tls} { - set baseport [lindex [R 0 config get tls-port] 1] - } else { - set baseport [lindex [R 0 config get port] 1] - } - set count [expr [llength $::servers] + 1] - set used_port [find_available_port $baseport $count] - - # Verify config set cluster-announce-bus-port - R 0 config set cluster-announce-bus-port $used_port - assert_match "*@$used_port *" [R 0 CLUSTER NODES] - wait_for_condition 50 100 { - [string match "*@$used_port *" [R 1 CLUSTER NODES]] - } else { - fail "Cluster announced port was not propagated via gossip" - } - - # Verify restore default cluster-announce-port - set base_bus_port [expr $baseport + 10000] - R 0 config set cluster-announce-bus-port 0 - assert_match "*@$base_bus_port *" [R 0 CLUSTER NODES] - } - - test "CONFIG SET port updates cluster-announced port" { - set count [expr [llength $::servers] + 1] - # Get the original port and change to new_port - if {$::tls} { - set orig_port [lindex [R 0 config get tls-port] 1] - } else { - set orig_port [lindex [R 0 config get port] 1] - } - assert {$orig_port != ""} - set new_port [find_available_port $orig_port $count] - - if {$::tls} { - R 0 config set tls-port $new_port - } else { - R 0 config set port $new_port - } - - # Verify that the new port appears in the output of cluster slots - wait_for_condition 50 100 { - [string match "*$new_port*" [R 0 cluster slots]] - } else { - fail "Cluster announced port was not updated in cluster slots" - } - } -} |
