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
ddc80e02
Commit
ddc80e02
authored
Oct 30, 2013
by
antirez
Browse files
Test: added SSCAN test.
parent
5fdb94fd
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/unit/scan.tcl
View file @
ddc80e02
...
...
@@ -52,4 +52,38 @@ start_server {tags {"scan"}} {
set keys
[
lsort -unique $keys
]
assert_equal 100
[
llength $keys
]
}
foreach enc
{
intset hashtable
}
{
test
"SSCAN with encoding
$enc
"
{
# Create the Set
r del set
if
{
$enc
eq
{
intset
}}
{
set prefix
""
}
else
{
set prefix
"ele:"
}
set elements
{}
for
{
set j 0
}
{
$j
< 100
}
{
incr j
}
{
lappend elements $
{
prefix
}
${j}
}
r sadd set
{*}
$elements
# Verify that the encoding matches.
assert
{[
r object encoding set
]
eq $enc
}
# Test SSCAN
set cur 0
set keys
{}
while 1
{
set res
[
r sscan set $cur
]
set cur
[
lindex $res 0
]
set k
[
lindex $res 1
]
lappend keys
{*}
$k
if
{
$cur
== 0
}
break
}
set keys
[
lsort -unique $keys
]
assert_equal 100
[
llength $keys
]
}
}
}
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