scope res variable outside test

diff --git a/tests/unit/sort.tcl b/tests/unit/sort.tcl
index 6ae2180dd74e24aee37f1db626cf75c15df7e65f..16a02b3a9ac9e4472db91eef26b314dec98ea55a 100644 (file)
--- a/tests/unit/sort.tcl
+++ b/tests/unit/sort.tcl
@@ -9,6 +9,7 @@ start_server {tags {"sort"}} {
     } {1 10 2 3}
 
     tags {"slow"} {
     } {1 10 2 3}
 
     tags {"slow"} {

+        set res {}

         test {Create a random list and a random set} {
             set tosort {}
             array set seenrand {}
         test {Create a random list and a random set} {
             set tosort {}
             array set seenrand {}


@@ -31,7 +32,6 @@ start_server {tags {"sort"}} {
                 lappend tosort [list $i $rint]
             }
             set sorted [lsort -index 1 -real $tosort]
                 lappend tosort [list $i $rint]
             }
             set sorted [lsort -index 1 -real $tosort]

-            set res {}

             for {set i 0} {$i < 10000} {incr i} {
                 lappend res [lindex $sorted $i 0]
             }
             for {set i 0} {$i < 10000} {incr i} {
                 lappend res [lindex $sorted $i 0]
             }