Test that sorted sets are removed when empty

diff --git a/tests/unit/type/zset.tcl b/tests/unit/type/zset.tcl
index 31604412915d78de0f812d4d0ea5166bc7632bc9..6e32a4b8ad1f186f9029d640ade6544c809e48eb 100644 (file)
--- a/tests/unit/type/zset.tcl
+++ b/tests/unit/type/zset.tcl
@@ -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" {
             r del ztmp
             r zadd ztmp 1 a
         test "ZRANGE basics - $encoding" {
             r del ztmp
             r zadd ztmp 1 a


@@ -244,6 +256,7 @@ start_server {tags {"zset"}} {
         test "ZREMRANGEBYSCORE basics" {
             proc remrangebyscore {min max} {
                 create_zset zset {1 a 2 b 3 c 4 d 5 e}
         test "ZREMRANGEBYSCORE basics" {
             proc remrangebyscore {min max} {
                 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
             assert_equal 3 [remrangebyscore (1 (5]
             assert_equal {a e} [r zrange zset 0 -1]
             # exclusive min and max
             assert_equal 3 [remrangebyscore (1 (5]
             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" {
             proc remrangebyrank {min max} {
                 create_zset zset {1 a 2 b 3 c 4 d 5 e}
         test "ZREMRANGEBYRANK basics" {
             proc remrangebyrank {min max} {
                 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
             assert_equal 5 [remrangebyrank 0 10]
             assert_equal {} [r zrange zset 0 -1]
             # end overflow
             assert_equal 5 [remrangebyrank 0 10]
             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" {