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

better random dataset creation function in test. master-slave replication test now is able to save the two datasets in CSV when an inconsistency is detected.

Browse Source
This commit is contained in:
antirez 2010-07-28 14:08:46 +02:00
parent 6171250871
commit a0573260b0
2 changed files with 54 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/integration/replication.tcl
View File

@ -8,6 +8,19 @@ start_server {tags {"repl"}} {
test {MASTER and SLAVE dataset should be identical after complex ops} { test {MASTER and SLAVE dataset should be identical after complex ops} {
createComplexDataset r 10000 createComplexDataset r 10000
after 500
if {[r debug digest] ne [r -1 debug digest]} {
set csv1 [csvdump r]
set csv2 [csvdump {r -1}]
set fd [open /tmp/repldump1.txt w]
puts -nonewline $fd $csv1
close $fd
set fd [open /tmp/repldump2.txt w]
puts -nonewline $fd $csv2
close $fd
puts "Master - Slave inconsistency"
puts "Run diff -u against /tmp/repldump*.txt for more info"
}
assert_equal [r debug digest] [r -1 debug digest] assert_equal [r debug digest] [r -1 debug digest]
} }
} }

72
tests/support/util.tcl
View File

@ -44,7 +44,7 @@ proc warnings_from_file {filename} {
# Return value for INFO property # Return value for INFO property
proc status {r property} { proc status {r property} {
if {[regexp "\r\n$property:(.*?)\r\n" [$r info] _ value]} { if {[regexp "\r\n$property:(.*?)\r\n" [{*}$r info] _ value]} {
set _ $value set _ $value
} }
} }
@ -129,11 +129,11 @@ proc randomKey {} {
proc findKeyWithType {r type} { proc findKeyWithType {r type} {
for {set j 0} {$j < 20} {incr j} { for {set j 0} {$j < 20} {incr j} {
set k [$r randomkey] set k [{*}$r randomkey]
if {$k eq {}} { if {$k eq {}} {
return {} return {}
} }
if {[$r type $k] eq $type} { if {[{*}$r type $k] eq $type} {
return $k return $k
} }
} }
@ -159,23 +159,23 @@ proc createComplexDataset {r ops} {
} { } {
randpath {set d +inf} {set d -inf} randpath {set d +inf} {set d -inf}
} }
set t [$r type $k] set t [{*}$r type $k]
if {$t eq {none}} { if {$t eq {none}} {
randpath { randpath {
$r set $k $v {*}$r set $k $v
} { } {
$r lpush $k $v {*}$r lpush $k $v
} { } {
$r sadd $k $v {*}$r sadd $k $v
} { } {
$r zadd $k $d $v {*}$r zadd $k $d $v
} { } {
$r hset $k $f $v {*}$r hset $k $f $v
} { } {
$r del $k {*}$r del $k
} }
set t [$r type $k] set t [{*}$r type $k]
} }
switch $t { switch $t {
@ -183,35 +183,45 @@ proc createComplexDataset {r ops} {
# Nothing to do # Nothing to do
} }
{list} { {list} {
randpath {$r lpush $k $v} \ randpath {{*}$r lpush $k $v} \
{$r rpush $k $v} \ {{*}$r rpush $k $v} \
{$r lrem $k 0 $v} \ {{*}$r lrem $k 0 $v} \
{$r rpop $k} \ {{*}$r rpop $k} \
{$r lpop $k} {{*}$r lpop $k}
} }
{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] set otherset [findKeyWithType r set]
if {$otherset ne {}} { if {$otherset ne {}} {
$r sunionstore $k2 $k $otherset randpath {
{*}$r sunionstore $k2 $k $otherset
} {
{*}$r sinterstore $k2 $k $otherset
} {
{*}$r sdiffstore $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] set otherzset [findKeyWithType r zset]
if {$otherzset ne {}} { if {$otherzset ne {}} {
$r zunionstore $k2 2 $k $otherzset randpath {
{*}$r zunionstore $k2 2 $k $otherzset
} {
{*}$r zinterstore $k2 2 $k $otherzset
}
} }
} }
} }
{hash} { {hash} {
randpath {$r hset $k $f $v} \ randpath {{*}$r hset $k $f $v} \
{$r hdel $k $f} {{*}$r hdel $k $f}
} }
} }
} }
@ -227,33 +237,33 @@ proc formatCommand {args} {
proc csvdump r { proc csvdump r {
set o {} set o {}
foreach k [lsort [$r keys *]] { foreach k [lsort [{*}$r keys *]] {
set type [$r type $k] set type [{*}$r type $k]
append o [csvstring $k] , [csvstring $type] , append o [csvstring $k] , [csvstring $type] ,
switch $type { switch $type {
string { string {
append o [csvstring [$r get $k]] "\n" append o [csvstring [{*}$r get $k]] "\n"
} }
list { list {
foreach e [$r lrange $k 0 -1] { foreach e [{*}$r lrange $k 0 -1] {
append o [csvstring $e] , append o [csvstring $e] ,
} }
append o "\n" append o "\n"
} }
set { set {
foreach e [lsort [$r smembers $k]] { foreach e [lsort [{*}$r smembers $k]] {
append o [csvstring $e] , append o [csvstring $e] ,
} }
append o "\n" append o "\n"
} }
zset { zset {
foreach e [$r zrange $k 0 -1 withscores] { foreach e [{*}$r zrange $k 0 -1 withscores] {
append o [csvstring $e] , append o [csvstring $e] ,
} }
append o "\n" append o "\n"
} }
hash { hash {
set fields [$r hgetall $k] set fields [{*}$r hgetall $k]
set newfields {} set newfields {}
foreach {k v} $fields { foreach {k v} $fields {
lappend newfields [list $k $v] lappend newfields [list $k $v]