From ced6709cb9f4db367c58035f1ccb4a3ddd9c21cf Mon Sep 17 00:00:00 2001
From: Pieter Noordhuis <pcnoordhuis@gmail.com>
Date: Sat, 21 Aug 2010 11:02:22 +0200
Subject: [PATCH] Make SORT tests use both ziplists and linked lists as input
---
tests/unit/sort.tcl | 24 ++++++++++++++++--------
1 file changed, 16 insertions(+), 8 deletions(-)
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
}
+ 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 "$title: SORT BY hash field" {
+ assert_equal $result [r sort tosort {BY wobj_*->weight}]
+ }
+ }
+
set result [create_random_dataset 16 lpush]
- test "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 "SORT GET #" {
assert_equal [lsort -integer $result] [r sort tosort GET #]
}