Commit 547ccc4b authored by antirez's avatar antirez
Browse files

Test: csvdump now scans all DBs.

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