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
3589e1a7
Commit
3589e1a7
authored
Mar 03, 2010
by
antirez
Browse files
ZRANK stress tester
parent
912b9165
Changes
2
Hide whitespace changes
Inline
Side-by-side
redis-cli.c
View file @
3589e1a7
...
...
@@ -101,6 +101,7 @@ static struct redisCommand cmdTable[] = {
{
"zrem"
,
3
,
REDIS_CMD_BULK
},
{
"zremrangebyscore"
,
4
,
REDIS_CMD_INLINE
},
{
"zrange"
,
-
4
,
REDIS_CMD_INLINE
},
{
"zrank"
,
3
,
REDIS_CMD_BULK
},
{
"zrangebyscore"
,
-
4
,
REDIS_CMD_INLINE
},
{
"zcount"
,
4
,
REDIS_CMD_INLINE
},
{
"zrevrange"
,
-
4
,
REDIS_CMD_INLINE
},
...
...
test-redis.tcl
View file @
3589e1a7
...
...
@@ -1528,6 +1528,31 @@ proc main {server port} {
format $diff
}
{
0
}
test
{
ZSETs ZRANK augmented skip list stress testing
}
{
set err
{}
$r del myzset
for
{
set k 0
}
{
$k
< 10000
}
{
incr k
}
{
set i
[
expr
{
$k
%1000
}]
if
{[
expr rand
()]
< .2
}
{
$r zrem myzset $i
}
else
{
set score
[
expr rand
()]
$r zadd myzset $score $i
}
set card
[
$r
zcard myzset
]
if
{
$card
> 0
}
{
set index
[
randomInt $card
]
set ele
[
lindex
[
$r
zrange myzset $index $index
]
0
]
set rank
[
$r
zrank myzset $ele
]
if
{
$rank
!= $index
}
{
set err
"
$ele
RANK is wrong! (
$rank
!=
[
expr $index+1
]
)"
break
}
}
}
set _ $err
}
{}
foreach fuzztype
{
binary alpha compr
}
{
test
"FUZZ stresser with data model
$fuzztype
"
{
set err 0
...
...
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