mirror of
https://codeberg.org/redict/redict.git
synced 2025-01-24 09:08:26 -05:00
17 lines
356 B
Tcl
17 lines
356 B
Tcl
# Check the basic monitoring and failover capabilities.
|
|
|
|
source "../tests/includes/init-tests.tcl"
|
|
|
|
if {$::simulate_error} {
|
|
test "This test will fail" {
|
|
fail "Simulated error"
|
|
}
|
|
}
|
|
|
|
test "Cluster nodes are reachable." {
|
|
foreach_redis_id id {
|
|
# Every node should just know itself.
|
|
assert {[R $id ping] eq {PONG}}
|
|
}
|
|
}
|