40 lines
1.2 KiB
Tcl
40 lines
1.2 KiB
Tcl
start_server {tags {"lazyfree"}} {
|
|
test "UNLINK can reclaim memory in background" {
|
|
set orig_mem [s used_memory]
|
|
set args {}
|
|
for {set i 0} {$i < 100000} {incr i} {
|
|
lappend args $i
|
|
}
|
|
r sadd myset {*}$args
|
|
assert {[r scard myset] == 100000}
|
|
set peak_mem [s used_memory]
|
|
assert {[r unlink myset] == 1}
|
|
assert {$peak_mem > $orig_mem+1000000}
|
|
wait_for_condition 50 100 {
|
|
[s used_memory] < $peak_mem &&
|
|
[s used_memory] < $orig_mem*2
|
|
} else {
|
|
fail "Memory is not reclaimed by UNLINK"
|
|
}
|
|
}
|
|
|
|
test "FLUSHDB ASYNC can reclaim memory in background" {
|
|
set orig_mem [s used_memory]
|
|
set args {}
|
|
for {set i 0} {$i < 100000} {incr i} {
|
|
lappend args $i
|
|
}
|
|
r sadd myset {*}$args
|
|
assert {[r scard myset] == 100000}
|
|
set peak_mem [s used_memory]
|
|
r flushdb async
|
|
assert {$peak_mem > $orig_mem+1000000}
|
|
wait_for_condition 50 100 {
|
|
[s used_memory] < $peak_mem &&
|
|
[s used_memory] < $orig_mem*2
|
|
} else {
|
|
fail "Memory is not reclaimed by FLUSHDB ASYNC"
|
|
}
|
|
}
|
|
}
|