Lines Matching refs:master
13 set master [srv -1 client]
34 while {$retry && ([$master debug digest] ne [$slave debug digest])}\
39 assert {[$master dbsize] > 0}
41 if {[$master debug digest] ne [$slave debug digest]} {
60 set master [srv -1 client]
74 test {With min-slaves-to-write (1,3): master should be writable} {
75 $master config set min-slaves-max-lag 3
76 $master config set min-slaves-to-write 1
77 $master set foo bar
80 test {With min-slaves-to-write (2,3): master should not be writable} {
81 $master config set min-slaves-max-lag 3
82 $master config set min-slaves-to-write 2
83 catch {$master set foo bar} e
87 test {With min-slaves-to-write: master not writable with lagged slave} {
88 $master config set min-slaves-max-lag 2
89 $master config set min-slaves-to-write 1
90 assert {[$master set foo bar] eq {OK}}
94 catch {$master set foo bar} e
102 set master [srv -1 client]
124 $master {*}$cmd
128 while {$retry && ([$master debug digest] ne [$slave debug digest])}\
133 assert {[$master dbsize] > 0}
137 $master del myset
143 $master sadd myset {*}$content
146 set result [$master spop myset $count]
149 [$master debug digest] eq [$slave debug digest]