X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/38b957d8ba22fa8760e88fd5500c9bdc2d6fd3da..03116904c399cf21db3fe4228af3a795ce20fc46:/tests/test_helper.tcl diff --git a/tests/test_helper.tcl b/tests/test_helper.tcl index 4c30b3c6..4954b79e 100644 --- a/tests/test_helper.tcl +++ b/tests/test_helper.tcl @@ -25,14 +25,18 @@ set ::all_tests { unit/other unit/cas unit/quit + unit/aofrw integration/replication integration/replication-2 integration/replication-3 integration/aof + integration/rdb unit/pubsub unit/slowlog unit/scripting unit/maxmemory + unit/introspection + unit/obuf-limits } # Index to the next test to run in the ::all_tests list. set ::next_test 0 @@ -113,7 +117,7 @@ proc reconnect {args} { } # re-set $srv in the servers list - set ::servers [lreplace $::servers end+$level 1 $srv] + lset ::servers end+$level $srv } proc redis_deferring_client {args} { @@ -153,9 +157,9 @@ proc cleanup {} { proc find_available_port start { for {set j $start} {$j < $start+1024} {incr j} { if {[catch { - set fd [socket 127.0.0.1 $start] + set fd [socket 127.0.0.1 $j] }]} { - return $start + return $j } else { close $fd }