fdd023ff82
We currently has two disjoint TCL frameworks: 1. Normal testing framework, which trigger by runtest, which individually launches nodes for testing. 2. Cluster framework, which trigger by runtest-cluster, which pre-allocates N nodes and uses them for testing large configurations. The normal TCL testing framework is much more readily tested and is also automatically run as part of the CI for new PRs. The runtest-cluster since it runs very slowly (cannot be parallelized), it currently only runs in daily CI, this results in some changes to the cluster not being exposed in PR CI in time. This PR migrate the Cluster mode tests to normal framework. Some cluster tests are kept in runtest-cluster because of timing issues or not yet supported, we can process them later. Signed-off-by: Binbin <binloveplay1314@qq.com>
94 lines
3.0 KiB
Tcl
94 lines
3.0 KiB
Tcl
# Tests for fixing migrating slot at all stages:
|
|
# 1. when migration is half inited on "migrating" node
|
|
# 2. when migration is half inited on "importing" node
|
|
# 3. migration inited, but not finished
|
|
# 4. migration is half finished on "migrating" node
|
|
# 5. migration is half finished on "importing" node
|
|
|
|
source tests/support/cluster_util.tcl
|
|
|
|
start_cluster 2 0 {tags {external:skip cluster}} {
|
|
|
|
config_set_all_nodes cluster-allow-replica-migration no
|
|
|
|
test "Cluster is up" {
|
|
wait_for_cluster_state ok
|
|
}
|
|
|
|
set cluster [valkey_cluster 127.0.0.1:[srv 0 port]]
|
|
catch {unset nodefrom}
|
|
catch {unset nodeto}
|
|
|
|
proc reset_cluster {} {
|
|
uplevel 1 {
|
|
$cluster refresh_nodes_map
|
|
array set nodefrom [$cluster masternode_for_slot 609]
|
|
array set nodeto [$cluster masternode_notfor_slot 609]
|
|
}
|
|
}
|
|
|
|
reset_cluster
|
|
|
|
$cluster set aga xyz
|
|
|
|
test "Half init migration in 'migrating' is fixable" {
|
|
assert_equal {OK} [$nodefrom(link) cluster setslot 609 migrating $nodeto(id)]
|
|
fix_cluster $nodefrom(addr)
|
|
assert_equal "xyz" [$cluster get aga]
|
|
}
|
|
|
|
test "Half init migration in 'importing' is fixable" {
|
|
assert_equal {OK} [$nodeto(link) cluster setslot 609 importing $nodefrom(id)]
|
|
fix_cluster $nodefrom(addr)
|
|
assert_equal "xyz" [$cluster get aga]
|
|
}
|
|
|
|
test "Init migration and move key" {
|
|
assert_equal {OK} [$nodefrom(link) cluster setslot 609 migrating $nodeto(id)]
|
|
assert_equal {OK} [$nodeto(link) cluster setslot 609 importing $nodefrom(id)]
|
|
assert_equal {OK} [$nodefrom(link) migrate $nodeto(host) $nodeto(port) aga 0 10000]
|
|
wait_for_cluster_propagation
|
|
assert_equal "xyz" [$cluster get aga]
|
|
fix_cluster $nodefrom(addr)
|
|
assert_equal "xyz" [$cluster get aga]
|
|
}
|
|
|
|
reset_cluster
|
|
|
|
test "Move key again" {
|
|
wait_for_cluster_propagation
|
|
assert_equal {OK} [$nodefrom(link) cluster setslot 609 migrating $nodeto(id)]
|
|
assert_equal {OK} [$nodeto(link) cluster setslot 609 importing $nodefrom(id)]
|
|
assert_equal {OK} [$nodefrom(link) migrate $nodeto(host) $nodeto(port) aga 0 10000]
|
|
wait_for_cluster_propagation
|
|
assert_equal "xyz" [$cluster get aga]
|
|
}
|
|
|
|
test "Half-finish migration" {
|
|
# half finish migration on 'migrating' node
|
|
assert_equal {OK} [$nodefrom(link) cluster setslot 609 node $nodeto(id)]
|
|
fix_cluster $nodefrom(addr)
|
|
assert_equal "xyz" [$cluster get aga]
|
|
}
|
|
|
|
reset_cluster
|
|
|
|
test "Move key back" {
|
|
# 'aga' key is in 609 slot
|
|
assert_equal {OK} [$nodefrom(link) cluster setslot 609 migrating $nodeto(id)]
|
|
assert_equal {OK} [$nodeto(link) cluster setslot 609 importing $nodefrom(id)]
|
|
assert_equal {OK} [$nodefrom(link) migrate $nodeto(host) $nodeto(port) aga 0 10000]
|
|
assert_equal "xyz" [$cluster get aga]
|
|
}
|
|
|
|
test "Half-finish importing" {
|
|
# Now we half finish 'importing' node
|
|
assert_equal {OK} [$nodeto(link) cluster setslot 609 node $nodeto(id)]
|
|
fix_cluster $nodefrom(addr)
|
|
assert_equal "xyz" [$cluster get aga]
|
|
}
|
|
|
|
config_set_all_nodes cluster-allow-replica-migration yes
|
|
|
|
} ;# start_cluster
|