Commit 175707e5 authored by antirez's avatar antirez
Browse files

Test: csvdump now scans all DBs.

parent a5a06a8e
......@@ -262,9 +262,11 @@ proc formatCommand {args} {
proc csvdump r {
set o {}
for {set db 0} {$db < 16} {incr db} {
{*}$r select $db
foreach k [lsort [{*}$r keys *]] {
set type [{*}$r type $k]
append o [csvstring $k] , [csvstring $type] ,
append o [csvstring $db] , [csvstring $k] , [csvstring $type] ,
switch $type {
string {
append o [csvstring [{*}$r get $k]] "\n"
......@@ -302,6 +304,8 @@ proc csvdump r {
}
}
}
}
{*}$r select 9
return $o
}
......
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