Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
Turbo码先生
redis
提交
08f55b78
R
redis
项目概览
Turbo码先生
/
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,发现更多精彩内容 >>
提交
08f55b78
编写于
8月 31, 2010
作者:
A
antirez
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
faster server starting in Redis tests
上级
1eb13e49
变更
3
隐藏空白更改
内联
并排
Showing
3 changed file
with
27 addition
and
6 deletion
+27
-6
tests/support/server.tcl
tests/support/server.tcl
+25
-4
tests/unit/other.tcl
tests/unit/other.tcl
+1
-1
tests/unit/protocol.tcl
tests/unit/protocol.tcl
+1
-1
未找到文件。
tests/support/server.tcl
浏览文件 @
08f55b78
...
...
@@ -83,7 +83,9 @@ proc ping_server {host port} {
}
close $fd
}
e
]}
{
puts
"Can't PING server at
$host:$port...
$e
"
puts -nonewline
"."
}
else
{
puts -nonewline
"ok"
}
return $retval
}
...
...
@@ -170,14 +172,33 @@ proc start_server {options {code undefined}} {
if
{
$::valgrind
}
{
exec valgrind src/redis-server $config_file > $stdout 2> $stderr &
after 2000
}
else
{
exec src/redis-server $config_file > $stdout 2> $stderr &
after 500
}
# check that the server actually started
if
{
$code
ne
"undefined"
&& !
[
ping_server $::host $::port
]}
{
# ugly but tries to be as fast as possible...
set retrynum 20
set serverisup 0
puts -nonewline
"=== (
$tags
) Starting server
${::host}
:
${::port}
"
after 10
if
{
$code
ne
"undefined"
}
{
while
{[
incr retrynum -1
]}
{
catch
{
if
{[
ping_server $::host $::port
]}
{
set serverisup 1
}
}
if
{
$serverisup
}
break
after 50
}
}
else
{
set serverisup 1
}
puts
{}
if
{
!$serverisup
}
{
error_and_quit $config_file
[
exec cat $stderr
]
}
...
...
tests/unit/other.tcl
浏览文件 @
08f55b78
start_server
{}
{
start_server
{
tags
{
"other"
}
}
{
test
{
SAVE - make sure there are all the types as values
}
{
# Wait for a background saving in progress to terminate
waitForBgsave r
...
...
tests/unit/protocol.tcl
浏览文件 @
08f55b78
start_server
{}
{
start_server
{
tags
{
"protocol"
}
}
{
test
{
Handle an empty query well
}
{
set fd
[
r channel
]
puts -nonewline $fd
"
\r\n
"
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录