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
15113dcd
Commit
15113dcd
authored
Apr 03, 2012
by
antirez
Browse files
More MIGRATE tests.
parent
12e91892
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/unit/dump.tcl
View file @
15113dcd
...
@@ -42,6 +42,52 @@ start_server {tags {"dump"}} {
...
@@ -42,6 +42,52 @@ start_server {tags {"dump"}} {
assert
{[
$first
exists key
]
== 0
}
assert
{[
$first
exists key
]
== 0
}
assert
{[
$second
exists key
]
== 1
}
assert
{[
$second
exists key
]
== 1
}
assert
{[
$second
get key
]
eq
{
Some Value
}}
assert
{[
$second
get key
]
eq
{
Some Value
}}
assert
{[
$second
ttl key
]
== -1
}
}
}
test
{
MIGRATE propagates TTL correctly
}
{
set first
[
srv 0 client
]
r set key
"Some Value"
start_server
{
tags
{
"repl"
}}
{
set second
[
srv 0 client
]
set second_host
[
srv 0 host
]
set second_port
[
srv 0 port
]
assert
{[
$first
exists key
]
== 1
}
assert
{[
$second
exists key
]
== 0
}
$first expire key 10
set ret
[
r -1 migrate $second_host $second_port key 9 5000
]
assert
{
$ret
eq
{
OK
}}
assert
{[
$first
exists key
]
== 0
}
assert
{[
$second
exists key
]
== 1
}
assert
{[
$second
get key
]
eq
{
Some Value
}}
assert
{[
$second
ttl key
]
>= 7 &&
[
$second
ttl key
]
<= 10
}
}
}
test
{
MIGRATE can correctly transfer large values
}
{
set first
[
srv 0 client
]
r del key
for
{
set j 0
}
{
$j
< 5000
}
{
incr j
}
{
r rpush key 1 2 3 4 5 6 7 8 9 10
r rpush key
"item 1"
"item 2"
"item 3"
"item 4"
"item 5"
\
"item 6"
"item 7"
"item 8"
"item 9"
"item 10"
}
assert
{[
string length
[
r dump key
]]
>
(
1024*64
)}
start_server
{
tags
{
"repl"
}}
{
set second
[
srv 0 client
]
set second_host
[
srv 0 host
]
set second_port
[
srv 0 port
]
assert
{[
$first
exists key
]
== 1
}
assert
{[
$second
exists key
]
== 0
}
set ret
[
r -1 migrate $second_host $second_port key 9 10000
]
assert
{
$ret
eq
{
OK
}}
assert
{[
$first
exists key
]
== 0
}
assert
{[
$second
exists key
]
== 1
}
assert
{[
$second
ttl key
]
== -1
}
assert
{[
$second
llen key
]
== 5000*20
}
}
}
}
}
...
...
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