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

This commit is contained in:
antirez 2009-12-15 11:15:47 -05:00
parent e054afda90
commit 71c2b467b0
2 changed files with 18 additions and 0 deletions

View File

@ -6116,6 +6116,14 @@ static void debugCommand(redisClient *c) {
}
redisLog(REDIS_WARNING,"DB reloaded by DEBUG RELOAD");
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) {
dictEntry *de = dictFind(c->db->dict,c->argv[2]);
robj *key, *val;

View File

@ -1394,6 +1394,16 @@ proc main {server port} {
} {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
test {FLUSHDB} {
set aux {}