Skip to content
Browse files

scope res variable outside test

  • Loading branch information...
1 parent 0319bd1 commit f3f35ced134aac2fd346ca887a399c59ede1c42c @pietern pietern committed Jun 3, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 tests/unit/sort.tcl
View
2 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]
}

0 comments on commit f3f35ce

Please sign in to comment.
Something went wrong with that request. Please try again.