caleb-brown/redict
1
0
Fork 0
mirror of https://codeberg.org/redict/redict.git synced 2025-01-22 16:18:28 -05:00
Code Issues Actions Packages Projects Releases Wiki Activity

scope res variable outside test

Browse Source
This commit is contained in:
Pieter Noordhuis 2010-06-03 00:06:58 +02:00
parent 7f7499eeac
commit 7a6ae0a2b2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/unit/sort.tcl
View File

@ -9,6 +9,7 @@ start_server {tags {"sort"}} {
} {1 10 2 3} } {1 10 2 3}
tags {"slow"} { tags {"slow"} {
set res {}
test {Create a random list and a random set} { test {Create a random list and a random set} {
set tosort {} set tosort {}
array set seenrand {} array set seenrand {}
@ -31,7 +32,6 @@ start_server {tags {"sort"}} {
lappend tosort [list $i $rint] lappend tosort [list $i $rint]
} }
set sorted [lsort -index 1 -real $tosort] set sorted [lsort -index 1 -real $tosort]
set res {}
for {set i 0} {$i < 10000} {incr i} { for {set i 0} {$i < 10000} {incr i} {
lappend res [lindex $sorted $i 0] lappend res [lindex $sorted $i 0]
} }