569f84aa |
1 | start_server {tags {"repl"}} { |
2 | start_server {} { |
3 | test {First server should have role slave after SLAVEOF} { |
4 | r -1 slaveof [srv 0 host] [srv 0 port] |
5 | after 1000 |
6 | s -1 role |
7 | } {slave} |
8 | |
30cf7be6 |
9 | if {$::accurate} {set numops 50000} else {set numops 5000} |
10 | |
569f84aa |
11 | test {MASTER and SLAVE consistency with expire} { |
30cf7be6 |
12 | createComplexDataset r $numops useexpire |
569f84aa |
13 | after 4000 ;# Make sure everything expired before taking the digest |
14 | r keys * ;# Force DEL syntesizing to slave |
15 | after 1000 ;# Wait another second. Now everything should be fine. |
16 | if {[r debug digest] ne [r -1 debug digest]} { |
17 | set csv1 [csvdump r] |
18 | set csv2 [csvdump {r -1}] |
19 | set fd [open /tmp/repldump1.txt w] |
20 | puts -nonewline $fd $csv1 |
21 | close $fd |
22 | set fd [open /tmp/repldump2.txt w] |
23 | puts -nonewline $fd $csv2 |
24 | close $fd |
25 | puts "Master - Slave inconsistency" |
26 | puts "Run diff -u against /tmp/repldump*.txt for more info" |
27 | } |
28 | assert_equal [r debug digest] [r -1 debug digest] |
29 | } |
30 | } |
31 | } |