gvsafronov/futriix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update expire tests for async commands

Browse Source 
Former-commit-id: 088ecd30a7b360e63d701f811f2fc0b9d77f5eb0
This commit is contained in:
malavan 2021-09-22 21:49:30 +00:00
parent 2e5c69f2d8
commit 0a92bbbdfb
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/unit/expire.tcl
View File

@ -179,12 +179,31 @@ start_server {tags {"expire"}} {
# one second.
after 1000
set size2 [r dbsize]
set async [lindex [split [r config get enable-async-commands] " "] 1]
r config set enable-async-commands no
r mget key1 key2 key3
r config set enable-async-commands $async
set size3 [r dbsize]
r debug set-active-expire 1
list $size1 $size2 $size3
} {3 3 0}
test {Return nil when async get expired key} {
r flushdb
r debug set-active-expire 0
r psetex key 500 a
# Redis expires random keys ten times every second so we are
# fairly sure that all the three keys should be evicted after
# one second.
after 1000
set async [lindex [split [r config get enable-async-commands] " "] 1]
r config set enable-async-commands yes
set out [r get key]
r config set enable-async-commands $async
r debug set-active-expire 1
assert_equal $out {}
}
test {EXPIRE should not resurrect keys (issue #1026)} {
r debug set-active-expire 0
r set foo bar