X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/01f75bf352b312cacbba2ae30464894c3c44c4c6..0bd6d68e34bc41cd80cd7fc44aab9cf3884de8dc:/tests/unit/sort.tcl

diff --git a/tests/unit/sort.tcl b/tests/unit/sort.tcl
index 17720454..5a181641 100644
--- a/tests/unit/sort.tcl
+++ b/tests/unit/sort.tcl
@@ -159,10 +159,10 @@ start_server {
 
     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 sadd myset a b c d e f g h i l m n o p q r s t u v z aa aaa azz
         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}
+    } {a aa aaa azz b c d e f g h i l m n o p q r s t u v z}
 
     test "SORT will complain with numerical sorting and bad doubles (1)" {
         r del myset
@@ -183,12 +183,19 @@ start_server {
 
     test "SORT BY sub-sorts lexicographically if score is the same" {
         r del myset
-        r sadd myset u v z a b c d e f g h i l m n o p q r s t
-        foreach ele {a b c d e f g h i l m n o p q r s t u v z} {
+        r sadd myset a b c d e f g h i l m n o p q r s t u v z aa aaa azz
+        foreach ele {a aa aaa azz b c d e f g h i l m n o p q r s t u v z} {
             set score:$ele 100
         }
         r sort myset by score:*
-    } {a b c d e f g h i l m n o p q r s t u v z}
+    } {a aa aaa azz b c d e f g h i l m n o p q r s t u v z}
+
+    test "SORT GET with pattern ending with just -> does not get hash field" {
+        r del mylist
+        r lpush mylist a
+        r set x:a-> 100
+        r sort mylist by num get x:*->
+    } {100}
 
     tags {"slow"} {
         set num 100