Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
Turbo码先生
redis
提交
fb765a0a
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,发现更多精彩内容 >>
提交
fb765a0a
编写于
4月 15, 2010
作者:
A
antirez
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
ability to select port/host from make test
上级
8ca3e9d1
变更
2
隐藏空白更改
内联
并排
Showing
2 changed file
with
10 addition
and
7 deletion
+10
-7
Makefile
Makefile
+3
-1
test-redis.tcl
test-redis.tcl
+7
-6
未找到文件。
Makefile
浏览文件 @
fb765a0a
...
...
@@ -13,6 +13,8 @@ else
endif
CCOPT
=
$(CFLAGS)
$(CCLINK)
$(ARCH)
$(PROF)
DEBUG
?=
-g
-rdynamic
-ggdb
HOST
?=
127.0.0.1
PORT
?=
6379
OBJ
=
adlist.o ae.o anet.o dict.o redis.o sds.o zmalloc.o lzf_c.o lzf_d.o pqsort.o zipmap.o
BENCHOBJ
=
ae.o anet.o redis-benchmark.o sds.o adlist.o zmalloc.o
...
...
@@ -79,7 +81,7 @@ staticsymbols:
tclsh utils/build-static-symbols.tcl
>
staticsymbols.h
test
:
tclsh test-redis.tcl
tclsh test-redis.tcl
-p
$(PORT)
-h
$(HOST)
bench
:
./redis-benchmark
...
...
test-redis.tcl
浏览文件 @
fb765a0a
...
...
@@ -226,8 +226,8 @@ proc datasetDigest r {
return $digest
}
proc main
{
server port
}
{
set r
[
redis $
server $
port
]
proc main
{}
{
set r
[
redis $
::host $::
port
]
$r select 9
set err
""
set res
""
...
...
@@ -2008,7 +2008,7 @@ proc main {server port} {
}
{
1 1
}
test
{
PIPELINING stresser
(
also a regression for the old epoll bug
)}
{
set fd2
[
socket
127.0.0.1 6379
]
set fd2
[
socket
$::host $::port
]
fconfigure $fd2 -encoding binary -translation binary
puts -nonewline $fd2
"SELECT 9
\r\n
"
flush $fd2
...
...
@@ -2113,7 +2113,7 @@ proc main {server port} {
}
proc stress
{}
{
set r
[
redis
]
set r
[
redis
$::host $::port
]
$r select 9
$r flushdb
while 1
{
...
...
@@ -2182,7 +2182,7 @@ for {set j 0} {$j < [llength $argv]} {incr j} {
}
# Before to run the test check if DB 9 and DB 10 are empty
set r
[
redis
]
set r
[
redis
$::host $::port
]
if
{
$::flush
}
{
$r flushall
...
...
@@ -2201,8 +2201,9 @@ unset r
unset db9size
unset db10size
puts
"Testing Redis, host
$::host
, port
$::port
"
if
{
$::stress
}
{
stress
}
else
{
main
$::host $::port
main
}
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录