Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
Turbo码先生
redis
提交
82e5dd35
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,发现更多精彩内容 >>
提交
82e5dd35
编写于
7月 11, 2011
作者:
A
antirez
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
display less useless information in parallel test
上级
3744824c
变更
2
隐藏空白更改
内联
并排
Showing
2 changed file
with
14 addition
and
8 deletion
+14
-8
tests/support/test.tcl
tests/support/test.tcl
+8
-2
tests/test_helper.tcl
tests/test_helper.tcl
+6
-6
未找到文件。
tests/support/test.tcl
浏览文件 @
82e5dd35
...
...
@@ -51,6 +51,11 @@ proc color_term {} {
proc colorstr
{
color str
}
{
if
{[
color_term
]}
{
set b 0
if
{[
string range $color 0 4
]
eq
{
bold-
}}
{
set b 1
set color
[
string range $color 5 end
]
}
switch $color
{
red
{
set colorcode
{
31
}}
green
{
set colorcode
{
32
}}
...
...
@@ -58,10 +63,11 @@ proc colorstr {color str} {
blue
{
set colorcode
{
34
}}
magenta
{
set colorcode
{
35
}}
cyan
{
set colorcode
{
36
}}
else
{
set colorcode
{
37
}}
white
{
set colorcode
{
37
}}
default
{
set colorcode
{
37
}}
}
if
{
$colorcode
ne
{}}
{
return
"
\033\[
0
;
${colorcode}
;40m
$str
\033\[
0m"
return
"
\033\[
$b
;
${colorcode}
;40m
$str
\033\[
0m"
}
}
else
{
return $str
...
...
tests/test_helper.tcl
浏览文件 @
82e5dd35
...
...
@@ -210,20 +210,20 @@ proc read_from_test_client fd {
set payload
[
read $fd $bytes
]
foreach
{
status data
}
$payload break
if
{
$status
eq
{
ready
}}
{
puts
"
(
$fd
)
\[
$status
\]
:
$data
"
puts
"
\[
$status
\]
:
$data
"
signal_idle_client $fd
}
elseif
{
$status
eq
{
done
}}
{
set elapsed
[
expr
{[
clock seconds
]
-$::clients_start_time
(
$fd
)}]
puts
"
(
$fd
)
\[
[
colorstr yellow $status
]
\]
:
$data
(
$elapsed
seconds)"
puts
"
\[
[
colorstr yellow $status
]
\]
:
$data
(
$elapsed
seconds)"
puts
"+++
[
llength $::active_clients
]
units still in execution."
lappend ::clients_time_history $elapsed $data
signal_idle_client $fd
}
elseif
{
$status
eq
{
ok
}}
{
puts
"
(
$fd
)
\[
[
colorstr green $status
]
\]
:
$data
"
puts
"
\[
[
colorstr green $status
]
\]
:
$data
"
}
elseif
{
$status
eq
{
err
}}
{
puts
"
(
$fd
)
\[
[
colorstr red $status
]
\]
:
$data
"
puts
"
\[
[
colorstr red $status
]
\]
:
$data
"
}
else
{
puts
"
(
$fd
)
\[
$status
\]
:
$data
"
puts
"
\[
$status
\]
:
$data
"
}
}
...
...
@@ -235,7 +235,7 @@ proc signal_idle_client fd {
[
lsearch -all -inline -not -exact $::active_clients $fd
]
# New unit to process?
if
{
$::next
_test !=
[
llength $::all_tests
]}
{
puts
"Spawing new test process for:
[
lindex $::all_tests $::next_test
]
"
puts
[
colorstr bold-white
"Testing
[
lindex $::all_tests $::next_test
]
"
]
set ::clients_start_time
(
$fd
)
[
clock seconds
]
send_data_packet $fd run
[
lindex $::all_tests $::next_test
]
lappend ::active_clients $fd
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录