mirror of
https://codeberg.org/redict/redict.git
synced 2025-01-23 00:28:26 -05:00
792afb4432
Introduce memory management on cluster link buffers: * Introduce a new `cluster-link-sendbuf-limit` config that caps memory usage of cluster bus link send buffers. * Introduce a new `CLUSTER LINKS` command that displays current TCP links to/from peers. * Introduce a new `mem_cluster_links` field under `INFO` command output, which displays the overall memory usage by all current cluster links. * Introduce a new `total_cluster_links_buffer_limit_exceeded` field under `CLUSTER INFO` command output, which displays the accumulated count of cluster links freed due to `cluster-link-sendbuf-limit`.
29 lines
892 B
Tcl
29 lines
892 B
Tcl
proc info_memory {r property} {
|
|
if {[regexp "\r\n$property:(.*?)\r\n" [{*}$r info memory] _ value]} {
|
|
set _ $value
|
|
}
|
|
}
|
|
|
|
start_server {tags {"wait external:skip"}} {
|
|
start_server {} {
|
|
set slave [srv 0 client]
|
|
set slave_host [srv 0 host]
|
|
set slave_port [srv 0 port]
|
|
set master [srv -1 client]
|
|
set master_host [srv -1 host]
|
|
set master_port [srv -1 port]
|
|
|
|
test "pending querybuf: check size of pending_querybuf after set a big value" {
|
|
$slave slaveof $master_host $master_port
|
|
set _v [prepare_value [expr 32*1024*1024]]
|
|
$master set key $_v
|
|
wait_for_ofs_sync $master $slave
|
|
|
|
wait_for_condition 50 100 {
|
|
[info_memory $slave used_memory] <= [info_memory $master used_memory] + 10*1024*1024
|
|
} else {
|
|
fail "the used_memory of replica is much larger than master."
|
|
}
|
|
}
|
|
}}
|