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
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