Test: fix false positive in HSTRLEN test.

HINCRBY* tests later used the value "tmp" that was sometimes generated
by the random key generation function. The result was ovewriting what
Tcl expected to be inside Redis with another value, causing the next
HSTRLEN test to fail.
This commit is contained in:
antirez 2015-09-15 09:37:30 +02:00
parent 3c23b5ffd0
commit 846da5b22e

View File

@ -2,8 +2,8 @@ start_server {tags {"hash"}} {
test {HSET/HLEN - Small hash creation} { test {HSET/HLEN - Small hash creation} {
array set smallhash {} array set smallhash {}
for {set i 0} {$i < 8} {incr i} { for {set i 0} {$i < 8} {incr i} {
set key [randstring 0 8 alpha] set key __avoid_collisions__[randstring 0 8 alpha]
set val [randstring 0 8 alpha] set val __avoid_collisions__[randstring 0 8 alpha]
if {[info exists smallhash($key)]} { if {[info exists smallhash($key)]} {
incr i -1 incr i -1
continue continue
@ -21,8 +21,8 @@ start_server {tags {"hash"}} {
test {HSET/HLEN - Big hash creation} { test {HSET/HLEN - Big hash creation} {
array set bighash {} array set bighash {}
for {set i 0} {$i < 1024} {incr i} { for {set i 0} {$i < 1024} {incr i} {
set key [randstring 0 8 alpha] set key __avoid_collisions__[randstring 0 8 alpha]
set val [randstring 0 8 alpha] set val __avoid_collisions__[randstring 0 8 alpha]
if {[info exists bighash($key)]} { if {[info exists bighash($key)]} {
incr i -1 incr i -1
continue continue
@ -33,7 +33,7 @@ start_server {tags {"hash"}} {
list [r hlen bighash] list [r hlen bighash]
} {1024} } {1024}
test {Is the big hash encoded with a ziplist?} { test {Is the big hash encoded with an hash table?} {
assert_encoding hashtable bighash assert_encoding hashtable bighash
} }