From 4d7e1255193702937daabf0dbaabbb6876bf5547 Mon Sep 17 00:00:00 2001 From: antirez Date: Thu, 4 Nov 2010 10:48:49 +0100 Subject: [PATCH] minor test suite bug fixed --- tests/support/util.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.45.2