SORT STORE test added

diff --git a/test-redis.tcl b/test-redis.tcl
index c5f15bfb5444b9f04735f83898271b62c2f02f84..437af93ea3f300c566c927cca694ffcc927967d7 100644 (file)
--- a/test-redis.tcl
+++ b/test-redis.tcl
@@ -904,6 +904,11 @@ proc main {server port} {
         $r sort tosort {BY weight_*}
     } $res
 
+    test {SORT with BY and STORE against the newly created list} {
+        $r sort tosort {BY weight_*} store sort-res
+        $r lrange sort-res 0 -1
+    } $res
+
     test {SORT direct, numeric, against the newly created list} {
         $r sort tosort
     } [lsort -integer $res]