Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
xindoo
redis
提交
322ea972
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,发现更多精彩内容 >>
提交
322ea972
编写于
1月 09, 2011
作者:
A
antirez
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
run both inmemory and diskstore tests.
上级
a5062bba
变更
2
隐藏空白更改
内联
并排
Showing
2 changed file
with
40 addition
and
39 deletion
+40
-39
tests/test_helper.tcl
tests/test_helper.tcl
+10
-11
tests/unit/other.tcl
tests/unit/other.tcl
+30
-28
未找到文件。
tests/test_helper.tcl
浏览文件 @
322ea972
...
...
@@ -13,7 +13,7 @@ set ::host 127.0.0.1
set ::port 16379
set ::traceleaks 0
set ::valgrind 0
set ::verbose
1
set ::verbose
0
set ::denytags
{}
set ::allowtags
{}
set ::external 0
;
# If
"1"
this means, we are running against external instance
...
...
@@ -110,7 +110,6 @@ proc cleanup {} {
}
proc execute_everything
{}
{
if 0
{
execute_tests
"unit/auth"
execute_tests
"unit/protocol"
execute_tests
"unit/basic"
...
...
@@ -127,20 +126,20 @@ proc execute_everything {} {
execute_tests
"integration/aof"
# execute_tests
"integration/redis-cli"
execute_tests
"unit/pubsub"
}
# run tests with diskstore enabled
puts
"Running diskstore tests... this is slow, press Ctrl+C if not interested.."
set ::diskstore 1
lappend ::denytags nodiskstore
set ::global_overrides
{
diskstore-enabled yes
}
#
execute_tests
"unit/protocol"
#
execute_tests
"unit/basic"
#
execute_tests
"unit/type/list"
#
execute_tests
"unit/type/set"
#
execute_tests
"unit/type/zset"
#
execute_tests
"unit/type/hash"
#
execute_tests
"unit/sort"
#
execute_tests
"unit/expire"
execute_tests
"unit/protocol"
execute_tests
"unit/basic"
execute_tests
"unit/type/list"
execute_tests
"unit/type/set"
execute_tests
"unit/type/zset"
execute_tests
"unit/type/hash"
execute_tests
"unit/sort"
execute_tests
"unit/expire"
execute_tests
"unit/other"
execute_tests
"unit/cas"
}
...
...
tests/unit/other.tcl
浏览文件 @
322ea972
...
...
@@ -120,34 +120,36 @@ start_server {tags {"other"}} {
list $e1 $e2
}
{
1 1
}
test
{
PIPELINING stresser
(
also a regression for the old epoll bug
)}
{
set fd2
[
socket $::host $::port
]
fconfigure $fd2 -encoding binary -translation binary
puts -nonewline $fd2
"SELECT 9
\r\n
"
flush $fd2
gets $fd2
for
{
set i 0
}
{
$i
< 100000
}
{
incr i
}
{
set q
{}
set val
"0000
${i}
0000"
append q
"SET key:
$i
$val
\r\n
"
puts -nonewline $fd2 $q
set q
{}
append q
"GET key:
$i
\r\n
"
puts -nonewline $fd2 $q
}
flush $fd2
for
{
set i 0
}
{
$i
< 100000
}
{
incr i
}
{
gets $fd2 line
gets $fd2 count
set count
[
string range $count 1 end
]
set val
[
read $fd2 $count
]
read $fd2 2
}
close $fd2
set _ 1
}
{
1
}
tags
{
protocol nodiskstore
}
{
test
{
PIPELINING stresser
(
also a regression for the old epoll bug
)}
{
set fd2
[
socket $::host $::port
]
fconfigure $fd2 -encoding binary -translation binary
puts -nonewline $fd2
"SELECT 9
\r\n
"
flush $fd2
gets $fd2
for
{
set i 0
}
{
$i
< 100000
}
{
incr i
}
{
set q
{}
set val
"0000
${i}
0000"
append q
"SET key:
$i
$val
\r\n
"
puts -nonewline $fd2 $q
set q
{}
append q
"GET key:
$i
\r\n
"
puts -nonewline $fd2 $q
}
flush $fd2
for
{
set i 0
}
{
$i
< 100000
}
{
incr i
}
{
gets $fd2 line
gets $fd2 count
set count
[
string range $count 1 end
]
set val
[
read $fd2 $count
]
read $fd2 2
}
close $fd2
set _ 1
}
{
1
}
}
test
{
MUTLI / EXEC basics
}
{
r del mylist
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录