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

Added tests for saving various data types to disk and loading them back, and for loading data types from redis to maintain compatibility

Browse Source 
Former-commit-id: dcb44d3a09a4021f05079bedbac690e33ec7f39e
This commit is contained in:
VivekSainiEQ 2020-11-30 20:58:00 +00:00 committed by John Sully
parent 6c16fe69e7
commit 54b36868ba
3 changed files with 51 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
tests/assets/redis-save.rdb Normal file
View File

Binary file not shown.

1
tests/test_helper.tcl
View File

@ -76,6 +76,7 @@ set ::all_tests {
unit/tls
unit/tracking
unit/oom-score-adj
unit/loadsave
}
# Index to the next test to run in the ::all_tests list.
set ::next_test 0

50
tests/unit/loadsave.tcl Normal file
View File

@ -0,0 +1,50 @@
set server_path [tmpdir "server.rdb-encoding-test"]
set testmodule [file normalize tests/modules/datatype.so]
# Store a bunch of datatypes to the database,
# compute the hash of the database,
# and save the data to a file
start_server [list tags [list "loadsave"] overrides [list "dir" $server_path "loadmodule" $testmodule] keep_persistence true] {
test "Save various data types to .rdb file" {
r set "int" [expr {int(rand()*10000)}]
r set "string" [string repeat A [expr {int(rand()*10000)}]]
r hset "hash" [string repeat A [expr {int(rand()*1000)}]] 0[string repeat A [expr {int(rand()*1000)}]]
r sadd "set" [string repeat A [expr {int(rand()*1000)}]]
r zadd "zset" [expr {rand()}] [string repeat A [expr {int(rand()*1000)}]]
r lpush "list" [string repeat A [expr {int(rand()*1000)}]]
r datatype.set dtkey 100 stringval
r keydb.cron "cron" single [expr {10000 + int(rand()*1000)}] "return 0" 0;# set delay long enough so it doesn't contend with saving
set saved_digest [r debug digest];# debug digest computes the hash
r save
} {OK};
}
# Load that data back from the file,
# and compare its hash to the previously computed hash
start_server [list tags [list "loadsave"] overrides [list "dir" $server_path "loadmodule" $testmodule] keep_persistence true] {
test "Load various data types from .rdb file" {
set loaded_digest [r debug digest]
if {![string match $saved_digest $loaded_digest]} {
fail "Loaded data did not match saved data"
}
}
}
# Load in data from a redis instance
# The hash should match what we get in redis
set saved_digest 26ce4a819a86355af7ec75c7a3410f5b9fad02f3
exec cp -f tests/assets/redis-save.rdb $server_path/dump.rdb
start_server [list tags [list "loadsave"] overrides [list "dir" $server_path "loadmodule" $testmodule] keep_persistence true] {
test "Load various data types from Redis generated .rdb file" {
set loaded_digest [r debug digest]
if {![string match $saved_digest $loaded_digest]} {
fail "Loaded data did not match saved data"
}
}
}
puts $server_path