summaryrefslogtreecommitdiff
path: root/examples/redis-unstable/tests/integration/block-repl.tcl
diff options
context:
space:
mode:
authorMitja Felicijan <mitja.felicijan@gmail.com>2026-01-21 22:52:54 +0100
committerMitja Felicijan <mitja.felicijan@gmail.com>2026-01-21 22:52:54 +0100
commitdcacc00e3750300617ba6e16eb346713f91a783a (patch)
tree38e2d4fb5ed9d119711d4295c6eda4b014af73fd /examples/redis-unstable/tests/integration/block-repl.tcl
parent58dac10aeb8f5a041c46bddbeaf4c7966a99b998 (diff)
downloadcrep-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.tcl51
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
5proc 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
10proc stop_bg_block_op {handle} {
11 catch {exec /bin/kill -9 $handle}
12}
13
14start_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}