replica-cob-usage.tcl

proc client_field {master f} {
    set slave [$master client list type slave]
    if {![regexp $f=(\[a-zA-Z0-9-\]+) $slave - res]} {
        error "field $f not found for in $slave"
    }
    return $res
}

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 "replica client output buffer usage: client output buffer usage shouldn't include the size of the data it has already consumed" {
        $slave slaveof $master_host $master_port
	set keysize [expr 1024*1024]
        set _v [prepare_value $keysize]
        $master set key $_v 
        wait_for_ofs_sync $master $slave

        wait_for_condition 50 100 {
            [client_field $master tot-mem] < $keysize
        } else {
            fail "replica client-output-buffer usage is higher than expected."
        }
    }  
}}