diff options
Diffstat (limited to 'tests/integration/replication.tcl')
| -rw-r--r-- | tests/integration/replication.tcl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/integration/replication.tcl b/tests/integration/replication.tcl index 39d77c8f9..4b2588251 100644 --- a/tests/integration/replication.tcl +++ b/tests/integration/replication.tcl @@ -8,6 +8,19 @@ start_server {tags {"repl"}} { test {MASTER and SLAVE dataset should be identical after complex ops} { 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] } } |