fluencelabs/redis
1
0
Fork 0
mirror of https://github.com/fluencelabs/redis synced 2025-04-04 00:31:03 +00:00
Code Issues Projects Releases Wiki Activity

improved random dataset creation in test: del, sunionstore, zunionstore

Browse Source
This commit is contained in:
antirez 2010-07-06 18:30:38 +02:00
parent 8b654e54c4
commit b056ca39f2
1 changed files with 30 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
tests/support/util.tcl
View File

@ -127,9 +127,23 @@ proc randomKey {} {
} }
} }
proc findKeyWithType {r type} {
for {set j 0} {$j < 20} {incr j} {
set k [$r randomkey]
if {$k eq {}} {
return {}
}
if {[$r type $k] eq $type} {
return $k
}
}
return {}
}
proc createComplexDataset {r ops} { proc createComplexDataset {r ops} {
for {set j 0} {$j < $ops} {incr j} { for {set j 0} {$j < $ops} {incr j} {
set k [randomKey] set k [randomKey]
set k2 [randomKey]
set f [randomValue] set f [randomValue]
set v [randomValue] set v [randomValue]
randpath { randpath {
@ -158,6 +172,8 @@ proc createComplexDataset {r ops} {
$r zadd $k $d $v $r zadd $k $d $v
} { } {
$r hset $k $f $v $r hset $k $f $v
} {
$r del $k
} }
set t [$r type $k] set t [$r type $k]
} }
@ -175,11 +191,23 @@ proc createComplexDataset {r ops} {
} }
{set} { {set} {
randpath {$r sadd $k $v} \ randpath {$r sadd $k $v} \
{$r srem $k $v} {$r srem $k $v} \
{
set otherset [findKeyWithType r set]
if {$otherset ne {}} {
$r sunionstore $k2 $k $otherset
}
}
} }
{zset} { {zset} {
randpath {$r zadd $k $d $v} \ randpath {$r zadd $k $d $v} \
{$r zrem $k $v} {$r zrem $k $v} \
{
set otherzset [findKeyWithType r zset]
if {$otherzset ne {}} {
$r zunionstore $k2 2 $k $otherzset
}
}
} }
{hash} { {hash} {
randpath {$r hset $k $f $v} \ randpath {$r hset $k $f $v} \