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
79daddd5
Commit
79daddd5
authored
Apr 18, 2012
by
antirez
Browse files
Explicit RPOP/LPOP tests.
parent
7aa0dfd0
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/unit/type/list.tcl
View file @
79daddd5
...
@@ -7,7 +7,7 @@ start_server {
...
@@ -7,7 +7,7 @@ start_server {
}
{
}
{
source
"tests/unit/type/list-common.tcl"
source
"tests/unit/type/list-common.tcl"
test
{
LPUSH, RPUSH, LLENGTH, LINDEX - ziplist
}
{
test
{
LPUSH, RPUSH, LLENGTH, LINDEX
, LPOP
- ziplist
}
{
# first lpush then rpush
# first lpush then rpush
assert_equal 1
[
r lpush myziplist1 a
]
assert_equal 1
[
r lpush myziplist1 a
]
assert_equal 2
[
r rpush myziplist1 b
]
assert_equal 2
[
r rpush myziplist1 b
]
...
@@ -16,6 +16,9 @@ start_server {
...
@@ -16,6 +16,9 @@ start_server {
assert_equal a
[
r lindex myziplist1 0
]
assert_equal a
[
r lindex myziplist1 0
]
assert_equal b
[
r lindex myziplist1 1
]
assert_equal b
[
r lindex myziplist1 1
]
assert_equal c
[
r lindex myziplist1 2
]
assert_equal c
[
r lindex myziplist1 2
]
assert_equal
{}
[
r lindex myziplist2 3
]
assert_equal c
[
r rpop myziplist1
]
assert_equal a
[
r lpop myziplist1
]
assert_encoding ziplist myziplist1
assert_encoding ziplist myziplist1
# first rpush then lpush
# first rpush then lpush
...
@@ -27,10 +30,12 @@ start_server {
...
@@ -27,10 +30,12 @@ start_server {
assert_equal b
[
r lindex myziplist2 1
]
assert_equal b
[
r lindex myziplist2 1
]
assert_equal a
[
r lindex myziplist2 2
]
assert_equal a
[
r lindex myziplist2 2
]
assert_equal
{}
[
r lindex myziplist2 3
]
assert_equal
{}
[
r lindex myziplist2 3
]
assert_equal a
[
r rpop myziplist2
]
assert_equal c
[
r lpop myziplist2
]
assert_encoding ziplist myziplist2
assert_encoding ziplist myziplist2
}
}
test
{
LPUSH, RPUSH, LLENGTH, LINDEX - regular list
}
{
test
{
LPUSH, RPUSH, LLENGTH, LINDEX
, LPOP
- regular list
}
{
# first lpush then rpush
# first lpush then rpush
assert_equal 1
[
r lpush mylist1 $largevalue
(
linkedlist
)]
assert_equal 1
[
r lpush mylist1 $largevalue
(
linkedlist
)]
assert_encoding linkedlist mylist1
assert_encoding linkedlist mylist1
...
@@ -41,6 +46,8 @@ start_server {
...
@@ -41,6 +46,8 @@ start_server {
assert_equal b
[
r lindex mylist1 1
]
assert_equal b
[
r lindex mylist1 1
]
assert_equal c
[
r lindex mylist1 2
]
assert_equal c
[
r lindex mylist1 2
]
assert_equal
{}
[
r lindex mylist1 3
]
assert_equal
{}
[
r lindex mylist1 3
]
assert_equal c
[
r rpop mylist1
]
assert_equal $largevalue
(
linkedlist
)
[
r lpop mylist1
]
# first rpush then lpush
# first rpush then lpush
assert_equal 1
[
r rpush mylist2 $largevalue
(
linkedlist
)]
assert_equal 1
[
r rpush mylist2 $largevalue
(
linkedlist
)]
...
@@ -52,8 +59,14 @@ start_server {
...
@@ -52,8 +59,14 @@ start_server {
assert_equal b
[
r lindex mylist2 1
]
assert_equal b
[
r lindex mylist2 1
]
assert_equal $largevalue
(
linkedlist
)
[
r lindex mylist2 2
]
assert_equal $largevalue
(
linkedlist
)
[
r lindex mylist2 2
]
assert_equal
{}
[
r lindex mylist2 3
]
assert_equal
{}
[
r lindex mylist2 3
]
assert_equal $largevalue
(
linkedlist
)
[
r rpop mylist2
]
assert_equal c
[
r lpop mylist2
]
}
}
test
{
R/LPOP against empty list
}
{
r lpop non-existing-list
}
{}
test
{
Variadic RPUSH/LPUSH
}
{
test
{
Variadic RPUSH/LPUSH
}
{
r del mylist
r del mylist
assert_equal 4
[
r lpush mylist a b c d
]
assert_equal 4
[
r lpush mylist a b c d
]
...
...
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