From 38959dd3b88806c8a5f5e7d4320d4cdce7fb5e95 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ragnar=20Dahl=C3=A9n?= Date: Mon, 15 Mar 2010 20:28:18 +0100 Subject: [PATCH] Add :store option to SORT command --- src/redis/internal.clj | 3 +++ test/redis/tests.clj | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/src/redis/internal.clj b/src/redis/internal.clj index 97262dd..cf9558e 100644 --- a/src/redis/internal.clj +++ b/src/redis/internal.clj @@ -203,6 +203,9 @@ :get (let [pattern (first args)] (recur (conj arg-strings "GET" pattern) (rest args))) + :store (let [key (first args)] + (recur (conj arg-strings "STORE" key) + (rest args))) :alpha (recur (conj arg-strings "ALPHA") args) :asc (recur (conj arg-strings "ASC") args) :desc (recur (conj arg-strings "DESC") args) diff --git a/test/redis/tests.clj b/test/redis/tests.clj index aea856e..b033026 100644 --- a/test/redis/tests.clj +++ b/test/redis/tests.clj @@ -455,7 +455,9 @@ (is (= ["one" "two" "three" "four"] (redis/sort "ids" :get "object_*"))) (is (= ["one" "two"] - (redis/sort "ids" :by "name_*" :alpha :limit 0 2 :desc :get "object_*")))) + (redis/sort "ids" :by "name_*" :alpha :limit 0 2 :desc :get "object_*"))) + (redis/sort "ids" :by "name_*" :alpha :limit 0 2 :desc :get "object_*" :store "result") + (is (= ["one" "two"] (redis/lrange "result" 0 -1))))