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
a19cdc51
Commit
a19cdc51
authored
Jul 31, 2014
by
Matt Stancliff
Committed by
antirez
Oct 06, 2014
Browse files
Remove trailing spaces from tests
parent
f4c4a0fc
Changes
9
Hide whitespace changes
Inline
Side-by-side
tests/cluster/tests/03-failover-loop.tcl
View file @
a19cdc51
...
...
@@ -89,7 +89,7 @@ while {[incr iterations -1]} {
test
"Restarting node #
$tokill
"
{
restart_instance redis $tokill
}
test
"Instance #
$tokill
is now a slave"
{
wait_for_condition 1000 50
{
[
RI $tokill role
]
eq
{
slave
}
...
...
tests/integration/replication.tcl
View file @
a19cdc51
...
...
@@ -35,17 +35,17 @@ start_server {tags {"repl"}} {
start_server
{
tags
{
"repl"
}}
{
r set mykey foo
start_server
{}
{
test
{
Second server should have role master at first
}
{
s role
}
{
master
}
test
{
SLAVEOF should start with link status
"down"
}
{
r slaveof
[
srv -1 host
]
[
srv -1 port
]
s master_link_status
}
{
down
}
test
{
The role should immediately be changed to
"slave"
}
{
s role
}
{
slave
}
...
...
@@ -54,11 +54,11 @@ start_server {tags {"repl"}} {
test
{
Sync should have transferred keys from master
}
{
r get mykey
}
{
foo
}
test
{
The link status should be up
}
{
s master_link_status
}
{
up
}
test
{
SET on the master should immediately propagate
}
{
r -1 set mykey bar
...
...
tests/support/redis.tcl
View file @
a19cdc51
...
...
@@ -18,7 +18,7 @@
# $r ping
[
list handlePong
]
#
}
#
}
#
#
# set r
[
redis
]
# $r blocking 0
# $r get fo
[
list handlePong
]
...
...
tests/support/server.tcl
View file @
a19cdc51
...
...
@@ -178,10 +178,10 @@ proc start_server {options {code undefined}} {
dict set config $directive $arguments
}
}
# use a different directory every time a server is started
dict set config dir
[
tmpdir server
]
# start every server on a different port
set ::port
[
find_available_port
[
expr
{
$::port
+1
}]]
dict set config port $::port
...
...
@@ -190,7 +190,7 @@ proc start_server {options {code undefined}} {
foreach
{
directive arguments
}
[
concat $::global_overrides $overrides
]
{
dict set config $directive $arguments
}
# write new configuration to temporary file
set config_file
[
tmpfile redis.conf
]
set fp
[
open $config_file w+
]
...
...
@@ -208,7 +208,7 @@ proc start_server {options {code undefined}} {
}
else
{
exec src/redis-server $config_file > $stdout 2> $stderr &
}
# check that the server actually started
# ugly but tries to be as fast as possible...
if
{
$::valgrind
}
{
set retrynum 1000
}
else
{
set retrynum 100
}
...
...
@@ -233,7 +233,7 @@ proc start_server {options {code undefined}} {
start_server_error $config_file $err
return
}
# find out the pid
while
{
!
[
info exists pid
]}
{
regexp
{
PID:
\s
(
\d
+
)}
[
exec cat $stdout
]
_ pid
...
...
tests/unit/auth.tcl
View file @
a19cdc51
...
...
@@ -10,7 +10,7 @@ start_server {tags {"auth"} overrides {requirepass foobar}} {
catch
{
r auth wrong!
}
err
set _ $err
}
{
ERR*invalid password
}
test
{
Arbitrary command gives an error when AUTH is required
}
{
catch
{
r set foo bar
}
err
set _ $err
...
...
tests/unit/basic.tcl
View file @
a19cdc51
...
...
@@ -300,7 +300,7 @@ start_server {tags {"basic"}} {
catch
{
r foobaredcommand
}
err
string match ERR* $err
}
{
1
}
test
{
RENAME basic usage
}
{
r set mykey hello
r rename mykey mykey1
...
...
@@ -426,7 +426,7 @@ start_server {tags {"basic"}} {
r select 9
format $res
}
{
hello world foo bared
}
test
{
MGET
}
{
r flushdb
r set foo BAR
...
...
@@ -482,7 +482,7 @@ start_server {tags {"basic"}} {
r set foo bar
list
[
r getset foo xyz
]
[
r get foo
]
}
{
bar xyz
}
test
{
MSET base case
}
{
r mset x 10 y
"foo bar"
z
"x x x x x x x
\n\n\r\n
"
r mget x y z
...
...
tests/unit/bitops.tcl
View file @
a19cdc51
...
...
@@ -125,7 +125,7 @@ start_server {tags {"bitops"}} {
test
{
BITOP where dest and target are the same key
}
{
r set s
"
\xaa\x00\xff\x55
"
r bitop not s s
r get s
r get s
}
"
\x55\xff\x00\xaa
"
test
{
BITOP AND|OR|XOR don't change the string with single input key
}
{
...
...
tests/unit/introspection.tcl
View file @
a19cdc51
...
...
@@ -27,7 +27,7 @@ start_server {tags {"introspection"}} {
test
{
CLIENT LIST shows empty fields for unassigned names
}
{
r client list
}
{
*name= *
}
test
{
CLIENT SETNAME does not accept spaces
}
{
catch
{
r client setname
"foo bar"
}
e
set e
...
...
tests/unit/maxmemory.tcl
View file @
a19cdc51
...
...
@@ -28,7 +28,7 @@ start_server {tags {"maxmemory"}} {
}
{
test
"maxmemory - is the memory limit honoured? (policy
$policy
)"
{
# make sure to start with a blank instance
r flushall
r flushall
# Get the current memory limit and calculate a new limit.
# We just add 100k to the current memory size so that it is
# fast for us to reach that limit.
...
...
@@ -60,7 +60,7 @@ start_server {tags {"maxmemory"}} {
}
{
test
"maxmemory - only allkeys-* should remove non-volatile keys (
$policy
)"
{
# make sure to start with a blank instance
r flushall
r flushall
# Get the current memory limit and calculate a new limit.
# We just add 100k to the current memory size so that it is
# fast for us to reach that limit.
...
...
@@ -102,7 +102,7 @@ start_server {tags {"maxmemory"}} {
}
{
test
"maxmemory - policy
$policy
should only remove volatile keys."
{
# make sure to start with a blank instance
r flushall
r flushall
# Get the current memory limit and calculate a new limit.
# We just add 100k to the current memory size so that it is
# fast for us to reach that limit.
...
...
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