Add :store option to SORT command

nathell · Mar 15, 2010 · 38959dd · 38959dd
1 parent cb9cc61
commit 38959dd
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git 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
@@ -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))))