Solves issue #194 on Google Code: --help parameter to redis-srver prints the usage...

[redis.git] / test-redis.tcl

diff --git a/test-redis.tcl b/test-redis.tcl
index 3dd03fd24a424c56cf477a28dc6b3fedc07d3135..c8cb301933291c7efbcf30f64f51e265cffb2e53 100644 (file)
--- a/test-redis.tcl
+++ b/test-redis.tcl
@@ -210,6 +210,12 @@ proc datasetDigest r {
                 } else {
                     set aux [::sha1::sha1 -hex [$r zrange $k 0 -1]]
                 }
+            } {hash} {
+                if {[$r hlen $k] == 0} {
+                    set aux {}
+                } else {
+                    set aux [::sha1::sha1 -hex [lsort [$r hgetall $k]]]
+                }
             } default {
                 error "Type not supported: $t"
             }