Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
xindoo
redis
提交
35453d99
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,体验更适合开发者的 AI 搜索 >>
提交
35453d99
编写于
5月 14, 2010
作者:
P
Pieter Noordhuis
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
use DEBUG DIGEST in new test suite
上级
98578b57
变更
2
隐藏空白更改
内联
并排
Showing
2 changed file
with
3 addition
and
45 deletion
+3
-45
test/support/util.tcl
test/support/util.tcl
+0
-42
test/unit/other.tcl
test/unit/other.tcl
+3
-3
未找到文件。
test/support/util.tcl
浏览文件 @
35453d99
...
...
@@ -156,45 +156,3 @@ proc createComplexDataset {r ops} {
}
}
}
proc datasetDigest r
{
set keys
[
lsort
[
$r
keys *
]]
set digest
{}
foreach k $keys
{
set t
[
$r
type $k
]
switch $t
{
{
string
}
{
set aux
[
::sha1::sha1 -hex
[
$r
get $k
]]
}
{
list
}
{
if
{[
$r
llen $k
]
== 0
}
{
set aux
{}
}
else
{
set aux
[
::sha1::sha1 -hex
[
$r
lrange $k 0 -1
]]
}
}
{
set
}
{
if
{[
$r
scard $k
]
== 0
}
{
set aux
{}
}
else
{
set aux
[
::sha1::sha1 -hex
[
lsort
[
$r
smembers $k
]]]
}
}
{
zset
}
{
if
{[
$r
zcard $k
]
== 0
}
{
set aux
{}
}
else
{
set aux
[
::sha1::sha1 -hex
[
$r
zrange $k 0 -1 withscores
]]
}
}
{
hash
}
{
if
{[
$r
hlen $k
]
== 0
}
{
set aux
{}
}
else
{
set aux
[
::sha1::sha1 -hex
[
lsort
[
$r
hgetall $k
]]]
}
}
default
{
error
"Type not supported:
$t
"
}
}
if
{
$aux
eq
{}}
continue
set digest
[
::sha1::sha1 -hex
[
join
[
list $aux $digest $k
]
"
\n
"
]]
}
return $digest
}
test/unit/other.tcl
浏览文件 @
35453d99
...
...
@@ -48,9 +48,9 @@ start_server default.conf {} {
test
{
Check consistency of different data types after a reload
}
{
r flushdb
createComplexDataset r 10000
set sha1
[
datasetDigest r
]
set sha1
[
r debug digest
]
r debug reload
set sha1_after
[
datasetDigest r
]
set sha1_after
[
r debug digest
]
expr
{
$sha1
eq $sha1_after
}
}
{
1
}
...
...
@@ -58,7 +58,7 @@ start_server default.conf {} {
r bgrewriteaof
waitForBgrewriteaof r
r debug loadaof
set sha1_after
[
datasetDigest r
]
set sha1_after
[
r debug digest
]
expr
{
$sha1
eq $sha1_after
}
}
{
1
}
}
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录