summaryrefslogtreecommitdiff
path: root/examples/redis-unstable/tests/unit/cluster/announced-endpoints.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'examples/redis-unstable/tests/unit/cluster/announced-endpoints.tcl')
-rw-r--r--examples/redis-unstable/tests/unit/cluster/announced-endpoints.tcl75
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"
- }
- }
-}