Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ruanhaishen
redis
Commits
35453d99
Commit
35453d99
authored
May 14, 2010
by
Pieter Noordhuis
Browse files
use DEBUG DIGEST in new test suite
parent
98578b57
Changes
2
Show whitespace changes
Inline
Side-by-side
test/support/util.tcl
View file @
35453d99
...
@@ -156,45 +156,3 @@ proc createComplexDataset {r ops} {
...
@@ -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
View file @
35453d99
...
@@ -48,9 +48,9 @@ start_server default.conf {} {
...
@@ -48,9 +48,9 @@ start_server default.conf {} {
test
{
Check consistency of different data types after a reload
}
{
test
{
Check consistency of different data types after a reload
}
{
r flushdb
r flushdb
createComplexDataset r 10000
createComplexDataset r 10000
set sha1
[
datasetD
igest
r
]
set sha1
[
r debug d
igest
]
r debug reload
r debug reload
set sha1_after
[
datasetD
igest
r
]
set sha1_after
[
r debug d
igest
]
expr
{
$sha1
eq $sha1_after
}
expr
{
$sha1
eq $sha1_after
}
}
{
1
}
}
{
1
}
...
@@ -58,7 +58,7 @@ start_server default.conf {} {
...
@@ -58,7 +58,7 @@ start_server default.conf {} {
r bgrewriteaof
r bgrewriteaof
waitForBgrewriteaof r
waitForBgrewriteaof r
r debug loadaof
r debug loadaof
set sha1_after
[
datasetD
igest
r
]
set sha1_after
[
r debug d
igest
]
expr
{
$sha1
eq $sha1_after
}
expr
{
$sha1
eq $sha1_after
}
}
{
1
}
}
{
1
}
}
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment