HSET fixes, now the new pointer is stored back in the object pointer field

[redis.git] / test-redis.tcl

diff --git a/test-redis.tcl b/test-redis.tcl
index 4ec3830eebbea8390b6c9897b0c662c97789140a..a6acea18a2c8204b5296a518c7f8368026689f67 100644 (file)
--- a/test-redis.tcl
+++ b/test-redis.tcl
@@ -406,15 +406,20 @@ proc main {server port} {
     } {1}
 
     test {Basic LPUSH, RPUSH, LLENGTH, LINDEX} {
-        $r lpush mylist a
-        $r lpush mylist b
-        $r rpush mylist c
-        set res [$r llen mylist]
+        set res [$r lpush mylist a]
+        append res [$r lpush mylist b]
+        append res [$r rpush mylist c]
+        append res [$r llen mylist]
+        append res [$r rpush anotherlist d]
+        append res [$r lpush anotherlist e]
+        append res [$r llen anotherlist]
         append res [$r lindex mylist 0]
         append res [$r lindex mylist 1]
         append res [$r lindex mylist 2]
+        append res [$r lindex anotherlist 0]
+        append res [$r lindex anotherlist 1]
         list $res [$r lindex mylist 100]
-    } {3bac {}}
+    } {1233122baced {}}
 
     test {DEL a list} {
         $r del mylist
@@ -1545,7 +1550,7 @@ proc main {server port} {
                 set ele [lindex [$r zrange myzset $index $index] 0]
                 set rank [$r zrank myzset $ele]
                 if {$rank != $index} {
-                    set err "$ele RANK is wrong! ($rank != [expr $index+1])"
+                    set err "$ele RANK is wrong! ($rank != $index)"
                     break
                 }
             }