From ced6709cb9f4db367c58035f1ccb4a3ddd9c21cf Mon Sep 17 00:00:00 2001 From: Pieter Noordhuis 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 | 20 ++++++++++++++------ 1 file changed, 14 insertions(+), 6 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 } - 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 #] } -- 2.47.2