From 5fdb94fd98dcd9e4a73bcf24b03c97923058a0d1 Mon Sep 17 00:00:00 2001 From: antirez Date: Wed, 30 Oct 2013 11:36:12 +0100 Subject: [PATCH] SCAN test keys sorting turned into more idiomatic Tcl. --- tests/unit/scan.tcl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/tests/unit/scan.tcl b/tests/unit/scan.tcl index 275a4d65..af4bb766 100644 --- a/tests/unit/scan.tcl +++ b/tests/unit/scan.tcl @@ -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] } }