Add ZCARD

ragnard · Mar 15, 2010 · f3ab136 · f3ab136
1 parent 524c249
commit f3ab136
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/src/redis.clj b/src/redis.clj
@@ -113,6 +113,7 @@
   (zrem        [key member] :bulk int-to-bool)
   (zincrby     [key increment member] :bulk string-to-double)
   (zscore      [key member] :bulk string-to-double)
+  (zcard       [key] :inline)
   (zrange      [key start end] :inline)
   (zrevrange   [key start end] :inline)
   (zrangebyscore [key start end] :inline)

diff --git a/test/redis/tests.clj b/test/redis/tests.clj
@@ -404,6 +404,11 @@
   (is (= ["two"] (redis/zrangebyscore "zset" 1.1 2.9)))
   (is (= ["two" "three"] (redis/zrangebyscore "zset" 1.0000001 3.00001))))
 
+(deftest zcard
+  (is (thrown? Exception (redis/zcard "foo")))
+  (is (= 0 (redis/zcard "zset")))
+  (redis/zadd "zset" 1.0 "one")
+  (is (= 1 (redis/zcard "zset"))))
 
 
 ;;