RANDOMKEY regression test added

2009-04-23 18:48:11 +02:00 · 2009-04-23 18:48:11 +02:00 · f5785ae997
commit f5785ae997
parent 6f864e6266
1 changed files with 7 additions and 0 deletions
--- 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