From 7a6ae0a2b29f83523a6e65a61c7ec49cc9437781 Mon Sep 17 00:00:00 2001
From: Pieter Noordhuis <pcnoordhuis@gmail.com>
Date: Thu, 3 Jun 2010 00:06:58 +0200
Subject: [PATCH] scope res variable outside test

---
 tests/unit/sort.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/unit/sort.tcl b/tests/unit/sort.tcl
index 6ae2180dd..16a02b3a9 100644
--- a/tests/unit/sort.tcl
+++ b/tests/unit/sort.tcl
@@ -9,6 +9,7 @@ start_server {tags {"sort"}} {
     } {1 10 2 3}
 
     tags {"slow"} {
+        set res {}
         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]
-            set res {}
             for {set i 0} {$i < 10000} {incr i} {
                 lappend res [lindex $sorted $i 0]
             }