63c1303cfb
Add a new set of defrag functions that take a defrag context and allow defragmenting memory blocks and RedisModuleStrings. Modules can register a defrag callback which will be invoked when the defrag process handles globals. Modules with custom data types can also register a datatype-specific defrag callback which is invoked for keys that require defragmentation. The callback and associated functions support both one-step and multi-step options, depending on the complexity of the key as exposed by the free_effort callback.
44 lines
1.3 KiB
Tcl
44 lines
1.3 KiB
Tcl
set testmodule [file normalize tests/modules/defragtest.so]
|
|
|
|
start_server {tags {"modules"} overrides {{save ""}}} {
|
|
r module load $testmodule 10000
|
|
r config set hz 100
|
|
|
|
test {Module defrag: simple key defrag works} {
|
|
r frag.create key1 1 1000 0
|
|
|
|
r config set active-defrag-ignore-bytes 1
|
|
r config set active-defrag-threshold-lower 0
|
|
r config set active-defrag-cycle-min 99
|
|
r config set activedefrag yes
|
|
|
|
after 2000
|
|
set info [r info defragtest_stats]
|
|
assert {[getInfoProperty $info defragtest_datatype_attempts] > 0}
|
|
assert_equal 0 [getInfoProperty $info defragtest_datatype_resumes]
|
|
}
|
|
|
|
test {Module defrag: late defrag with cursor works} {
|
|
r flushdb
|
|
r frag.resetstats
|
|
|
|
# key can only be defragged in no less than 10 iterations
|
|
# due to maxstep
|
|
r frag.create key2 10000 100 1000
|
|
|
|
after 2000
|
|
set info [r info defragtest_stats]
|
|
assert {[getInfoProperty $info defragtest_datatype_resumes] > 10}
|
|
assert_equal 0 [getInfoProperty $info defragtest_datatype_wrong_cursor]
|
|
}
|
|
|
|
test {Module defrag: global defrag works} {
|
|
r flushdb
|
|
r frag.resetstats
|
|
|
|
after 2000
|
|
set info [r info defragtest_stats]
|
|
assert {[getInfoProperty $info defragtest_global_attempts] > 0}
|
|
}
|
|
}
|