caleb-brown/redict
1
0
Fork 0
mirror of https://codeberg.org/redict/redict.git synced 2025-01-22 16:18:28 -05:00
Code Issues Actions Packages Projects Releases Wiki Activity

Added a new hash fuzzy tester.

Browse Source 
The new fuzzy tester also removes elements from the hash instead of just
adding random fields. This should increase the probability to find bugs
in the implementations of the hash type internal representations.
This commit is contained in:
antirez 2012-06-12 15:20:16 +02:00
parent ee789e157c
commit 84d9ef4f31
1 changed files with 38 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
tests/unit/type/hash.tcl
View File

@ -397,7 +397,7 @@ start_server {tags {"hash"}} {
} {b}
foreach size {10 512} {
test "Hash fuzzing - $size fields" {
test "Hash fuzzing #1 - $size fields" {
for {set times 0} {$times < 10} {incr times} {
catch {unset hash}
array set hash {}
@ -418,6 +418,43 @@ start_server {tags {"hash"}} {
assert_equal [array size hash] [r hlen hash]
}
}
test "Hash fuzzing #2 - $size fields" {
for {set times 0} {$times < 10} {incr times} {
catch {unset hash}
array set hash {}
r del hash
# Create
for {set j 0} {$j < $size} {incr j} {
randpath {
set field [randomValue]
set value [randomValue]
r hset hash $field $value
set hash($field) $value
} {
set field [randomSignedInt 512]
set value [randomSignedInt 512]
r hset hash $field $value
set hash($field) $value
} {
randpath {
set field [randomValue]
} {
set field [randomSignedInt 512]
}
r hdel hash $field
unset -nocomplain hash($field)
}
}
# Verify
foreach {k v} [array get hash] {
assert_equal $v [r hget hash $k]
}
assert_equal [array size hash] [r hlen hash]
}
}
}
test {Stress test the hash ziplist -> hashtable encoding conversion} {