RANDOMKEY regression test added

diff --git a/test-redis.tcl b/test-redis.tcl
index 2fd959321515e0ae7db05825deca5f28f38dce1a..0e1c852f0223c119307cc92320ead469b74c5ace 100644 (file)
--- a/test-redis.tcl
+++ b/test-redis.tcl
@@ -624,6 +624,13 @@ proc main {server port} {
         $r randomkey
     } {}
 
+    test {RANDOMKEY regression 1} {
+        $r flushall
+        $r set x 10
+        $r del x
+        $r randomkey
+    } {}
+
     # Leave the user with a clean DB before to exit
     test {FLUSHALL} {
         $r flushall