epoll support enabled by default for Linux builds

[redis.git] / test-redis.tcl

diff --git a/test-redis.tcl b/test-redis.tcl
index 10b1acd22acf5bceab52ee6d91c2eea46beceafd..a4c3c618a2d72f99527b24af4fb3b8f91bf36f38 100644 (file)
--- 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 {}