mirror of
https://codeberg.org/redict/redict.git
synced 2025-01-24 09:08:26 -05:00
d7da507683
Most units will start with these two basic tests to create an environment where the real tests are ran.
24 lines
725 B
Tcl
24 lines
725 B
Tcl
# Initialization tests -- most units will start including this.
|
|
|
|
set redis_slaves 4
|
|
test "Create a master-slaves cluster of [expr $redis_slaves+1] instances" {
|
|
create_redis_master_slave_cluster [expr {$redis_slaves+1}]
|
|
}
|
|
set master_id 0
|
|
|
|
test "Sentinels can start monitoring a master" {
|
|
set sentinels [llength $::sentinel_instances]
|
|
set quorum [expr {$sentinels/2+1}]
|
|
foreach_sentinel_id id {
|
|
catch {S $id SENTINEL REMOVE mymaster}
|
|
S $id SENTINEL MONITOR mymaster \
|
|
[get_instance_attrib redis $master_id host] \
|
|
[get_instance_attrib redis $master_id port] $quorum
|
|
}
|
|
foreach_sentinel_id id {
|
|
assert {[S $id sentinel master mymaster] ne {}}
|
|
}
|
|
}
|
|
|
|
|