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
bd1962ac
"vscode:/vscode.git/clone" did not exist on "26cf5c8ac6386667ed8ab46c7017e249babfc063"
Commit
bd1962ac
authored
Oct 30, 2013
by
antirez
Browse files
SCAN test keys sorting turned into more idiomatic Tcl.
parent
02617b6e
Changes
1
Show whitespace changes
Inline
Side-by-side
tests/unit/scan.tcl
View file @
bd1962ac
...
@@ -9,11 +9,11 @@ start_server {tags {"scan"}} {
...
@@ -9,11 +9,11 @@ start_server {tags {"scan"}} {
set res
[
r scan $cur
]
set res
[
r scan $cur
]
set cur
[
lindex $res 0
]
set cur
[
lindex $res 0
]
set k
[
lindex $res 1
]
set k
[
lindex $res 1
]
lappend keys $k
lappend keys
{*}
$k
if
{
$cur
== 0
}
break
if
{
$cur
== 0
}
break
}
}
set keys
[
lsort -unique
[
concat
{*}
$keys
]
]
set keys
[
lsort -unique $keys
]
assert_equal 1000
[
llength $keys
]
assert_equal 1000
[
llength $keys
]
}
}
...
@@ -27,11 +27,11 @@ start_server {tags {"scan"}} {
...
@@ -27,11 +27,11 @@ start_server {tags {"scan"}} {
set res
[
r scan $cur count 5
]
set res
[
r scan $cur count 5
]
set cur
[
lindex $res 0
]
set cur
[
lindex $res 0
]
set k
[
lindex $res 1
]
set k
[
lindex $res 1
]
lappend keys $k
lappend keys
{*}
$k
if
{
$cur
== 0
}
break
if
{
$cur
== 0
}
break
}
}
set keys
[
lsort -unique
[
concat
{*}
$keys
]
]
set keys
[
lsort -unique $keys
]
assert_equal 1000
[
llength $keys
]
assert_equal 1000
[
llength $keys
]
}
}
...
@@ -45,11 +45,11 @@ start_server {tags {"scan"}} {
...
@@ -45,11 +45,11 @@ start_server {tags {"scan"}} {
set res
[
r scan $cur match
"key:1??"
]
set res
[
r scan $cur match
"key:1??"
]
set cur
[
lindex $res 0
]
set cur
[
lindex $res 0
]
set k
[
lindex $res 1
]
set k
[
lindex $res 1
]
lappend keys $k
lappend keys
{*}
$k
if
{
$cur
== 0
}
break
if
{
$cur
== 0
}
break
}
}
set keys
[
lsort -unique
[
concat
{*}
$keys
]
]
set keys
[
lsort -unique $keys
]
assert_equal 100
[
llength $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