Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ruanhaishen
redis
Commits
fb765a0a
Commit
fb765a0a
authored
Apr 15, 2010
by
antirez
Browse files
ability to select port/host from make test
parent
8ca3e9d1
Changes
2
Hide whitespace changes
Inline
Side-by-side
Makefile
View file @
fb765a0a
...
...
@@ -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
...
...
test-redis.tcl
View file @
fb765a0a
...
...
@@ -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
}
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment