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
c2ecac47
Commit
c2ecac47
authored
Feb 16, 2018
by
antirez
Browse files
CG: test XGROUPREAD abilities.
parent
18ab0e31
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/unit/type/stream-cgroups.tcl
View file @
c2ecac47
...
@@ -8,4 +8,34 @@ start_server {
...
@@ -8,4 +8,34 @@ start_server {
catch
{
r XGROUP CREATE mystream mygroup $
}
err
catch
{
r XGROUP CREATE mystream mygroup $
}
err
set err
set err
}
{
BUSYGROUP*
}
}
{
BUSYGROUP*
}
test
{
XREADGROUP will return only new elements
}
{
r XADD mystream * a 1
r XADD mystream * b 2
# XREADGROUP should return only the new elements
"a 1"
"b 1"
# and not the element
"foo bar"
which was pre existing in the
# stream
(
see previous test
)
set reply
[
r XREADGROUP GROUP mygroup client-1 STREAMS mystream
">"
]
assert
{[
llength
[
lindex $reply 0 1
]]
== 2
}
lindex $reply 0 1 0 1
}
{
a 1
}
test
{
XREADGROUP can read the history of the elements we own
}
{
# Add a few more elements
r XADD mystream * c 3
r XADD mystream * d 4
# Read a few elements using a different consumer name
set reply
[
r XREADGROUP GROUP mygroup client-2 STREAMS mystream
">"
]
assert
{[
llength
[
lindex $reply 0 1
]]
== 2
}
assert
{[
lindex $reply 0 1 0 1
]
eq
{
c 3
}}
set r1
[
r XREADGROUP GROUP mygroup client-1 COUNT 10 STREAMS mystream 0
]
set r2
[
r XREADGROUP GROUP mygroup client-2 COUNT 10 STREAMS mystream 0
]
assert
{[
lindex $r1 0 1 0 1
]
eq
{
a 1
}}
assert
{[
lindex $r2 0 1 0 1
]
eq
{
c 3
}}
}
}
}
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