Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ruanhaishen
redis
Commits
29aed9c4
Commit
29aed9c4
authored
May 23, 2014
by
antirez
Browse files
Cluster test: move basic read/write test into a procedure.
parent
81af783f
Changes
2
Hide whitespace changes
Inline
Side-by-side
tests/cluster/cluster.tcl
View file @
29aed9c4
...
...
@@ -106,3 +106,25 @@ proc create_cluster {masters slaves} {
}
assert_cluster_state ok
}
# Set the cluster node-timeout to all the reachalbe nodes.
proc set_cluster_node_timeout
{
to
}
{
foreach_redis_id id
{
catch
{
R $id CONFIG SET cluster-node-timeout $to
}
}
}
# Check if the cluster is writable and readable. Use node
"id"
# as a starting point to talk with the cluster.
proc cluster_write_test
{
id
}
{
set prefix
[
randstring 20 20 alpha
]
set port
[
get_instance_attrib redis $id port
]
set cluster
[
redis_cluster 127.0.0.1:$port
]
for
{
set j 0
}
{
$j
< 100
}
{
incr j
}
{
$cluster set key.$j $prefix.$j
}
for
{
set j 0
}
{
$j
< 100
}
{
incr j
}
{
assert
{[
$cluster
get key.$j
]
eq
"
$prefix.$j
"
}
}
$cluster close
}
tests/cluster/tests/00-base.tcl
View file @
29aed9c4
...
...
@@ -55,13 +55,5 @@ 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
cluster_write_test 0
}
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment