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