gvsafronov/futriix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SCAN test keys sorting turned into more idiomatic Tcl.

Browse Source
This commit is contained in:
antirez 2013-10-30 11:36:12 +01:00
parent a881827b6e
commit 5fdb94fd98
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/unit/scan.tcl
View File

@ -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"}} {
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"}} {
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]
} }
} }