94 lines
5.2 KiB
Tcl
94 lines
5.2 KiB
Tcl
start_server [list tags {flash} overrides [list storage-provider {flash ./rocks.db} delete-on-evict no]] {
|
|
|
|
test { FLASH - GET works after eviction } {
|
|
r set testkey foo
|
|
r flushall cache
|
|
assert_equal {foo} [r get testkey]
|
|
}
|
|
|
|
test { DEL of nonexistant key returns 0 } {
|
|
r flushall
|
|
assert_equal {0} [r del foobar]
|
|
assert_equal {0} [r dbsize] "Key count is accurate after non-existant delete"
|
|
}
|
|
|
|
test { SET of existing but flushed key works } {
|
|
r flushall
|
|
r set testkey foo
|
|
assert_equal {1} [r dbsize] "Only one key after first insert"
|
|
r flushall cache
|
|
assert_equal {1} [r dbsize] "Only one key after flushall cache"
|
|
r set testkey bar
|
|
assert_equal {1} [r dbsize] "Only one key after overwrite"
|
|
assert_equal {bar} [r get testkey]
|
|
}
|
|
|
|
test { SET of existing but flushed key with EXPIRE works } {
|
|
r flushall
|
|
assert_equal {0} [r dbsize]
|
|
r set testkey foo ex 10000
|
|
assert_equal {1} [r dbsize] "Only one key after first insert"
|
|
r flushall cache
|
|
assert_equal {1} [r dbsize] "Only one key after flushall cache"
|
|
r set testkey bar ex 10000
|
|
assert_equal {1} [r dbsize] "Only one key after overwrite"
|
|
assert_equal {bar} [r get testkey]
|
|
assert [expr [r ttl testkey] > 0]
|
|
}
|
|
|
|
test { EXPIRE of existing but flushed key } {
|
|
r flushall
|
|
assert_equal {0} [r dbsize]
|
|
r set testkey foo
|
|
assert_equal {1} [r dbsize]
|
|
r flushall cache
|
|
r expire testkey 10000
|
|
assert_equal {1} [r dbsize]
|
|
assert_equal {foo} [r get testkey]
|
|
assert [expr [r ttl testkey] > 0]
|
|
}
|
|
|
|
r flushall
|
|
foreach policy {
|
|
allkeys-random allkeys-lru allkeys-lfu
|
|
} {
|
|
test "FLASH - is eviction working without data loss (successfully stored to flash)? (policy $policy)" {
|
|
# Get the current memory limit and calculate a new limit.
|
|
# Set limit to 100M.
|
|
set used [s used_memory]
|
|
set limit [expr {$used+50000*1024}]
|
|
r config set maxmemory $limit
|
|
r config set maxmemory-policy $policy
|
|
# Now add keys equivalent to 1024b until the limit is almost reached.
|
|
set numkeys 0
|
|
r set first val
|
|
while 1 {
|
|
r set $numkeys xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
|
incr numkeys
|
|
if {[s used_memory]+1024 >= $limit} {
|
|
break
|
|
}
|
|
}
|
|
# Add additional keys to force eviction
|
|
# should still be under the limit for maxmemory, however all keys set should still exist between flash and memory
|
|
# check same number of keys exist in addition to values of first and last keys
|
|
set err 0
|
|
for {set j 0} {$j < 10000} {incr j} {
|
|
catch {
|
|
r set p2$j xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
|
} err
|
|
assert {$err == {OK}}
|
|
}
|
|
r set last val
|
|
set dbsize [r dbsize]
|
|
assert {[s used_memory] < $limit+4096}
|
|
assert {$dbsize == $numkeys+10002}
|
|
assert {[r get first] == {val}}
|
|
assert {[r get last] == {val}}
|
|
r flushall
|
|
}
|
|
}
|
|
|
|
}
|
|
|