diff options
author | antirez <antirez@gmail.com> | 2010-03-18 03:27:08 +0100 |
---|---|---|
committer | antirez <antirez@gmail.com> | 2010-03-18 03:27:08 +0100 |
commit | 12f72a714c6266269b7c9066b7e1349c7682a8e7 (patch) | |
tree | 23746d136382fc80d87c7c8a603199eb1d0272b7 | |
parent | ad6de43c800b6511ca96a2ca17848fc6582d85d0 (diff) | |
download | redis-12f72a714c6266269b7c9066b7e1349c7682a8e7.tar.gz |
test-redis.tcl dataset digest function Hash support
-rw-r--r-- | test-redis.tcl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/test-redis.tcl b/test-redis.tcl index acb1acedc..c8cb30193 100644 --- a/test-redis.tcl +++ b/test-redis.tcl @@ -152,7 +152,6 @@ proc createComplexDataset {r ops} { } { $r zadd $k $d $v } { - puts "hset $k $f $v" $r hset $k $f $v } set t [$r type $k] @@ -179,7 +178,7 @@ proc createComplexDataset {r ops} { } {hash} { randpath {$r hset $k $f $v} \ - {puts "$r hdel $k $f"; $r hdel $k $f} + {$r hdel $k $f} } } } @@ -211,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" } |