fluencelabs/redis
1
0
Fork 0
mirror of https://github.com/fluencelabs/redis synced 2025-03-30 22:31:03 +00:00
Code Issues Projects Releases Wiki Activity

Test that sorted sets are removed when empty

Browse Source
This commit is contained in:
Pieter Noordhuis 2011-03-22 09:28:40 +01:00
parent 48991620f7
commit 04a10b1a6d
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/unit/type/zset.tcl
View File

@ -53,6 +53,18 @@ start_server {tags {"zset"}} {
assert_equal 0 [r zcard zdoesntexist] assert_equal 0 [r zcard zdoesntexist]
} }
test "ZREM removes key after last element is removed" {
r del ztmp
r zadd ztmp 10 x
r zadd ztmp 20 y
assert_equal 1 [r exists ztmp]
assert_equal 0 [r zrem ztmp z]
assert_equal 1 [r zrem ztmp y]
assert_equal 1 [r zrem ztmp x]
assert_equal 0 [r exists ztmp]
}
test "ZRANGE basics - $encoding" { test "ZRANGE basics - $encoding" {
r del ztmp r del ztmp
r zadd ztmp 1 a r zadd ztmp 1 a
@ -244,6 +256,7 @@ start_server {tags {"zset"}} {
test "ZREMRANGEBYSCORE basics" { test "ZREMRANGEBYSCORE basics" {
proc remrangebyscore {min max} { proc remrangebyscore {min max} {
create_zset zset {1 a 2 b 3 c 4 d 5 e} create_zset zset {1 a 2 b 3 c 4 d 5 e}
assert_equal 1 [r exists zset]
r zremrangebyscore zset $min $max r zremrangebyscore zset $min $max
} }
@ -290,6 +303,10 @@ start_server {tags {"zset"}} {
# exclusive min and max # exclusive min and max
assert_equal 3 [remrangebyscore (1 (5] assert_equal 3 [remrangebyscore (1 (5]
assert_equal {a e} [r zrange zset 0 -1] assert_equal {a e} [r zrange zset 0 -1]
# destroy when empty
assert_equal 5 [remrangebyscore 1 5]
assert_equal 0 [r exists zset]
} }
test "ZREMRANGEBYSCORE with non-value min or max" { test "ZREMRANGEBYSCORE with non-value min or max" {
@ -301,6 +318,7 @@ start_server {tags {"zset"}} {
test "ZREMRANGEBYRANK basics" { test "ZREMRANGEBYRANK basics" {
proc remrangebyrank {min max} { proc remrangebyrank {min max} {
create_zset zset {1 a 2 b 3 c 4 d 5 e} create_zset zset {1 a 2 b 3 c 4 d 5 e}
assert_equal 1 [r exists zset]
r zremrangebyrank zset $min $max r zremrangebyrank zset $min $max
} }
@ -323,6 +341,10 @@ start_server {tags {"zset"}} {
# end overflow # end overflow
assert_equal 5 [remrangebyrank 0 10] assert_equal 5 [remrangebyrank 0 10]
assert_equal {} [r zrange zset 0 -1] assert_equal {} [r zrange zset 0 -1]
# destroy when empty
assert_equal 5 [remrangebyrank 0 4]
assert_equal 0 [r exists zset]
} }
test "ZUNIONSTORE against non-existing key doesn't set destination - $encoding" { test "ZUNIONSTORE against non-existing key doesn't set destination - $encoding" {