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
dfc31a1e
Commit
dfc31a1e
authored
Mar 28, 2013
by
antirez
Browse files
Test: Extended SET tests.
parent
30d5d416
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/unit/basic.tcl
View file @
dfc31a1e
...
@@ -712,4 +712,46 @@ start_server {tags {"basic"}} {
...
@@ -712,4 +712,46 @@ start_server {tags {"basic"}} {
assert_equal
[
string range $bin $_start $_end
]
[
r getrange bin $start $end
]
assert_equal
[
string range $bin $_start $_end
]
[
r getrange bin $start $end
]
}
}
}
}
test
{
Extended SET can detect syntax errors
}
{
set e
{}
catch
{
r set foo bar non-existing-option
}
e
set e
}
{
*syntax*
}
test
{
Extended SET NX option
}
{
r del foo
set v1
[
r set foo 1 nx
]
set v2
[
r set foo 2 nx
]
list $v1 $v2
[
r get foo
]
}
{
OK
{}
1
}
test
{
Extended SET XX option
}
{
r del foo
set v1
[
r set foo 1 xx
]
r set foo bar
set v2
[
r set foo 2 xx
]
list $v1 $v2
[
r get foo
]
}
{{}
OK 2
}
test
{
Extended SET EX option
}
{
r del foo
r set foo bar ex 10
set ttl
[
r ttl foo
]
assert
{
$ttl
<= 10 && $ttl > 5
}
}
test
{
Extended SET PX option
}
{
r del foo
r set foo bar px 10000
set ttl
[
r ttl foo
]
assert
{
$ttl
<= 10 && $ttl > 5
}
}
test
{
Extended SET using multiple options at once
}
{
r set foo val
assert
{[
r set foo bar xx px 10000
]
eq
{
OK
}}
set ttl
[
r ttl foo
]
assert
{
$ttl
<= 10 && $ttl > 5
}
}
}
}
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