mirror of
https://codeberg.org/redict/redict.git
synced 2025-01-22 16:18:28 -05:00
997fa41e99
The MacOS CI in github actions often hangs without any logs. GH argues that it's due to resource utilization, either running out of disk space, memory, or CPU starvation, and thus the runner is terminated. This PR contains multiple attempts to resolve this: 1. introducing pause_process instead of SIGSTOP, which waits for the process to stop before resuming the test, possibly resolving race conditions in some tests, this was a suspect since there was one test that could result in an infinite loop in that case, in practice this didn't help, but still a good idea to keep. 2. disable the `save` config in many tests that don't need it, specifically ones that use heavy writes and could create large files. 3. change the `populate` proc to use short pipeline rather than an infinite one. 4. use `--clients 1` in the macos CI so that we don't risk running multiple resource demanding tests in parallel. 5. enable `--verbose` to be repeated to elevate verbosity and print more info to stdout when a test or a server starts.
52 lines
1.9 KiB
Tcl
52 lines
1.9 KiB
Tcl
# 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"
|
|
}
|
|
}
|
|
}
|
|
}
|