diff --git a/test-redis.tcl b/test-redis.tcl index dbf0c7c3333ec06fce4adf7e79b5d2ca42f5c545..5da000f7244b67b051060baacd61cbc590f649d4 100644 --- a/test-redis.tcl +++ b/test-redis.tcl @@ -1580,18 +1580,20 @@ proc main {server port} { set _ $err } {} - test {HSET return value. Update or insert?} { + test {HSET in update and insert mode} { set rv {} 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] 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 hdel smallhash __foobar123__] lappend rv [$r hdel bighash __foobar123__] set _ $rv - } {0 1 0 1 1 1} + } {0 newval1 1 0 newval2 1 1 1} test {HGET against non existing key} { set rv {}