Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ruanhaishen
redis
Commits
547ccc4b
Commit
547ccc4b
authored
Aug 05, 2015
by
antirez
Browse files
Test: csvdump now scans all DBs.
parent
99e4cf4d
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/support/util.tcl
View file @
547ccc4b
...
@@ -262,46 +262,50 @@ proc formatCommand {args} {
...
@@ -262,46 +262,50 @@ proc formatCommand {args} {
proc csvdump r
{
proc csvdump r
{
set o
{}
set o
{}
foreach k
[
lsort
[
{*}
$r
keys *
]]
{
for
{
set db 0
}
{
$db
< 16
}
{
incr db
}
{
set type
[
{*}
$r
type $k
]
{*}
$r
select $db
append o
[
csvstring $k
]
,
[
csvstring $type
]
,
foreach k
[
lsort
[
{*}
$r
keys *
]]
{
switch $type
{
set type
[
{*}
$r
type $k
]
string
{
append o
[
csvstring $db
]
,
[
csvstring $k
]
,
[
csvstring $type
]
,
append o
[
csvstring
[
{*}
$r
get $k
]]
"
\n
"
switch $type
{
}
string
{
list
{
append o
[
csvstring
[
{*}
$r
get $k
]]
"
\n
"
foreach e
[
{*}
$r
lrange $k 0 -1
]
{
append o
[
csvstring $e
]
,
}
}
append o
"
\n
"
list
{
}
foreach e
[
{*}
$r
lrange $k 0 -1
]
{
set
{
append o
[
csvstring $e
]
,
foreach e
[
lsort
[
{*}
$r
smembers $k
]]
{
}
append o
[
csvstring $e
]
,
append o
"
\n
"
}
}
append o
"
\n
"
set
{
}
foreach e
[
lsort
[
{*}
$r
smembers $k
]]
{
zset
{
append o
[
csvstring $e
]
,
foreach e
[
{*}
$r
zrange $k 0 -1 withscores
]
{
}
append o
[
csvstring $e
]
,
append o
"
\n
"
}
}
append o
"
\n
"
zset
{
}
foreach e
[
{*}
$r
zrange $k 0 -1 withscores
]
{
hash
{
append o
[
csvstring $e
]
,
set fields
[
{*}
$r
hgetall $k
]
}
set newfields
{}
append o
"
\n
"
foreach
{
k v
}
$fields
{
lappend newfields
[
list $k $v
]
}
}
set fields
[
lsort -index 0 $newfields
]
hash
{
foreach kv $fields
{
set fields
[
{*}
$r
hgetall $k
]
append o
[
csvstring
[
lindex $kv 0
]]
,
set newfields
{}
append o
[
csvstring
[
lindex $kv 1
]]
,
foreach
{
k v
}
$fields
{
lappend newfields
[
list $k $v
]
}
set fields
[
lsort -index 0 $newfields
]
foreach kv $fields
{
append o
[
csvstring
[
lindex $kv 0
]]
,
append o
[
csvstring
[
lindex $kv 1
]]
,
}
append o
"
\n
"
}
}
append o
"
\n
"
}
}
}
}
}
}
{*}
$r
select 9
return $o
return $o
}
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment