diff options
| author | Mitja Felicijan <mitja.felicijan@gmail.com> | 2026-01-21 22:52:54 +0100 |
|---|---|---|
| committer | Mitja Felicijan <mitja.felicijan@gmail.com> | 2026-01-21 22:52:54 +0100 |
| commit | dcacc00e3750300617ba6e16eb346713f91a783a (patch) | |
| tree | 38e2d4fb5ed9d119711d4295c6eda4b014af73fd /examples/redis-unstable/tests/integration/block-repl.tcl | |
| parent | 58dac10aeb8f5a041c46bddbeaf4c7966a99b998 (diff) | |
| download | crep-dcacc00e3750300617ba6e16eb346713f91a783a.tar.gz | |
Remove testing data
Diffstat (limited to 'examples/redis-unstable/tests/integration/block-repl.tcl')
| -rw-r--r-- | examples/redis-unstable/tests/integration/block-repl.tcl | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/examples/redis-unstable/tests/integration/block-repl.tcl b/examples/redis-unstable/tests/integration/block-repl.tcl deleted file mode 100644 index 52b4a53..0000000 --- a/examples/redis-unstable/tests/integration/block-repl.tcl +++ /dev/null | |||
| @@ -1,51 +0,0 @@ | |||
| 1 | # Test replication of blocking lists and zset operations. | ||
| 2 | # Unlike stream operations such operations are "pop" style, so they consume | ||
| 3 | # the list or sorted set, and must be replicated correctly. | ||
| 4 | |||
| 5 | proc start_bg_block_op {host port db ops tls} { | ||
| 6 | set tclsh [info nameofexecutable] | ||
| 7 | exec $tclsh tests/helpers/bg_block_op.tcl $host $port $db $ops $tls & | ||
| 8 | } | ||
| 9 | |||
| 10 | proc stop_bg_block_op {handle} { | ||
| 11 | catch {exec /bin/kill -9 $handle} | ||
| 12 | } | ||
| 13 | |||
| 14 | start_server {tags {"repl" "external:skip"}} { | ||
| 15 | start_server {overrides {save {}}} { | ||
| 16 | set master [srv -1 client] | ||
| 17 | set master_host [srv -1 host] | ||
| 18 | set master_port [srv -1 port] | ||
| 19 | set slave [srv 0 client] | ||
| 20 | |||
| 21 | set load_handle0 [start_bg_block_op $master_host $master_port 9 100000 $::tls] | ||
| 22 | set load_handle1 [start_bg_block_op $master_host $master_port 9 100000 $::tls] | ||
| 23 | set load_handle2 [start_bg_block_op $master_host $master_port 9 100000 $::tls] | ||
| 24 | |||
| 25 | test {First server should have role slave after SLAVEOF} { | ||
| 26 | $slave slaveof $master_host $master_port | ||
| 27 | after 1000 | ||
| 28 | s 0 role | ||
| 29 | } {slave} | ||
| 30 | |||
| 31 | test {Test replication with blocking lists and sorted sets operations} { | ||
| 32 | after 25000 | ||
| 33 | stop_bg_block_op $load_handle0 | ||
| 34 | stop_bg_block_op $load_handle1 | ||
| 35 | stop_bg_block_op $load_handle2 | ||
| 36 | wait_for_condition 100 100 { | ||
| 37 | [$master debug digest] == [$slave debug digest] | ||
| 38 | } else { | ||
| 39 | set csv1 [csvdump r] | ||
| 40 | set csv2 [csvdump {r -1}] | ||
| 41 | set fd [open /tmp/repldump1.txt w] | ||
| 42 | puts -nonewline $fd $csv1 | ||
| 43 | close $fd | ||
| 44 | set fd [open /tmp/repldump2.txt w] | ||
| 45 | puts -nonewline $fd $csv2 | ||
| 46 | close $fd | ||
| 47 | fail "Master - Replica inconsistency, Run diff -u against /tmp/repldump*.txt for more info" | ||
| 48 | } | ||
| 49 | } | ||
| 50 | } | ||
| 51 | } | ||
