From c4a4755286f6d7df99ba40f83ffb3874807fe83e Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Mon, 23 Apr 2012 17:27:39 +0200
Subject: [PATCH] Ziplist encoding now tested with negative integers as well.
---
tests/unit/type/list-3.tcl | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/tests/unit/type/list-3.tcl b/tests/unit/type/list-3.tcl
index 9410022f..94f9a0b7 100644
--- a/tests/unit/type/list-3.tcl
+++ b/tests/unit/type/list-3.tcl
@@ -29,6 +29,15 @@ start_server {
set data [randomInt 4294967296]
} {
set data [randomInt 18446744073709551616]
+ } {
+ set data -[randomInt 65536]
+ if {$data eq {-0}} {set data 0}
+ } {
+ set data -[randomInt 4294967296]
+ if {$data eq {-0}} {set data 0}
+ } {
+ set data -[randomInt 18446744073709551616]
+ if {$data eq {-0}} {set data 0}
}
lappend l $data
r rpush l $data