]> git.saurik.com Git - redis.git/blobdiff - test-redis.tcl
Fixed 32bit make target to work on Linux out of the box
[redis.git] / test-redis.tcl
index 36b82e38156eff1db0d64d51a1c3f508bf5ae566..9b546722481761f27238597ab92050b87af0e63d 100644 (file)
@@ -952,6 +952,7 @@ proc main {server port} {
         $r sort tosort {DESC}
     } [lsort -decreasing -integer $res]
 
+while 1 {
     test {SORT speed, sorting 10000 elements list using BY, 100 times} {
         set start [clock clicks -milliseconds]
         for {set i 0} {$i < 100} {incr i} {
@@ -962,7 +963,7 @@ proc main {server port} {
         flush stdout
         format {}
     } {}
-
+}
     test {SORT speed, sorting 10000 elements list directly, 100 times} {
         set start [clock clicks -milliseconds]
         for {set i 0} {$i < 100} {incr i} {