Commit 71c2b467 authored by antirez's avatar antirez
Browse files

debug loadaof implemented in order to add more consistency tests in test-redis.tcl

parent e054afda
...@@ -6116,6 +6116,14 @@ static void debugCommand(redisClient *c) { ...@@ -6116,6 +6116,14 @@ static void debugCommand(redisClient *c) {
} }
redisLog(REDIS_WARNING,"DB reloaded by DEBUG RELOAD"); redisLog(REDIS_WARNING,"DB reloaded by DEBUG RELOAD");
addReply(c,shared.ok); addReply(c,shared.ok);
} else if (!strcasecmp(c->argv[1]->ptr,"loadaof")) {
emptyDb();
if (loadAppendOnlyFile(server.appendfilename) != REDIS_OK) {
addReply(c,shared.err);
return;
}
redisLog(REDIS_WARNING,"Append Only File loaded by DEBUG LOADAOF");
addReply(c,shared.ok);
} else if (!strcasecmp(c->argv[1]->ptr,"object") && c->argc == 3) { } else if (!strcasecmp(c->argv[1]->ptr,"object") && c->argc == 3) {
dictEntry *de = dictFind(c->db->dict,c->argv[2]); dictEntry *de = dictFind(c->db->dict,c->argv[2]);
robj *key, *val; robj *key, *val;
......
...@@ -1394,6 +1394,16 @@ proc main {server port} { ...@@ -1394,6 +1394,16 @@ proc main {server port} {
} {1} } {1}
} }
test {EXPIRES after a reload} {
$r flushdb
$r set x 10
$r expire x 1000
$r save
$r debug reload
set ttl [$r ttl x]
expr {$ttl > 900 && $ttl <= 1000}
} {1}
# Leave the user with a clean DB before to exit # Leave the user with a clean DB before to exit
test {FLUSHDB} { test {FLUSHDB} {
set aux {} set aux {}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment