mirror of
https://codeberg.org/redict/redict.git
synced 2025-01-23 16:48:27 -05:00
c1aaad06d8
Add two optional callbacks to the RedisModuleTypeMethods structure, which is `free_effort` and `unlink`. the `free_effort` callback indicates the effort required to free a module memory. Currently, if the effort exceeds LAZYFREE_THRESHOLD, the module memory may be released asynchronously. the `unlink` callback indicates the key has been removed from the DB by redis, and may soon be freed by a background thread. Add `lazyfreed_objects` info field, which represents the number of objects that have been lazyfreed since redis was started. Add `RM_GetTypeMethodVersion` API, which return the current redis-server runtime value of `REDISMODULE_TYPE_METHOD_VERSION`. You can use that when calling `RM_CreateDataType` to know which fields of RedisModuleTypeMethods are gonna be supported and which will be ignored.
32 lines
962 B
Tcl
32 lines
962 B
Tcl
set testmodule [file normalize tests/modules/test_lazyfree.so]
|
|
|
|
start_server {tags {"modules"}} {
|
|
r module load $testmodule
|
|
|
|
test "modules allocated memory can be reclaimed in the background" {
|
|
set orig_mem [s used_memory]
|
|
set rd [redis_deferring_client]
|
|
|
|
# LAZYFREE_THRESHOLD is 64
|
|
for {set i 0} {$i < 10000} {incr i} {
|
|
$rd lazyfreelink.insert lazykey $i
|
|
}
|
|
|
|
for {set j 0} {$j < 10000} {incr j} {
|
|
$rd read
|
|
}
|
|
|
|
assert {[r lazyfreelink.len lazykey] == 10000}
|
|
|
|
set peak_mem [s used_memory]
|
|
assert {[r unlink lazykey] == 1}
|
|
assert {$peak_mem > $orig_mem+10000}
|
|
wait_for_condition 50 100 {
|
|
[s used_memory] < $peak_mem &&
|
|
[s used_memory] < $orig_mem*2 &&
|
|
[string match {*lazyfreed_objects:1*} [r info Memory]]
|
|
} else {
|
|
fail "Module memory is not reclaimed by UNLINK"
|
|
}
|
|
}
|
|
} |