summaryrefslogtreecommitdiff
path: root/test-redis.tcl
diff options
context:
space:
mode:
authorPieter Noordhuis <pcnoordhuis@gmail.com>2010-03-08 21:27:26 +0100
committerPieter Noordhuis <pcnoordhuis@gmail.com>2010-03-08 21:27:26 +0100
commitb287c9bb2b8e7dd0c62c2a8b9081fb41b0c035bc (patch)
tree6cc57c84ac9f49d1af2b578a1c0d1e7b25409ca5 /test-redis.tcl
parentcbba7dd7c90f7b5b845d1dea86390572e5b4fa2c (diff)
downloadredis-b287c9bb2b8e7dd0c62c2a8b9081fb41b0c035bc.tar.gz
use ZMERGE as starting point
Diffstat (limited to 'test-redis.tcl')
-rw-r--r--test-redis.tcl15
1 files changed, 15 insertions, 0 deletions
diff --git a/test-redis.tcl b/test-redis.tcl
index a6acea18a..9d458ed7b 100644
--- a/test-redis.tcl
+++ b/test-redis.tcl
@@ -1462,6 +1462,21 @@ proc main {server port} {
list [$r zremrangebyscore zset -inf +inf] [$r zrange zset 0 -1]
} {5 {}}
+ test {ZMERGE basics} {
+ $r del zseta zsetb zsetc
+ $r zadd zseta 1 a
+ $r zadd zseta 2 b
+ $r zadd zseta 3 c
+ $r zadd zsetb 1 b
+ $r zadd zsetb 2 c
+ $r zadd zsetb 3 d
+ list [$r zmerge zsetc zseta zsetb] [$r zrange zsetc 0 -1 withscores]
+ } {4 {a 1 b 3 d 3 c 5}}
+
+ test {ZMERGEWEIGHED basics} {
+ list [$r zmergeweighed zsetc zseta 2 zsetb 3] [$r zrange zsetc 0 -1 withscores]
+ } {4 {a 2 b 7 d 9 c 12}}
+
test {SORT against sorted sets} {
$r del zset
$r zadd zset 1 a