]>
Commit | Line | Data |
---|---|---|
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 | ||
9 | if {$::accurate} {set numops 50000} else {set numops 5000} | |
10 | ||
11 | test {MASTER and SLAVE consistency with expire} { | |
12 | createComplexDataset r $numops useexpire | |
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 | } |