Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
hanoi2005
redis
提交
1dc1e31c
R
redis
项目概览
hanoi2005
/
redis
与 Fork 源项目一致
从无法访问的项目Fork
通知
1
Star
0
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,发现更多精彩内容 >>
提交
1dc1e31c
编写于
3月 04, 2014
作者:
A
antirez
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Sentinel test: initial debugging console.
上级
b132121a
变更
2
隐藏空白更改
内联
并排
Showing
2 changed file
with
27 addition
and
1 deletion
+27
-1
tests/sentinel-tests/00-base.tcl
tests/sentinel-tests/00-base.tcl
+6
-0
tests/sentinel.tcl
tests/sentinel.tcl
+21
-1
未找到文件。
tests/sentinel-tests/00-base.tcl
浏览文件 @
1dc1e31c
...
...
@@ -2,6 +2,12 @@
source
"../sentinel-tests/includes/init-tests.tcl"
if
{
$::simulate
_error
}
{
test
"This test will fail"
{
fail
"Simulated error"
}
}
test
"Basic failover works if the master is down"
{
set old_port
[
RI $master_id tcp_port
]
set addr
[
S 0 SENTINEL GET-MASTER-ADDR-BY-NAME mymaster
]
...
...
tests/sentinel.tcl
浏览文件 @
1dc1e31c
...
...
@@ -12,6 +12,7 @@ source tests/support/test.tcl
set ::verbose 0
set ::pause_on_error 0
set ::simulate_error 0
set ::sentinel_instances
{}
set ::redis_instances
{}
set ::sentinel_base_port 20000
...
...
@@ -98,11 +99,14 @@ proc parse_options {} {
set ::run_matching
"*
${val}
*"
}
elseif
{
$opt
eq
"--pause-on-error"
}
{
set ::pause_on_error 1
}
elseif
{
$opt
eq
"--fail"
}
{
set ::simulate_error 1
}
elseif
{
$opt
eq
"--help"
}
{
puts
"Hello, I'm sentinel.tcl and I run Sentinel unit tests."
puts
"
\n
Options:"
puts
"--single <pattern> Only runs tests specified by pattern."
puts
"--pause-on-error Pause for manual inspection on error."
puts
"--fail Simulate a test failure."
puts
"--help Shows this help."
exit 0
}
else
{
...
...
@@ -130,7 +134,23 @@ proc pause_on_error {} {
while 1
{
puts -nonewline
"> "
flush stdout
if
{[
gets stdin
]
eq
{
continue
}}
break
set line
[
gets stdin
]
set argv
[
split $line
" "
]
set cmd
[
lindex $argv 0
]
if
{
$cmd
eq
{
continue
}}
{
break
}
elseif
{
$cmd
eq
{
show-sentinel-logs
}}
{
set count 10
if
{[
lindex $argv 1
]
ne
{}}
{
set count
[
lindex $argv 1
]}
foreach_sentinel_id id
{
puts
"=== SENTINEL
$id
===="
puts
[
exec tail -$count sentinel_$id/log.txt
]
puts
"---------------------
\n
"
}
}
else
{
set errcode
[
catch
{
eval $line
}
retval
]
puts
"
$retval
"
}
}
}
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录