Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
ruanhaishen
redis
Commits
35453d99
"vscode:/vscode.git/clone" did not exist on "d9dd352b3693e1ad8ab2e0993b4f0a275d7fd512"
Commit
35453d99
authored
May 14, 2010
by
Pieter Noordhuis
Browse files
use DEBUG DIGEST in new test suite
parent
98578b57
Changes
2
Hide 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