added tests for vararg DEL

diff --git a/test-redis.tcl b/test-redis.tcl
index 6eb1468cfb937fbe15a2285c55cf832168c6f8e9..9e69acda0bc7e058cd9db0da059798572b69a71e 100644 (file)
--- a/test-redis.tcl
+++ b/test-redis.tcl
@@ -65,6 +65,13 @@ proc main {server port} {
         $r get x
     } {}
 
+    test {Vararg DEL} {
+        $r set foo1 a
+        $r set foo2 b
+        $r set foo3 c
+        list [$r del foo1 foo2 foo3 foo4] [$r mget foo1 foo2 foo3]
+    } {3 {{} {} {}}}
+
     test {KEYS with pattern} {
         foreach key {key_x key_y key_z foo_a foo_b foo_c} {
             $r set $key hello