From 01f75bf352b312cacbba2ae30464894c3c44c4c6 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Wed, 1 Feb 2012 17:17:52 +0100
Subject: [PATCH] New SORT tests checking the new more deterministic behavior
 of SORT sorting algorithm.

---
 tests/unit/sort.tcl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/tests/unit/sort.tcl b/tests/unit/sort.tcl
index 20eec44b..17720454 100644
--- a/tests/unit/sort.tcl
+++ b/tests/unit/sort.tcl
@@ -164,6 +164,32 @@ start_server {
         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}
 
+    test "SORT will complain with numerical sorting and bad doubles (1)" {
+        r del myset
+        r sadd myset 1 2 3 4 not-a-double
+        set e {}
+        catch {r sort myset} e
+        set e
+    } {*ERR*double*}
+
+    test "SORT will complain with numerical sorting and bad doubles (2)" {
+        r del myset
+        r sadd myset 1 2 3 4
+        r mset score:1 10 score:2 20 score:3 30 score:4 not-a-double
+        set e {}
+        catch {r sort myset by score:*} e
+        set e
+    } {*ERR*double*}
+
+    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} {
+            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}
+
     tags {"slow"} {
         set num 100
         set res [create_random_dataset $num lpush]
-- 
2.47.2