opensourcemirror
/
redis
mirror of https://github.com/antirez/redis.git
1
0
Fork 0
Code Issues Releases Wiki Activity

ability to select port/host from make test

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Makefile
View File

@ -13,6 +13,8 @@ else
endif
CCOPT= $(CFLAGS) $(CCLINK) $(ARCH) $(PROF)
DEBUG?= -g -rdynamic -ggdb
HOST?= 127.0.0.1
PORT?= 6379
OBJ = adlist.o ae.o anet.o dict.o redis.o sds.o zmalloc.o lzf_c.o lzf_d.o pqsort.o zipmap.o
BENCHOBJ = ae.o anet.o redis-benchmark.o sds.o adlist.o zmalloc.o
@ -79,7 +81,7 @@ staticsymbols:
tclsh utils/build-static-symbols.tcl > staticsymbols.h
test:
tclsh test-redis.tcl
tclsh test-redis.tcl -p $(PORT) -h $(HOST)
bench:
./redis-benchmark

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
}