Ziplist encoding now tested with negative integers as well.

diff --git a/tests/unit/type/list-3.tcl b/tests/unit/type/list-3.tcl
index 9410022fdc8495d2cfe25d975ff14576dba3be11..94f9a0b79767310ba8d9dca7a8cfb5898e3a4110 100644 (file)
--- 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