better HSET test

This commit is contained in:
antirez 2010-03-17 02:06:56 +01:00
parent 2069d06a0b
commit 516977de15

View File

@ -1580,18 +1580,20 @@ proc main {server port} {
set _ $err set _ $err
} {} } {}
test {HSET return value. Update or insert?} { test {HSET in update and insert mode} {
set rv {} set rv {}
set k [lindex [array names smallhash *] 0] set k [lindex [array names smallhash *] 0]
lappend rv [$r hset smallhash $k newval] lappend rv [$r hset smallhash $k newval1]
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 newval] lappend rv [$r hset bighash $k newval2]
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__]
lappend rv [$r hdel bighash __foobar123__] lappend rv [$r hdel bighash __foobar123__]
set _ $rv set _ $rv
} {0 1 0 1 1 1} } {0 newval1 1 0 newval2 1 1 1}
test {HGET against non existing key} { test {HGET against non existing key} {
set rv {} set rv {}