fluencelabs/redis
1
0
Fork 0
mirror of https://github.com/fluencelabs/redis synced 2025-06-12 08:41:21 +00:00
Code Issues Projects Releases Wiki Activity

ability to select port/host from make test

Browse Source
This commit is contained in:
antirez
2010-04-15 18:32:44 +02:00
parent 8ca3e9d10b
commit fb765a0ae3
2 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
test-redis.tcl
View File

@ -226,8 +226,8 @@ proc datasetDigest r {
return $digest
}
proc main {server port} {
set r [redis $server $port]
proc main {} {
set r [redis $::host $::port]
$r select 9
set err ""
set res ""
@ -2008,7 +2008,7 @@ proc main {server port} {
} {1 1}
test {PIPELINING stresser (also a regression for the old epoll bug)} {
set fd2 [socket 127.0.0.1 6379]
set fd2 [socket $::host $::port]
fconfigure $fd2 -encoding binary -translation binary
puts -nonewline $fd2 "SELECT 9\r\n"
flush $fd2
@ -2113,7 +2113,7 @@ proc main {server port} {
}
proc stress {} {
set r [redis]
set r [redis $::host $::port]
$r select 9
$r flushdb
while 1 {
@ -2182,7 +2182,7 @@ for {set j 0} {$j < [llength $argv]} {incr j} {
}
# Before to run the test check if DB 9 and DB 10 are empty
set r [redis]
set r [redis $::host $::port]
if {$::flush} {
$r flushall
@ -2201,8 +2201,9 @@ unset r
unset db9size
unset db10size
puts "Testing Redis, host $::host, port $::port"
if {$::stress} {
stress
} else {
main $::host $::port
main
}