Make SORT BY <constant> STORE ... to always produce the same output by force sorting...

[redis.git] / tests / unit / sort.tcl

diff --git a/tests/unit/sort.tcl b/tests/unit/sort.tcl
index a50f04736106ec4e27bfaa7257d0d2e0816379a5..20eec44bc903c50a7418ee5723e0c3262e3eb867 100644 (file)
--- a/tests/unit/sort.tcl
+++ b/tests/unit/sort.tcl
@@ -157,6 +157,13 @@ start_server {
         r exists foo
     } {0}
 
+    test "SORT with BY <constant> and STORE should still order output" {
+        r del myset mylist
+        r sadd myset a b c d e f g h i l m n o p q r s t u v z
+        r sort myset alpha by _ store mylist
+        r lrange mylist 0 -1
+    } {a b c d e f g h i l m n o p q r s t u v z}
+
     tags {"slow"} {
         set num 100
         set res [create_random_dataset $num lpush]