redis/tests/cluster/tests/00-base.tcl

17 lines
356 B
Tcl
Raw Normal View History

2014-04-24 18:01:41 +02:00
# 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}}
}
}