use withscores when performing the dataset digest

2010-05-12 17:22:39 +02:00 · 2010-05-12 17:22:39 +02:00 · 128e89dde2
parent 8c096b16a1
commit 128e89dde2
1 changed files with 1 additions and 1 deletions
--- a/test-redis.tcl
+++ b/test-redis.tcl
@ -214,7 +214,7 @@ proc datasetDigest r {
                if {[$r zcard $k] == 0} {
                    set aux {}
                } else {
-                    set aux [::sha1::sha1 -hex [$r zrange $k 0 -1]]
+                    set aux [::sha1::sha1 -hex [$r zrange $k 0 -1 withscores]]
                }
            } {hash} {
                if {[$r hlen $k] == 0} {