Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
ruanhaishen
redis
Commits
11d9d1e3
Commit
11d9d1e3
authored
Mar 17, 2010
by
antirez
Browse files
More hash tests
parent
516977de
Changes
1
Hide whitespace changes
Inline
Side-by-side
test-redis.tcl
View file @
11d9d1e3
...
@@ -1584,10 +1584,12 @@ proc main {server port} {
...
@@ -1584,10 +1584,12 @@ proc main {server port} {
set rv
{}
set rv
{}
set k
[
lindex
[
array names smallhash *
]
0
]
set k
[
lindex
[
array names smallhash *
]
0
]
lappend rv
[
$r
hset smallhash $k newval1
]
lappend rv
[
$r
hset smallhash $k newval1
]
set smallhash
(
$k
)
newval1
lappend rv
[
$r
hget smallhash $k
]
lappend rv
[
$r
hget smallhash $k
]
lappend rv
[
$r
hset smallhash __foobar123__ newval
]
lappend rv
[
$r
hset smallhash __foobar123__ newval
]
set k
[
lindex
[
array names bighash *
]
0
]
set k
[
lindex
[
array names bighash *
]
0
]
lappend rv
[
$r
hset bighash $k newval2
]
lappend rv
[
$r
hset bighash $k newval2
]
set bighash
(
$k
)
newval2
lappend rv
[
$r
hget bighash $k
]
lappend rv
[
$r
hget bighash $k
]
lappend rv
[
$r
hset bighash __foobar123__ newval
]
lappend rv
[
$r
hset bighash __foobar123__ newval
]
lappend rv
[
$r
hdel smallhash __foobar123__
]
lappend rv
[
$r
hdel smallhash __foobar123__
]
...
@@ -1610,12 +1612,51 @@ proc main {server port} {
...
@@ -1610,12 +1612,51 @@ proc main {server port} {
lsort
[
$r
hkeys bighash
]
lsort
[
$r
hkeys bighash
]
}
[
lsort
[
array names bighash *
]]
}
[
lsort
[
array names bighash *
]]
test
{
HVALS - small hash
}
{
set vals
{}
foreach
{
k v
}
[
array get smallhash
]
{
lappend vals $v
}
set _
[
lsort $vals
]
}
[
lsort
[
$r
hvals smallhash
]]
test
{
HVALS - big hash
}
{
set vals
{}
foreach
{
k v
}
[
array get bighash
]
{
lappend vals $v
}
set _
[
lsort $vals
]
}
[
lsort
[
$r
hvals bighash
]]
test
{
HGETALL - small hash
}
{
lsort
[
$r
hgetall smallhash
]
}
[
lsort
[
array get smallhash
]]
test
{
HGETALL - big hash
}
{
lsort
[
$r
hgetall bighash
]
}
[
lsort
[
array get bighash
]]
test
{
HDEL and return value
}
{
set rv
{}
lappend rv
[
$r
hdel smallhash nokey
]
lappend rv
[
$r
hdel bighash nokey
]
set k
[
lindex
[
array names smallhash *
]
0
]
lappend rv
[
$r
hdel smallhash $k
]
lappend rv
[
$r
hdel smallhash $k
]
lappend rv
[
$r
hget smallhash $k
]
set k
[
lindex
[
array names bighash *
]
0
]
lappend rv
[
$r
hdel bighash $k
]
lappend rv
[
$r
hdel bighash $k
]
lappend rv
[
$r
hget bighash $k
]
set _ $rv
}
{
0 0 1 0
{}
1 0
{}}
test
{
Is a zipmap encoded Hash promoted on big payload?
}
{
$r hset smallhash foo
[
string repeat a 1024
]
$r debug object smallhash
}
{
*hashtable*
}
# TODO:
# TODO:
# Propoted to hash table on big payload?
# HVALS
# HGETALL
# HDEL
# HDEL return value
# Randomized test, small and big
# Randomized test, small and big
# .rdb / AOF consistency test should include hashes
# .rdb / AOF consistency test should include hashes
...
...
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