From 5fdb94fd98dcd9e4a73bcf24b03c97923058a0d1 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
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]
     }
 }