Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
xindoo
redis
提交
4c047447
R
redis
项目概览
xindoo
/
redis
通知
2
Star
2
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
R
redis
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
4c047447
编写于
5月 19, 2014
作者:
A
antirez
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Cluster test: proper initialization at unit startup.
上级
67133d2f
变更
3
隐藏空白更改
内联
并排
Showing
3 changed file
with
41 addition
and
34 deletion
+41
-34
tests/cluster/tests/00-base.tcl
tests/cluster/tests/00-base.tcl
+0
-33
tests/cluster/tests/includes/init-tests.tcl
tests/cluster/tests/includes/init-tests.tcl
+40
-0
tests/instances.tcl
tests/instances.tcl
+1
-1
未找到文件。
tests/cluster/tests/00-base.tcl
浏览文件 @
4c047447
...
...
@@ -8,13 +8,6 @@ if {$::simulate_error} {
}
}
test
"Cluster nodes are reachable"
{
foreach_redis_id id
{
# Every node should just know itself.
assert
{[
R $id ping
]
eq
{
PONG
}}
}
}
test
"Different nodes have different IDs"
{
set ids
{}
set numnodes 0
...
...
@@ -29,32 +22,6 @@ test "Different nodes have different IDs" {
assert
{
$numids
== $numnodes
}
}
test
"Check if nodes auto-discovery works"
{
# Join node 0 with 1, 1 with 2, ... and so forth.
# If auto-discovery works all nodes will know every other node
# eventually.
set ids
{}
foreach_redis_id id
{
lappend ids $id
}
for
{
set j 0
}
{
$j
<
[
expr
[
llength $ids
]
-1
]}
{
incr j
}
{
set a
[
lindex $ids $j
]
set b
[
lindex $ids
[
expr $j+1
]]
set b_port
[
get_instance_attrib redis $b port
]
R $a cluster meet 127.0.0.1 $b_port
}
foreach_redis_id id
{
wait_for_condition 1000 50
{
[
llength
[
get_cluster_nodes $id
]]
==
[
llength $ids
]
}
else
{
fail
"Cluster failed to join into a full mesh."
}
}
}
test
"Before slots allocation, all nodes report cluster failure"
{
assert_cluster_state fail
}
test
"It is possible to perform slot allocation"
{
cluster_allocate_slots 5
}
...
...
tests/cluster/tests/includes/init-tests.tcl
浏览文件 @
4c047447
...
...
@@ -11,3 +11,43 @@ test "(init) Restart killed instances" {
}
}
}
test
"Cluster nodes are reachable"
{
foreach_redis_id id
{
# Every node should just know itself.
assert
{[
R $id ping
]
eq
{
PONG
}}
}
}
test
"Cluster nodes hard reset"
{
foreach_redis_id id
{
R $id flushall
R $id cluster reset hard
}
}
test
"Cluster Join and auto-discovery test"
{
# Join node 0 with 1, 1 with 2, ... and so forth.
# If auto-discovery works all nodes will know every other node
# eventually.
set ids
{}
foreach_redis_id id
{
lappend ids $id
}
for
{
set j 0
}
{
$j
<
[
expr
[
llength $ids
]
-1
]}
{
incr j
}
{
set a
[
lindex $ids $j
]
set b
[
lindex $ids
[
expr $j+1
]]
set b_port
[
get_instance_attrib redis $b port
]
R $a cluster meet 127.0.0.1 $b_port
}
foreach_redis_id id
{
wait_for_condition 1000 50
{
[
llength
[
get_cluster_nodes $id
]]
==
[
llength $ids
]
}
else
{
fail
"Cluster failed to join into a full mesh."
}
}
}
test
"Before slots allocation, all nodes report cluster failure"
{
assert_cluster_state fail
}
tests/instances.tcl
浏览文件 @
4c047447
...
...
@@ -363,7 +363,7 @@ proc kill_instance {type id} {
# Return true of the instance of the specified type/id is killed.
proc instance_is_killed
{
type id
}
{
set pid
[
get_instance_attrib $type $id pid
]
return $pid == -1
expr
{
$pid
== -1
}
}
# Restart an instance previously killed by kill_instance
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录