From: antirez Date: Thu, 4 Nov 2010 09:48:49 +0000 (+0100) Subject: minor test suite bug fixed X-Git-Url: https://git.saurik.com/redis.git/commitdiff_plain/4d7e1255193702937daabf0dbaabbb6876bf5547?ds=sidebyside minor test suite bug fixed --- diff --git a/tests/support/util.tcl b/tests/support/util.tcl index 95153111..93cb750f 100644 --- a/tests/support/util.tcl +++ b/tests/support/util.tcl @@ -200,7 +200,7 @@ proc createComplexDataset {r ops {opt {}}} { randpath {{*}$r sadd $k $v} \ {{*}$r srem $k $v} \ { - set otherset [findKeyWithType r set] + set otherset [findKeyWithType {*}$r set] if {$otherset ne {}} { randpath { {*}$r sunionstore $k2 $k $otherset @@ -216,7 +216,7 @@ proc createComplexDataset {r ops {opt {}}} { randpath {{*}$r zadd $k $d $v} \ {{*}$r zrem $k $v} \ { - set otherzset [findKeyWithType r zset] + set otherzset [findKeyWithType {*}$r zset] if {$otherzset ne {}} { randpath { {*}$r zunionstore $k2 2 $k $otherzset