From: Pieter Noordhuis <pcnoordhuis@gmail.com>
Date: Sat, 21 Aug 2010 09:02:22 +0000 (+0200)
Subject: Make SORT tests use both ziplists and linked lists as input
X-Git-Url: https://git.saurik.com/redis.git/commitdiff_plain/ced6709cb9f4db367c58035f1ccb4a3ddd9c21cf?ds=sidebyside

Make SORT tests use both ziplists and linked lists as input
---

diff --git a/tests/unit/sort.tcl b/tests/unit/sort.tcl
index 554477d1..8f2710cd 100644
--- a/tests/unit/sort.tcl
+++ b/tests/unit/sort.tcl
@@ -34,15 +34,23 @@ start_server {
         set _ $result
     }
 
-    set result [create_random_dataset 16 lpush]
-    test "SORT BY key" {
-        assert_equal $result [r sort tosort {BY weight_*}]
-    }
+    foreach {num cmd enc title} {
+        16 lpush ziplist "Ziplist"
+        64 lpush linkedlist "Linked list"
+    } {
+        set result [create_random_dataset $num $cmd]
+        assert_encoding $enc tosort
+
+        test "$title: SORT BY key" {
+            assert_equal $result [r sort tosort {BY weight_*}]
+        }
 
-    test "SORT BY hash field" {
-        assert_equal $result [r sort tosort {BY wobj_*->weight}]
+        test "$title: SORT BY hash field" {
+            assert_equal $result [r sort tosort {BY wobj_*->weight}]
+        }
     }
 
+    set result [create_random_dataset 16 lpush]
     test "SORT GET #" {
         assert_equal [lsort -integer $result] [r sort tosort GET #]
     }