1proc info_memory {r property} {
2    if {[regexp "\r\n$property:(.*?)\r\n" [{*}$r info memory] _ value]} {
3        set _ $value
4    }
5}
6
7proc prepare_value {size} {
8    set _v "c"
9    for {set i 1} {$i < $size} {incr i} {
10        append _v 0
11    }
12    return $_v
13}
14
15start_server {tags {"wait"}} {
16start_server {} {
17    set slave [srv 0 client]
18    set slave_host [srv 0 host]
19    set slave_port [srv 0 port]
20    set master [srv -1 client]
21    set master_host [srv -1 host]
22    set master_port [srv -1 port]
23
24    test "pending querybuf: check size of pending_querybuf after set a big value" {
25        $slave slaveof $master_host $master_port
26        set _v [prepare_value [expr 32*1024*1024]]
27        $master set key $_v
28        after 2000
29        set m_usedmemory [info_memory $master used_memory]
30        set s_usedmemory [info_memory $slave used_memory]
31        if { $s_usedmemory > $m_usedmemory + 10*1024*1024 } {
32            fail "the used_memory of replica is much larger than master. Master:$m_usedmemory Replica:$s_usedmemory"
33        }
34    }
35}}
36