blob: e3b88e3e82e7988b26a02aa35158f35603dca329 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# 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}}
}
}
|