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
a881827b
Commit
a881827b
authored
Oct 30, 2013
by
antirez
Browse files
SCAN: tests moved to unit/scan.tcl.
parent
3c7a0677
Changes
3
Hide whitespace changes
Inline
Side-by-side
tests/test_helper.tcl
View file @
a881827b
...
...
@@ -17,6 +17,7 @@ set ::all_tests {
unit/auth
unit/protocol
unit/basic
unit/scan
unit/type/list
unit/type/list-2
unit/type/list-3
...
...
tests/unit/basic.tcl
View file @
a881827b
...
...
@@ -761,58 +761,4 @@ start_server {tags {"basic"}} {
r keys *
r keys *
}
{
dlskeriewrioeuwqoirueioqwrueoqwrueqw
}
test
"SCAN basic"
{
r flushdb
r debug populate 1000
set cur 0
set keys
{}
while 1
{
set res
[
r scan $cur
]
set cur
[
lindex $res 0
]
set k
[
lindex $res 1
]
lappend keys $k
if
{
$cur
== 0
}
break
}
set keys
[
lsort -unique
[
concat
{*}
$keys
]]
assert_equal 1000
[
llength $keys
]
}
test
"SCAN COUNT"
{
r flushdb
r debug populate 1000
set cur 0
set keys
{}
while 1
{
set res
[
r scan $cur count 5
]
set cur
[
lindex $res 0
]
set k
[
lindex $res 1
]
lappend keys $k
if
{
$cur
== 0
}
break
}
set keys
[
lsort -unique
[
concat
{*}
$keys
]]
assert_equal 1000
[
llength $keys
]
}
test
"SCAN MATCH"
{
r flushdb
r debug populate 1000
set cur 0
set keys
{}
while 1
{
set res
[
r scan $cur match
"key:1??"
]
set cur
[
lindex $res 0
]
set k
[
lindex $res 1
]
lappend keys $k
if
{
$cur
== 0
}
break
}
set keys
[
lsort -unique
[
concat
{*}
$keys
]]
assert_equal 100
[
llength $keys
]
}
}
tests/unit/scan.tcl
0 → 100644
View file @
a881827b
start_server
{
tags
{
"scan"
}}
{
test
"SCAN basic"
{
r flushdb
r debug populate 1000
set cur 0
set keys
{}
while 1
{
set res
[
r scan $cur
]
set cur
[
lindex $res 0
]
set k
[
lindex $res 1
]
lappend keys $k
if
{
$cur
== 0
}
break
}
set keys
[
lsort -unique
[
concat
{*}
$keys
]]
assert_equal 1000
[
llength $keys
]
}
test
"SCAN COUNT"
{
r flushdb
r debug populate 1000
set cur 0
set keys
{}
while 1
{
set res
[
r scan $cur count 5
]
set cur
[
lindex $res 0
]
set k
[
lindex $res 1
]
lappend keys $k
if
{
$cur
== 0
}
break
}
set keys
[
lsort -unique
[
concat
{*}
$keys
]]
assert_equal 1000
[
llength $keys
]
}
test
"SCAN MATCH"
{
r flushdb
r debug populate 1000
set cur 0
set keys
{}
while 1
{
set res
[
r scan $cur match
"key:1??"
]
set cur
[
lindex $res 0
]
set k
[
lindex $res 1
]
lappend keys $k
if
{
$cur
== 0
}
break
}
set keys
[
lsort -unique
[
concat
{*}
$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