X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/28173a49a7f6c8d5850f70c26874f3cba6f64941..7785121a503438cf6d72f16ba0149cad8ae26e42:/test-redis.tcl

diff --git a/test-redis.tcl b/test-redis.tcl
index 10b1acd2..a4c3c618 100644
--- a/test-redis.tcl
+++ b/test-redis.tcl
@@ -619,6 +619,19 @@ proc main {server port} {
         $r zadd mytestzset c 30
         $r save
     } {OK}
+
+    test {SRANDMEMBER} {
+        $r del myset
+        $r sadd myset a
+        $r sadd myset b
+        $r sadd myset c
+        unset -nocomplain myset
+        array set myset {}
+        for {set i 0} {$i < 100} {incr i} {
+            set myset([$r srandmember myset]) 1
+        }
+        lsort [array names myset]
+    } {a b c}
     
     test {Create a random list} {
         set tosort {}