Skip to content

R
redis

hanoi2005 / redis
与 Fork 源项目一致

从无法访问的项目Fork

通知 1
Star 0
Fork 0
R
redis

体验新版 GitCode，发现更多精彩内容 >>

提交 bd1962ac 编写于 作者: A antirez
浏览文件
操作

SCAN test keys sorting turned into more idiomatic Tcl.

上级 02617b6e
隐藏空白更改
内联 并排
Showing with 6 addition and 6 deletion
tests/unit/scan.tcl
浏览文件 @ 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]
} }
} }
Markdown is supported
0% 或 .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑！
想要评论请 注册 或