summaryrefslogtreecommitdiff
path: root/examples/redis-unstable/tests/integration/block-repl.tcl
diff options
context:
space:
mode:
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 @@
-# Test replication of blocking lists and zset operations.
-# Unlike stream operations such operations are "pop" style, so they consume
-# the list or sorted set, and must be replicated correctly.
-
-proc start_bg_block_op {host port db ops tls} {
- set tclsh [info nameofexecutable]
- exec $tclsh tests/helpers/bg_block_op.tcl $host $port $db $ops $tls &
-}
-
-proc stop_bg_block_op {handle} {
- catch {exec /bin/kill -9 $handle}
-}
-
-start_server {tags {"repl" "external:skip"}} {
- start_server {overrides {save {}}} {
- set master [srv -1 client]
- set master_host [srv -1 host]
- set master_port [srv -1 port]
- set slave [srv 0 client]
-
- set load_handle0 [start_bg_block_op $master_host $master_port 9 100000 $::tls]
- set load_handle1 [start_bg_block_op $master_host $master_port 9 100000 $::tls]
- set load_handle2 [start_bg_block_op $master_host $master_port 9 100000 $::tls]
-
- test {First server should have role slave after SLAVEOF} {
- $slave slaveof $master_host $master_port
- after 1000
- s 0 role
- } {slave}
-
- test {Test replication with blocking lists and sorted sets operations} {
- after 25000
- stop_bg_block_op $load_handle0
- stop_bg_block_op $load_handle1
- stop_bg_block_op $load_handle2
- wait_for_condition 100 100 {
- [$master debug digest] == [$slave debug digest]
- } else {
- set csv1 [csvdump r]
- set csv2 [csvdump {r -1}]
- set fd [open /tmp/repldump1.txt w]
- puts -nonewline $fd $csv1
- close $fd
- set fd [open /tmp/repldump2.txt w]
- puts -nonewline $fd $csv2
- close $fd
- fail "Master - Replica inconsistency, Run diff -u against /tmp/repldump*.txt for more info"
- }
- }
- }
-}