mirror of
https://github.com/fluencelabs/redis
synced 2025-03-17 16:10:50 +00:00
SCAN test keys sorting turned into more idiomatic Tcl.
This commit is contained in:
parent
a881827b6e
commit
5fdb94fd98
@ -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]
|
||||
}
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user