From 1c130c6b037f9f2ec27ddf6da095d25deb3d6fa2 Mon Sep 17 00:00:00 2001 From: antirez Date: Fri, 2 May 2014 16:37:12 +0200 Subject: Test: cluster/base, check that we can write/read from cluster. --- tests/cluster/run.tcl | 1 + tests/cluster/tests/00-base.tcl | 12 ++++++++++++ 2 files changed, 13 insertions(+) diff --git a/tests/cluster/run.tcl b/tests/cluster/run.tcl index 4c68828bb..7b7d014b8 100644 --- a/tests/cluster/run.tcl +++ b/tests/cluster/run.tcl @@ -5,6 +5,7 @@ cd tests/cluster source cluster.tcl source ../instances.tcl +source ../../support/cluster.tcl ; # Redis Cluster client. set ::instances_count 20 ; # How many instances we use at max. diff --git a/tests/cluster/tests/00-base.tcl b/tests/cluster/tests/00-base.tcl index 5097a049b..c3badb9b5 100644 --- a/tests/cluster/tests/00-base.tcl +++ b/tests/cluster/tests/00-base.tcl @@ -94,3 +94,15 @@ test "Nodes should report cluster_state is ok now" { } } } + +test "It is possible to write and read from the cluster" { + set port [get_instance_attrib redis 0 port] + set cluster [redis_cluster 127.0.0.1:$port] + for {set j 0} {$j < 100} {incr j} { + $cluster set key.$j $j + } + for {set j 0} {$j < 100} {incr j} { + assert {[$cluster get key.$j] eq $j} + } + $cluster close +} -- cgit v1.2.1