Explicit RPOP/LPOP tests.

[redis.git] / tests / unit / type / set.tcl

diff --git a/tests/unit/type/set.tcl b/tests/unit/type/set.tcl
index 1a37ed616ae48648996f80722f1e22bf2237b5aa..bdd1f9bfa11955a2026ccb9caad974204126267a 100644 (file)
--- a/tests/unit/type/set.tcl
+++ b/tests/unit/type/set.tcl
@@ -105,6 +105,12 @@ start_server {
         lsort [r smembers myset]
     } {a c}
 
+    test {SREM variadic version with more args needed to destroy the key} {
+        r del myset
+        r sadd myset 1 2 3
+        r srem myset 1 2 3 4 5 6 7 8
+    } {3}
+
     foreach {type} {hashtable intset} {
         for {set i 1} {$i <= 5} {incr i} {
             r del [format "set%d" $i]